dplyr 和 ggplot 管道未按预期工作

Question

我找不到以下两个问题的解决方案：

首先我试试这个：

library(tidyverse)
gg <- mtcars %>% 
      mutate(group=ifelse(gear==3,1,2)) %>%      
      ggplot(aes(x=carb, y=drat)) + geom_point(shape=group)

Error in layer(data = data, mapping = mapping, stat = stat, geom = 
GeomPoint,:object 'group' not found

这显然是行不通的。但是使用类似.$group 的东西也不成功。值得注意的是，我必须从aes() 指定外部形状

第二个问题是这样的。我无法在管道中调用已保存的 ggplot (gg)。

gg <- mtcars %>% 
      mutate(group=ifelse(gear==3,1,2)) %>%      
      ggplot(aes(x=carb, y=drat)) + geom_point()


    mtcars %>% 
        filter(vs == 0) %>% 
        gg + geom_point(aes(x=carb, y=drat), size = 4)  

Error in gg(.) : could not find function "gg"

感谢您的帮助！

编辑

找了很久才找到解决办法here。必须在 {} 中设置完整的 ggplot 术语。

mtcars %>% 
   mutate(group=ifelse(gear==3,1,2)) %>% {     
   ggplot(.,aes(carb,drat)) +
       geom_point(shape=.$group)}

Answer 1

如果您将shape 定义包装在aes() 中，您可以获得所需的行为。要在aes() 之外使用shape，您可以将其传递给单个值（即shape=1）。另请注意，group 被转换为离散变量，geom_point 在将连续变量传递给shape 时会引发错误。

library(tidyverse)

gg <- mtcars %>% 
  mutate(group=ifelse(gear==3,1,2)) %>%      
  ggplot(aes(x=carb, y=drat)) + 
  geom_point(aes(shape=as.factor(group)))

gg

其次，%>% 运算符，当被称为lhs %>% rhs 时，假定rhs 是一个函数。因此，如错误所示，您将 gg 作为函数调用。将绘图作为数据帧上的函数调用（即gg(mtcars)）不是有效的操作。

有关如何使用{} 完成从 magrittr 管道向现有ggplot 对象添加层的问题，请参阅@docendo discimus 评论。