Question

我在 ggplot 中创建了一个图，其中包含四个不同的单独 geom_line 图（即我的数据框采用宽格式）。我希望在图的末尾添加一个文本框，给出标签名称，并说明该图与第一次观察相比发生了多少百分比变化。

我知道如何在行尾添加常规文本（甚至是带有标签名称的小文本框），但是我需要两个在其他地方找不到答案的功能（即未回答{{3 }} 例如，即数据以宽格式设置，并且文本框应包含与标签/列名称无关的8-12个单词

下面是一些重新创建我将在代码中使用的数据集的基本代码

df <- data.frame("Year" = 2011:2020, a = seq(1,10,1), b = seq(2,13, length.out = 10))


p <- ggplot(df, mapping = aes(Year,a), linetype = "dotted") + 
  geom_line(colour = "blue", linetype = "dotted") +
  geom_line(df, mapping = aes(Year,b), colour = "black", linetype = "dotted") +
  labs(title="Predicted y", 
       subtitle="Subtitle", 
       y="Y name", 
       color=NULL) +
  theme(panel.grid.major = element_blank(), panel.grid.minor = element_blank(),
        panel.background = element_blank(), axis.line = element_line(colour = "black"))

在单个 geom_line 图的末尾添加一个多行文本框

0 个答案: