r - 更改图例标题 ggplot2

Question

这个问题已经有答案了:

How to change legend title in ggplot (14 个回答)

已关闭 4 年前。

我在 R 中得到了一个基于 ggplot2 的图。不幸的是，我在这里没有足够的声誉来上传情节。现在，我想更改两行的图例标题和标签名称。

因此，我添加了scale_fill_continuous(name = "New Legend Title", labels=c("Control", "Treatment"))到代码。

ggplot(data=descripintens, 
aes(x=syear, y=workingintensity, group= treatment, colour=factor(treatment))) + 
geom_line() +
xlab("Year") +
ylab("Working intensity") +
scale_fill_continuous(name = "New Legend Title", labels=c("Control", "Treatment"))

这是 stackoverflow 和 ggplot2 备忘单中建议的内容。没有什么变化。甚至没有出现错误。

我的代码有什么问题吗？

谢谢!

编辑:我用于绘图的数据是一个表格，它基于以下代码:

descripintens<-intensity141516 %>% 
  group_by(syear, treatment) %>%
  summarise(workingintensity=mean(intensity))

表格descripintens看起来像这样:

   syear Treatment workingintensity
1  2014     0         96.2
2  2014     1         98.4
3  2015     0         101.00000
4  2015     1         102.00000
5  2016     0         105.9
6  2016     1         106.2

Answer 1

你可以尝试这样:

ggplot(data = descripintens
       ,aes(x = syear, y = workingintensity, group = treatment,colour = factor(treatment))) +
  geom_line() +
  xlab("Year") +
  ylab("Working intensity") + 
  labs(color='NEW LEGEND TITLE')  +
  # you should specify the color also
  scale_color_manual(labels = c("Control", "Treatment")
                     ,values = c("blue", "red"))

<小时/>

有数据:

descripintens <- read.table(text ="   syear treatment workingintensity
1  2014     0         96.2
2  2014     1         98.4
3  2015     0         101.00000
4  2015     1         102.00000
5  2016     0         105.9
6  2016     1         106.2")