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的長度錯誤

回答

相關問題