r - 带有 geom_text ggplot2 的标签

Question

嗨，伙计们，我有一个 df 并使用此代码

ggplot(logger) + geom_line(aes(Date.time, T, group=ID, colour=ID))+
  ggtitle("Temperature in piezometers") +
  xlab("Time") +
  ylab("Temperature")

我可以制作这个图表：

很好，但是有没有办法直接在图表上添加 ID 标签，就在线条的末尾？我的意思是，用直接的图形标签替换图例。我想应该用geom_text函数来完成，但我所有的尝试都失败了。

Answer 1

使用标签的位置创建一个新的 data.frame

library(ggplot2)
set.seed(12345)
dataset <- do.call(
  rbind, 
  lapply(seq_len(5), function(i){
    data.frame(
      ID = i,
      Time = 1:100,
      Temp = as.vector(arima.sim(model = list(ar = .8), n = 100))
    )
  }) 
)
dataset$ID <- factor(dataset$ID)
Right <- subset(dataset, Time == max(Time))
ggplot(dataset, aes(x = Time, y = Temp, colour = ID)) + geom_line() + geom_text(data = Right, aes(label = ID))

Answer 2

您也可以使用annotate. 这为您提供了更多的灵活性，尽管您必须指定注释的位置。

请参阅文档：http ://docs.ggplot2.org/current/annotate.html