使用 ggplot2 scale_colour_discrete 的稳定映射：drop 不起作用？

Question

当使用 ggplot 并尝试为不同绘图中的类别设置稳定的颜色映射时，如何使 drop=TRUE 在 scale_colour_discrete 中工作（因此图例仅包含子集中存在的类别）？

此问题链接到 this one and especially this 评论。

在链接问题中从 one of the answers 借用的可重现代码：

set.seed(2014)
library(ggplot2)
dataset <- data.frame(category = rep(LETTERS[1:5], 100),
                      x = rnorm(500, mean = rep(1:5, 100)),
                      y = rnorm(500, mean = rep(1:5, 100)))
dataset$fCategory <- factor(dataset$category)
subdata <- subset(dataset, category %in% c("A", "D", "E"))
ggplot(dataset, aes(x = x, y = y, colour = fCategory)) + geom_point()
ggplot(subdata, aes(x = x, y = y, colour = fCategory)) + geom_point() + 
       scale_colour_discrete(drop=TRUE,limits = levels(dataset$fCategory))

为什么 drop=TRUE 在第二个情节中不起作用？图例仍然包含所有类别。

来自sessionInfo()的输出：

R version 3.1.2 (2014-10-31)
Platform: x86_64-w64-mingw32/x64 (64-bit)

locale:
[1] LC_COLLATE=English_United Kingdom.1252  LC_CTYPE=English_United     Kingdom.1252   
[3] LC_MONETARY=English_United Kingdom.1252 LC_NUMERIC=C                           
[5] LC_TIME=English_United Kingdom.1252    

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

other attached packages:
[1] ggplot2_1.0.0

loaded via a namespace (and not attached):
[1] colorspace_1.2-4 digest_0.6.8     grid_3.1.2       gtable_0.1.2         labeling_0.3    
[6] MASS_7.3-35      munsell_0.4.2    plyr_1.8.1       proto_0.3-10         Rcpp_0.11.3     
[11] reshape2_1.4.1   scales_0.2.4     stringr_0.6.2    tools_3.1.2

Answer 1

这要么是对 drop 功能的误解（不幸的是，帮助条目没有提供太多细节），要么是一个错误。但是，我建议完全删除 drop（双关语）并同时设置 limits 和 breaks:

ggplot(subdata, aes(x = x, y = y, colour = fCategory)) + geom_point() + 
  scale_colour_discrete(limits = levels(dataset$fCategory), 
                        breaks = unique(subdata$fCategory))

颜色设置一致，图例没问题

使用 ggplot2 scale_colour_discrete 的稳定映射：drop 不起作用？

Stable mapping with ggplot2 scale_colour_discrete: drop does not work?

r

ggplot2