R图中的颜色指示答案

【问题标题】：Colour indication in the R plotR图中的颜色指示
【发布时间】：2020-10-03 22:28:55
【问题描述】：

尝试在 R 绘图的底部添加一些注释，以显示图表中使用的颜色和线型。尝试使用 mtext() 函数，但这只允许我添加文本，而不是行类型。有什么方法可以添加这些颜色注释吗？

【问题讨论】：

嗨杰森。这是一个基本的 R 图吗？图像是您制作的，还是您正在尝试制作的图像？也许您的绘图数据和代码的一个小样本可以让其他人帮助您？
嗨，这只是基本的 R 图。

标签： r

【解决方案1】：

试试这个方法。下次请听从@AllanCameron 的建议。有很多人想帮助您，但我们需要分析您的数据以发现问题。在这里，我使用了一些类似于图中所示的虚拟数据。接下来为您的问题提供一种方法。如果您想要数据系列的描述，您可以添加图例。这也可以使用实际代码中使用的ggplot2 来完成：

library(ggplot2)
#Data
df <- data.frame(Year=2000:2009,
                 Positive=runif(10,0,1),
                 Negative=runif(10,-1,0),
                 Average=cumsum(seq(-0.5,1,length.out = 10)))
#Plot
ggplot(df,aes(x=factor(Year),y=Positive))+
  geom_line(aes(y=Average,group=1,color='Average'),size=1)+
  geom_bar(stat='identity',color='black',aes(fill='Positive'),show.legend = T)+
  geom_bar(aes(y=Negative,fill='Negative'),stat='identity',color='black')+
  scale_fill_manual("",values=c('red','blue','white'))+
  scale_color_manual("",values = 'black')+
  theme_bw()+
  theme(legend.position = 'bottom',legend.key.height = unit(0.001,'mm'))+
  xlab('Year')+labs(caption = 'Your Info')

输出：

您可以调整键大小以使其更薄。

【讨论】：