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

Sirvydas 发表于 Dev

西尔维达斯

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

这个问题是与这一种，尤其是这评论。

可复制的代码是从链接的问题的答案之一借来的：

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

托尼托诺夫

这可能是对功能的误解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))

在此处输入图片说明