ggplot2問geom_errorbar中不存在的審美

Question

我實際上找到答案是我的問題，但我想知道這是否是一個錯誤。

假設我有這樣的：

library(ggplot2) 
library(dplyr) 
first <- 
mtcars %>% 
    group_by(vs) %>% 
    summarise(mean = mean(mpg), 
      lower_ci = mean(mpg) - 2 * sd(mpg), 
      upper_ci = mean(mpg) + 2 * sd(mpg)) 

我可以做一個分層的情節是這樣的：

ggplot(data = mtcars, aes(x = as.factor(vs))) + 
    geom_point(aes(y = mpg), alpha = 0.2) + 
    geom_point(data = first, aes(y = mean), colour = "red") + 
    geom_errorbar(data = first, aes(ymin = lower_ci, ymax = upper_ci)) 

大，沒問題。讓我們一步一步重新創建劇情。

graph <- ggplot() 
graph <- graph + geom_point(alpha = 0.2) 
graph <- graph %+% mtcars + aes(x = as.factor(vs), y = mpg) 
graph <- graph + geom_point(data = first, aes(x = as.factor(vs), y = mean, colour = "red")) 

在這一點上，我只需要覆蓋其需要的x，ymin和ymaxaes thethics錯誤吧。但是，對象在對象的結構中具有預定義的y。出於某種原因，如果我補充一點：

graph + geom_errorbar(data = first, 
           aes(x = as.factor(vs), ymin = lower_ci, ymax = upper_ci)) 

，我會認爲這是正確的方式，它拋出一個錯誤有關aes正題的長度。當然，first數據幀具有正確的長度，所以我認爲它應該通過全局選項中的頂點。

如果我補充一點：

graph + geom_errorbar(data = first, 
           aes(x = as.factor(vs), y = NULL, ymin = lower_ci, ymax = upper_ci)) 

它修復它，並預期拋出Warning: Ignoring unknown aesthetics: y。

我會假設該對象的全局選項將認識到geom_errorbar不需要yaes正題。

我在這裏錯過了什麼嗎？

Answer 1

我在這裏錯過了什麼嗎？

不是。您確定問題正確;你只是假設還有別的東西。這是一個小bug，可能不值得修復。

我會假設對象的全局選項會認識到geom_errorbar不需要y美學。

美學默認繼承（你可以通過設置inherit.aes = FALSE避免誤差）），以及它們對現有的數據立即檢查。如果繼承的映射列不可用，因爲它不在圖層的數據框中，則會引發錯誤。

這是另一個例子。這不是從一個在你的問題真的不一樣，但它使用更常見geom S和有點簡單：

df1 = data.frame(x1 = 1:2, y1 = 3:4, ty = 'a') 
df2 = data.frame(x2 = 1, y2 = 5) 

ggplot(df1, aes(x1, y1, linetype = ty)) + 
    geom_line() + 
    geom_point(data = df2, aes(x = x2, y = y2)) 
# Error in eval(expr, envir, enclos) : object 'ty' not found 

即使geom_point不採取linetype美學，因爲沒有數據列在df2名爲ty，我們得到一個錯誤。以下，對簡單的辦法是設置inherit.aes = FALSE：

ggplot(df1, aes(x1, y1, lintype = ty)) + 
    geom_line() + 
    geom_point(data = df2, aes(x = x2, y = y2), inherit.aes = FALSE) 
## works