如何在ggplot的geom_polygon中正确填充颜色？答案

【问题标题】：How to fill colors correctly in geom_polygon in ggplot?如何在ggplot的geom_polygon中正确填充颜色？
【发布时间】：2017-07-17 19:58:21
【问题描述】：

我正在尝试绘制散点图，然后覆盖一些多边形并在 ggplot 2 中用特定颜色填充多边形，但在获取正确的填充颜色时遇到了一些问题。我可以绘制散点图和多边形，并将散点图和多边形的边界着色相同，但是当我尝试填充多边形时，它们总是会出现不同的颜色或给我错误。

我的数据是这样的，

id       lat     long group
Ak 0.5109300 30.43713       1
Ak 0.5109300 30.43713       2
An 0.4709994 30.43434       1
An 0.4860330 30.44015       2
At 0.4956100 30.44610       2
At 0.4938700 30.44640       2
At 0.4837816 30.44658       3
Be 0.4932194 30.43455       3
Bo 0.4922330 30.44582       1
Bo 0.4922330 30.44582       3
cb 0.4929994 30.44486       5
de 0.4926486 30.45684       5
de 0.5000001 30.45331       5
eg 0.4854526 30.46824       6
eh 0.4765586 30.46987       6
gh 0.4822123 30.54835       7

我有两个颜色列表，一个用于散点图中的点，一个用于多边形的边框和填充，之所以有两个列表，是因为我通过数据列网络对点进行分组，并希望在所有级别为 1 -5（但不是 6 和 7）的点周围绘制多边形。所以我创建了以下颜色列表

col_list<-c("#FF222C", "#1DFBFF", "#FDFF24", "#2CFF18", "#FF38F4", "#C3C4C9", "#000000")
col_list5<-c("#FF222C", "#1DFBFF", "#FDFF24", "#2CFF18", "#FF38F4")

我用

绘制情节

g<-ggplot(data= samples, aes(x=long, y=lat))+
geom_point(color = col_list[samples$group])+
theme(panel.grid.major=element_blank(), 
panel.grid.minor=element_blank(), 
panel.background = element_blank(),
panel.border = element_rect(colour = "black", fill=NA, size=1))

然后我使用以下代码生成多边形

 library(plyr)
 samples_group1_5<-subset(samples, network < 6)

 find_hull <- function(samples_group1_5)    samples_group1_5[chull(samples_group1_5[,3], samples_group1_5[,2]), ]
hulls <- ddply(samples_group1_5, "group", find_hull)
g.col <- col_list5[hulls$group]

然后用

覆盖多边形

g+
geom_polygon(data = hulls, alpha = 0.5, aes(fill=factor(group))) +  
geom_polygon(data = hulls, alpha = 0, aes(group=factor(group)), colour=g.col)

一切正常，除了填充颜色不同，边框和点都相同，颜色正确，但我无法匹配填充颜色。

【问题讨论】：

Error in eval(expr, envir, enclos) : object 'network' not found.

标签： r ggplot2 polygon

【解决方案1】：

您正在尝试通过将颜色向量直接用作col 参数来将基本绘图方法应用于ggplot。使用正确的 ggplot 方法将颜色映射到 data.frame 中的变量要容易得多。这就是我要做的：

首先，计算船体（你的代码对我不起作用）：

library(dplyr)

hulls <- samples %>% 
  group_by(group) %>% 
  do(.[chull(.[2:3]), ])

那么我们只需要两层，以及一个离散的 (factor) 映射到 group 的 col 和 fill：

p <- ggplot(samples, aes(x = long, y = lat, col = factor(group), fill = factor(group)))+
  geom_polygon(data = hulls, alpha = 0.3) +
  geom_point()

自动给你一些漂亮的颜色，你就可以免费获得一个传奇！

现在，如果我们想使用您的颜色，我们必须引入比例：

p +
  scale_color_manual(values = col_list) +
  scale_fill_manual(values = col_list)

如果您想在调色板中保留缺失的组 (4)，则需要为 values 使用命名向量，因此在这种情况下您可以提供 setNames(col_list, 1:7)。

【讨论】：