logo标签列表

如何在R的ggplot中向图例添加自定义系列标签？

rggplot2
5
我有一个图表（示例代码如下）需要添加自己的标签来表示系列信息。我想要用“治疗1”、“治疗2”、“治疗3”代替“p1s1”、“p1s2”、“p3s4”。我已经使用levels(series_id)获取了唯一的系列名称，并使用查找表获取了描述。（我认为这些描述按照它们绘制的顺序排列？）我将这些描述存储在名为treatment_descriptions的向量中。
从文档中，我认为我应该在这里使用比例尺，但我无法确定应该使用哪个比例尺或如何使用它。例如：scale_something(name="Treatment Descriptions", breaks=NULL, labels=treatment_descriptions, formatter=NULL)？但是这应该放在哪里呢？
library(ggplot2)

# Create a long data.frame to store data...
growth_series = data.frame ("read_day" = c(0, 3, 9, 0, 3, 9, 0, 2, 8), 
"series_id" = c("p1s1", "p1s1", "p1s1", "p1s2", "p1s2", "p1s2", "p3s4", "p3s4", "p3s4"),
"mean_od" = c(0.6, 0.9, 1.3, 0.3, 0.6, 1.0, 0.2, 0.5, 1.2),
"sd_od" = c(0.1, 0.2, 0.2, 0.1, 0.1, 0.3, 0.04, 0.1, 0.3),
"n_in_stat" = c(8, 8, 8, 8, 7, 5, 8, 7, 2)
)

> # Now gives us some example long form data...
> > growth_series 
>  read_day series_id mean_od sd_od        n_in_stat   
>   1       p1s1     0.6      0.10         8 2       
>   3       p1s1     0.9      0.20         8 3    
>   9       p1s1     1.3      0.20         8 4    
>   0       p1s2     0.3      0.10         8 5    
>   3       p1s2     0.6      0.10         7 6    
>   9       p1s2     1.0      0.30         5 7    
>   0       p3s4     0.2      0.04         8 8    
>   2       p3s4     0.5      0.10         7 9    
>   8       p3s4     1.2      0.30         2 2

# Plot using ggplot...
ggplot(data = growth_series, aes(x = read_day, y = mean_od, group = series_id, color = series_id)) +
geom_line(size = 1.5) +
geom_point(aes(size = n_in_stat)) +
geom_errorbar(aes(ymin = mean_od - sd_od, ymax = mean_od + sd_od), size = 1, width = 0.3) +
xlab("Days") + ylab("Log (O.D. 730 nm)") +
scale_y_log2() +
scale_colour_hue('my legend', breaks = levels(growth_series$series_id), labels=c('t1', 't2', 't3'))
1个回答
6
也许您可以重新标记您的因子？
growth_series$series_id <- factor(
     growth_series$series_id, 
     labels=c('treatment 1', 't2', 't3'))

如果你仍在寻找scale_something，那么它应该是scale_colour_hue()。

... + scale_colour_hue('my legend', 
   breaks = levels(growth_series$series_id), 
   labels=c('t1', 't2', 't3'))
谢谢，第一个建议起作用了，第二个没有，我会暂时保持问题开放，因为我认为应该有更好的方法来解决它。我的描述非常长，所以在表格中这样做看起来很丑，但我想我不必把它们放到表格中直到绘图之前，所以这不是什么大问题。祝好，约翰 - John
第二个有什么问题？顺便说一下，"..."代表你的ggplot()+ geom_line + .. + scale_y_log2组合。 - xiechao
当然，我尝试过了，但是我得到了一个语法错误，你成功了吗？ - John
它对我有效。如果没有人分享其他解决方案，您介意将您运行的命令附加到您的问题中吗？ - xiechao
2
谢谢，现在可以了，之前可能有一个隐藏字符，我想是从Stackoverflow复制粘贴的时候出了问题。非常感谢。 - John
网页内容由stack overflow 提供, 点击上面的
可以查看英文原文，
原文链接