Question

我正在尝试使用ggplot来显示一个因子类型向量，从0到4，我用颜色编码。矢量位于名为spat.dataframe的数据帧中，矢量为qt。

# plot
ggplot(spat.dataframe, aes(long,lat,group=group)) + # the data
  geom_polygon(aes(fill=as.factor(qt))) + # make polygons
  scale_fill_manual(values = c("0"="#F0F0F0","1"="green","2"="red","3"="blue","4"="purple"),
                    labels = c(paste0("white (",length(spat.dataframe[spat.dataframe$qt==0,]),")"),
                                 paste0("green (",length(spat.dataframe[spat.dataframe$qt==1,]),")"),
                                 paste0("red (",length(spat.dataframe[spat.dataframe$qt==2,]),")"),
                                 paste0("blue (",length(spat.dataframe[spat.dataframe$qt==3,]),")"),
                                 paste0("pink (",length(spat.dataframe[spat.dataframe$qt==4,]),")")),
                      drop=F,
                      name=NULL) +
  theme(line = element_blank(),  # remove the background, tickmarks, etc
          axis.text = element_blank(),
          axis.title = element_blank(),
          panel.background = element_blank()) +
  ggtitle(title) + 
  geom_path( colour = "#6b6b6b", size = .5 ) +
  coord_equal()

我的问题在于图例部分，因为我想要做的是显示所有图例选项，即使向量中没有列出任何图例。因此，颜色的颜色为蓝色和紫色。尝试看起来有点拉伸，但我希望它能在我的身材上，这样我也可以显示可能的值的数量以及与该值相关的多边形的数量。因此，对于我的向量qt中的值3和4，两者都为零（即blue (0)和purple (0)）。

任何建议都将不胜感激。感谢。

Answer 1

以下是mtcars的工作示例，取自ggplot2文档here。也就是说，您可以将scale_color_manual与limits参数一起使用。

在下面的评论后进行修改：limits参数非常重要，您可以将其传递给scale_color_manual或scale_fill_manual。

cols <- c("8" = "red","4" = "blue","6" = "darkgreen", "10" = "orange")
plot <- ggplot(mtcars, aes(x = mpg, y = wt, colour = factor(cyl))) + geom_point()
plot + scale_color_manual(values = cols,
                          limits = c("4", "6", "8", "10"),
                          labels = c("this", "is", "my", "test"))

这应该足以让你适应你的问题。我很难确定这可以在没有实际数据集的情况下工作，但这是一个工作的解决方案：

cols= c("0"="#F0F0F0","1"="green","2"="red","3"="blue","4"="purple")

ggplot(spat.dataframe, aes(long,lat,group=group)) + # the data
  geom_polygon(aes(fill=as.factor(qt))) + # make polygons
  scale_fill_manual(limits = c("0", "1", "2", "3", "4")
                    values = cols,
                    labels = c(paste0("white (",length(spat.dataframe[spat.dataframe$qt==0,]),")"),
                               paste0("green (",length(spat.dataframe[spat.dataframe$qt==1,]),")"),
                               paste0("red (",length(spat.dataframe[spat.dataframe$qt==2,]),")"),
                               paste0("blue (",length(spat.dataframe[spat.dataframe$qt==3,]),")"),
                               paste0("pink (",length(spat.dataframe[spat.dataframe$qt==4,]),")")),
                     drop=F,
                     name=NULL) +
  theme(line = element_blank(),  # remove the background, tickmarks, etc
    axis.text = element_blank(),
    axis.title = element_blank(),
    panel.background = element_blank()) +
  ggtitle(title) + 
  geom_path( colour = "#6b6b6b", size = .5 ) +
  coord_equal()

R：有没有办法在ggplot图例中添加未使用的数据级别？

1 个答案: