为什么ggplot2图例不会结合手动填充和缩放值?

时间:2012-09-19 05:08:10

标签: r ggplot2

预期行为

如果我使用ggplot2创建一个绘图并使用单独的,比方说,形状和填充刻度来描绘数据,我希望图例将描绘“白色”填充点(看起来是空心的)和“黑色”填充点(其中看起来不是空洞的。)

在下面的示例代码中,Windows的图例项应为白色空心点,Linux的图例应为黑色点

实际行为

“操作系统”下的图例项描述了两个视觉上相同的点,这些点是明显不同的操作系统,其点在图上用不同的填充清晰地绘制。在下面的示例代码中,Windows和Linux在图例中显示为无法区分的黑色空心点,即使它们在绘图本身上的绘制方式也不同。

样本图

Sample plot with broken fill behavior in the legend http://f.cl.ly/items/2w2i09103Q2p0i3M1Y2d/BrokenFillRplot.png

示例代码

library(ggplot2)

x <- rnorm(n = 30)
y <- rnorm(n = 30)
treatment <- rep(c("red", "green", "blue"), times = 20)
operatingSystem <- rep(c("Windows", "Linux"), times = 30)

dd <- data.frame(x, y, treatment, operatingSystem)

fillScaleValues <- c(
  "Windows" = "white",
  "Linux" = "black"
)

shapeScaleValues <- c(
  "red" = 21,
  "green" = 22,
  "blue" = 23
)

p <- ggplot(
      aes(x = x, 
          y = y,
          shape = factor(treatment),
          fill = factor(operatingSystem)
      ), data = dd
     )

p <- p + geom_point()
p <- p + scale_fill_manual(values = fillScaleValues, name = "Operating System")
p <- p + scale_shape_manual(values = shapeScaleValues, name = "Treatment")

p

会话信息

R version 2.15.1 (2012-06-22)
Platform: x86_64-apple-darwin9.8.0/x86_64 (64-bit)

locale:
[1] C/en_US.UTF-8/C/C/C/C

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] ggplot2_0.9.2.1       reshape2_1.2.1        plyr_1.7.1            ProjectTemplate_0.4-2
[5] testthat_0.7         

loaded via a namespace (and not attached):
 [1] MASS_7.3-21        RColorBrewer_1.0-5 colorspace_1.1-1   dichromat_1.2-4   
 [5] digest_0.5.2       evaluate_0.4.2     grid_2.15.1        gtable_0.1.1      
 [9] labeling_0.1       memoise_0.1        munsell_0.4        proto_0.3-9.2     
[13] scales_0.2.2       stringr_0.6.1      tools_2.15.1      

1 个答案:

答案 0 :(得分:14)

您必须覆盖图例中使用的形状,如this question中所示。

因此,使用您的示例代码(顺便提一下,感谢清晰,可重现的问题),您需要做的就是:

p + guides(fill = guide_legend(override.aes = list(shape = 21)))

它可以为您提供所需内容:

Proper legend