在ggplot2中更改图例属性

Question

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

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

我的问题是（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 

Answer 1

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

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

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。