r - `geom_abline` 和 `facet_wrap` 似乎不兼容

Question

我在使用 geom_abline 时遇到错误在与 facet_wrap 相同的情节中或 facet_grid ，我不明白为什么。例如

# Example data
ex <- data.frame(x=1:10, y=1:10, f=gl(2, 5))

ggplot() + 
  geom_point(data=ex, aes(x=x, y=y)) +
  geom_abline(slope=1, intercept=0) + 
  facet_wrap(~f)

原因 Error in if (empty(data)) { : missing value where TRUE/FALSE needed .

上面我在geom_point中设置了数据层，因为稍后我将添加来自不同数据框的数据。这与问题有关，因为当我在基础层中设置数据时，我得到了不同的错误:

ggplot(ex, aes(x=x, y=y)) + 
  geom_abline(slope=1, intercept=0) +
  facet_wrap(~f)

Error in as.environment(where) : 'where' is missing

解决方法

有一个简单的解决方法:如果我制作一个数据框来定义 1:1 线并使用 geom_line 绘制它我得到的情节与我从 geom_abline 得到的情节基本相同。 ...

# Define a 1:1 line with data
one_to_one <- data.frame(xO=range(ex$totalcells), yO=range(ex$totalcells))

# Plot the 1:1 line with geom_line
ggplot() + 
  geom_point(data=ex, aes(x=x, y=y)) +
  geom_line(data=one_to_one, aes(x=xO, y=yO), colour="black") +
  facet_wrap(~f)

...所以这个问题更多的是关于为什么会出现这些错误(以及它们是否代表错误或预期行为)，而不是如何解决问题。

Answer 1

以下作品:

ggplot(ex, aes(x=x, y=y)) + geom_point() + 
  geom_abline(slope=1, intercept=0) +
  facet_wrap(~f)

请注意我根据您的第二个示例添加的附加 geom_point()。