在ggplot2中更改图例属性

时间:2015-09-28 11:31:08

标签: r ggplot2

我对ggplot2比较陌生,想知道是否有一种简单的方法来改变传奇图。我在我的数据框中添加了一个虚拟变量(以下示例中的AEmpty),该变量考虑了上一个答案后Control column widths in a ggplot2 graph with a series and inconsistent data之后因子数不均匀的间距和条宽。这似乎是最简单的方法 - 尽管可能会以另类方式提出评论或答案,欢迎使用!

所以在下面的例子中,我得到一个看起来像这样的情节输出。 enter image description here

我的问题是(1)有没有办法从'之后'选择灰度,从而最大化显示的条之间的颜色对比度? (2)在图例中,如何删除AEmpty?我在这里看到了一个类似的问题How do I manually change the key labels in a legend in ggplot2,但这里的答案不起作用,因为我已在其他地方应用了填充函数,而scale_fill_discrete不起作用。

此外,如果有人知道缩放x轴因子的简单方法,从而消除了对这个“虚拟”变量的需求,我们将非常感谢答案。最终,期望的输出是条形图,其中每个条具有相等的宽度,并且x轴上的每个“位置”等间隔,仅在键中显示相关因子。

library(ggplot2)
#Create data
when <- as.factor(c(rep(c("Before","After"),each = 3),
      rep("During", 2),"AEmpty"))
site <- as.factor(c(rep(c("a","b","c"), 2),
      "b","a","c"))
mean <- c(6,4.5,4.5,1.75,3.25,2.5,3,0,0)
std_error <- c(2.31,1.04,0.5,0.63,1.70,1.32,1.53,NA,NA)
df <- data.frame(when,site,mean,std_error)
#Plot 
limits <- aes(ymax = mean + std_error, ymin=mean-std_error)
g <- ggplot(df, aes(site,mean,fill=when)) + geom_bar(stat = "identity", position = position_dodge()) + geom_errorbar(limits, width = 0.25, position = position_dodge(width = 0.9)) + scale_fill_grey()
g 

1 个答案:

答案 0 :(得分:1)

我不完全确定你的意思是:“我已经在其他地方应用了填充功能”。由于fill每个图表只能显示一次,因此您可以将breakslabels合并到“其他填充函数”中,此处不会显示。

下面的代码可以为您提供的示例执行以下操作:

library(ggplot2)
# Create data
when <- as.factor(c(rep(c("Before","After"),each = 3),
                    rep("During", 2),"AEmpty"))
site <- as.factor(c(rep(c("a","b","c"), 2),
                    "b","a","c"))
mean <- c(6,4.5,4.5,1.75,3.25,2.5,3,0,0)
std_error <- c(2.31,1.04,0.5,0.63,1.70,1.32,1.53,NA,NA)
df <- data.frame(when,site,mean,std_error)

# Plot 
limits <- aes(ymax = mean + std_error, ymin=mean-std_error)

ggplot(df, aes(site,mean,fill=when)) +
  geom_bar(stat = "identity", position = position_dodge()) +
  geom_errorbar(limits, width = 0.25, position = position_dodge(width = 0.9)) +
  scale_fill_manual(values = c("AEmpty" = "grey1",
                               "After" = "grey15",
                               "Before" = "grey55",
                               "During" = "grey75"),
                    breaks = c("After", "Before", "During"),
                    labels = c("After", "Before", "During")) 

要选择灰色阴影,请咨询this list of R-colours