Question

使用ggplot2我通常使用geom_text和类似position=jitter的内容来注释我的情节。

然而 - 对于一个不错的情节，我经常觉得值得手动注释。如下所示：

data2 <- structure(list(type = structure(c(5L, 1L, 2L, 4L, 3L, 5L, 1L, 
2L, 4L, 3L, 5L, 1L, 2L, 4L, 3L, 5L, 1L, 2L, 4L, 3L), .Label = c("EDS", 
"KIU", "LAK", "MVH", "NA*"), class = "factor"), value = c(0.9, 
0.01, 0.01, 0.09, 0, 0.8, 0.05, 0, 0.15, 0, 0.41, 0.04, 0.03, 
0.52, 0, 0.23, 0.11, 0.02, 0.64, 0.01), time = c(3L, 3L, 3L, 
3L, 3L, 6L, 6L, 6L, 6L, 6L, 15L, 15L, 15L, 15L, 15L, 27L, 27L, 
27L, 27L, 27L), year = c(2008L, 2008L, 2008L, 2008L, 2008L, 2007L, 
2007L, 2007L, 2007L, 2007L, 2007L, 2007L, 2007L, 2007L, 2007L, 
2006L, 2006L, 2006L, 2006L, 2006L)), .Names = c("type", "value", 
"time", "year"), row.names = c(1L, 3L, 4L, 5L, 6L, 7L, 9L, 10L, 
11L, 12L, 13L, 15L, 16L, 17L, 18L, 19L, 21L, 22L, 23L, 24L), class = "data.frame")
ggplot(data2, aes(x=time, y=value, group=type, col=type))+
geom_line()+
geom_point()+
theme_bw()+
annotate("text", x=6, y=0.9, label="this is a wrong color")+
annotate("text", x=15, y=0.6, label="this is a second annotation with a wrong color")

问题是，我无法获得文本注释颜色以匹配线条颜色。我想我可以通过手动缩放来解决这个问题，但我希望有更好的方法吗？

Answer 1

我遇到了类似的问题，用JD Long回答解决了这个问题。但是，当ggplot2更新到版本0.9.0的结果时，我注意到所有geom_text()调用在图上呈现的模糊不清。

感谢kohske我发现了这段代码

ggplot(data2, aes(x=time, y=value, group=type, col=type))+
geom_line()+
geom_point()+
theme_bw() +
geom_text(aes(7, .9, label="correct color", color="NA*")) +
geom_text(aes(15, .6, label="another correct color!", color="MVH"))

绘制geom_text nrow(data2)次！

向geom_text提供数据的正确方法是构建一个不同的data.frame，其中包含您要绘制的字符串的坐标，标签和颜色：

data2.labels <- data.frame(
  time = c(7, 15), 
  value = c(.9, .6), 
  label = c("correct color", "another correct color!"), 
  type = c("NA*", "MVH")
  )

ggplot(data2, aes(x=time, y=value, group=type, col=type))+
  geom_line()+
  geom_point()+
  theme_bw() +
  geom_text(data = data2.labels, aes(x = time, y = value, label = label))

Answer 2

如果您使用geom_text（）而不是annotate（），则可以将组颜色传递给您的绘图：

ggplot(data2, aes(x=time, y=value, group=type, col=type))+
geom_line()+
geom_point()+
theme_bw() +
geom_text(aes(7, .9, label="correct color", color="NA*")) +
geom_text(aes(15, .6, label="another correct color!", color="MVH"))

所以使用annotate（）看起来像这样： alt text http://www.cerebralmastication.com/wp-content/uploads/2010/03/before.png

然后在使用geom_text（）后它看起来像这样： alt text http://www.cerebralmastication.com/wp-content/uploads/2010/03/after.png

Answer 3

这些天来，有一些添加标签的软件包：

geom_dl具有自动数据过滤功能，以避免重复标签和
geom_label_repel和geom_text_repel制作了一些标签，这些标签试图避免位于数据之上或彼此之间，并且在geom_label_repel的情况下具有边界和不透明的背景。

如何很好地注释ggplot2（手动）

3 个答案: