ggplot：geom_polygon - Aestetics的长度错误

我想绘制一个带有三个多边形的背景着色特定区域的散点图。它应该看起来像this。该代码工作正常与y轴上的4个变量，但抛出和错误，当我添加第五。我无法弄清楚原因。ggplot：geom_polygon - Aestetics的长度错误

的错误：

错误：美学必须是长度为1或相同的数据（5）：X，Y

的可重放代码：

library(dplyr) 
library(ggplot2) 

v1 <- c(1, 1, 1) 
v2 <- c(1, 0, 0) 
v3 <- c(1, 0, 1) 
v4 <- c(0, 1, 1) 
v5 <- c(1, 0, 1) 

xG <- c(3, 3, 3, 3, 3) 

input <- c(v1, v2, v3, v4, v5) 
df <- data_frame(values = input, 
      module = c(rep("A", length(v1)), 
         rep("B", length(v2)), 
         rep("C", length(v3)), 
         rep("D", length(v4)), 
         rep("E", length(v5)))) 

perWorkField <- df %>% 
    group_by(module) %>% 
    summarise(sums = sum(values)) %>% 
    mutate(percent = round((sums/xG) * 100, 2)) 

ggplot(data = perWorkField) + 
    geom_point(mapping = aes(x = percent, y = module)) + xlim(c(0, 100)) + 
    geom_polygon(aes(x = c(0, 30, 30, 0), y = c(0.5, 0.5, 5.5, 5.5)), 
      fill="#F5817A", 
      color = NA) + 
    geom_polygon(aes(x = c(30, 75, 75, 30), y = c(0.5, 0.5, 5.5, 5.5)), 
      fill="#FFFF0044", 
      color = NA) + 
    geom_polygon(aes(x = c(75, 100, 100, 75), y = c(0.5, 0.5, 5.5, 5.5)), 
      fill="#00FF0044", 
      color = NA) + 
    geom_point(mapping = aes(x = percent, y = module), shape = 20, size = 5) + theme_classic()

我欣赏任何建议。提前致谢！

来源

2017-09-14 jeypeu

你可以试试这个，使其工作，我更换了数据参数，以使其正常工作

ggplot() + 
    geom_point(data = perWorkField, mapping = aes(x = percent, y = module)) + xlim(c(0, 100)) + 
    geom_polygon(aes(x = c(0, 30, 30, 0), y = c(0.5, 0.5, 5.5, 5.5)), 
       fill="#F5817A", 
       color = NA) + 
    geom_polygon(aes(x = c(30, 75, 75, 30), y = c(0.5, 0.5, 5.5, 5.5)), 
       fill="#FFFF0044", 
       color = NA) + 
    geom_polygon(aes(x = c(75, 100, 100, 75), y = c(0.5, 0.5, 5.5, 5.5)), 
       fill="#00FF0044", 
       color = NA) + 
    geom_point(data = perWorkField, mapping = aes(x = percent, y = module), shape = 20, size = 5) + theme_classic()

来源

2017-09-14 07:38:06

我有点困惑，为什么这引起了一个问题，5个变量，但不与4.但是，现在工作 - 非常感谢！ – jeypeu

你有一点。在你原来的代码中，你在'ggplot（data = perWorkField）'中声明了数据，这个数据被传递并与各个geom发生冲突。从我的角度来看，这造成了麻烦。 –

既然你创建矩形阴影区域，geom_rect()可能更容易阅读/维护比geom_polygon()。

此外，annotate()可以用来避免与从数据帧继承美学问题：

ggplot(data = perWorkField) + 
    geom_point(aes(x = percent, y = module)) + 
    annotate("rect", xmin = 0, xmax = 30, ymin = 0.5, ymax = 5.5, fill = "#F5817A", color = NA) + 
    annotate("rect", xmin = 30, xmax = 75, ymin = 0.5, ymax = 5.5, fill = "#FFFF0044", color = NA) + 
    annotate("rect", xmin = 75, xmax = 100, ymin = 0.5, ymax = 5.5, fill = "#00FF0044", color = NA) + 
    geom_point(aes(x = percent, y = module), shape = 20, size = 5) + 
    theme_classic()

来源

2017-09-14 08:14:09

看起来更好，确实 - 谢谢！ – jeypeu

ggplot：geom_polygon - Aestetics的长度错误

回答

相关问题