带有数据标签的多条线（R）

Question

我想用数据标签绘制多行 ，但是到目前为止，我所有的尝试都返回了一条错误消息。

ggplot(data, aes(year)) + 
  geom_line(aes(y = var1), color = "#E20335", size = 1.5) +
  geom_point(aes(y = var1), color = "#E20335", size = 3) +
  geom_line(aes(y = var2), color = "#292753", size = 1.5) +
  geom_point(aes(y = var2), color = "#292753", size = 3) +
  scale_x_continuous(breaks = 2010:2020) +
  scale_y_comma() +
        labs(title = 'something',
         subtitle = 'something',
         x = 'This axis title intentionally left blank',
         y = 'This axis title intentionally left blank',
         caption = 'something')

我想将标签插入此代码中，以便将它们放置在数据点周围。任何帮助将不胜感激。

Answer 1

如评论中所建议的，您可以尝试使用geom_label。但是，如果您提供一个示例数据集，例如内置数据集或dput（data）的输出，则更好。另外，包括library您正在与您一起帮助人们帮助您。由于您没有指定要标记哪个变量，因此我

library(ggplot2)
library(hrbrthemes)
ggplot(mtcars, aes(mpg)) + 
  geom_line(aes(y = disp), color = "#E20335", size = 1.5) +
  geom_point(aes(y = disp), color = "#E20335", size = 3) +
  geom_line(aes(y = hp), color = "#292753", size = 1.5) +
  geom_point(aes(y = hp), color = "#292753", size = 3) +
  scale_x_continuous(breaks = 2010:2020) +
  scale_y_comma() +
  labs(title = 'something',
       subtitle = 'something',
       x = 'This axis title intentionally left blank',
       y = 'This axis title intentionally left blank',
       caption = 'something')+
  geom_label(aes(y=disp,label=carb))+
  geom_label(aes(y=hp,label=carb))

在此图和数据中发布了一个示例，其中包括mtcars数据集和数据，通常最好将数据集重新设计为长格式，以便更容易要管理传奇，颜色和其他ggplot选项