R ggplot 后如何使用 %T>% 管道

mtcars %>%
    ggplot(aes(x = cyl, y = mpg))+
    geom_line()

mtcars %>%
    group_by(cyl) %>% 
    summarise(mpg = mean(mpg))

# A tibble: 3 x 2
    cyl   mpg
  <dbl> <dbl>
1     4  26.7
2     6  19.7
3     8  15.1

mtcars %T>%
    ggplot(aes(x = cyl, y = mpg))+
    geom_line() %>%
    group_by(cyl) %>% 
    summarise(mpg = mean(mpg))

Error in UseMethod("group_by") : 
  no applicable method for 'group_by' applied to an object of class "c('LayerInstance', 'Layer', 'ggproto', 'gg')"

library(tidyverse)
#> Warning: package 'ggplot2' was built under R version 4.1.2
#> Warning: package 'tibble' was built under R version 4.1.2
#> Warning: package 'tidyr' was built under R version 4.1.2
#> Warning: package 'readr' was built under R version 4.1.2
#> Warning: package 'dplyr' was built under R version 4.1.2
library(magrittr)
#> Warning: package 'magrittr' was built under R version 4.1.2
#> 
#> Attaching package: 'magrittr'
#> The following object is masked from 'package:purrr':
#> 
#>     set_names
#> The following object is masked from 'package:tidyr':
#> 
#>     extract
mtcars %T>%
  {print(ggplot(., aes(x = cyl, y = mpg))+
  geom_line())} %>%
  group_by(cyl) %>% 
  summarise(mpg = mean(mpg))

#> # A tibble: 3 × 2
#>     cyl   mpg
#>   <dbl> <dbl>
#> 1     4  26.7
#> 2     6  19.7
#> 3     8  15.1

R相关问答推荐

通过Plotly绘制线串几何形状的3D图

从具有随机模式的字符串中提取值

如何将具有重复名称的收件箱合并到R中的另一列中，而结果不同？

使用对管道内单元格的引用生成新变量

工作流程_set带有Dplyrr风格的 Select 器，用于 Select 结果和预测因子R

如何使用R对每组变量进行随机化？

在数学中正确显示摄氏度、开氏度或华氏度

在R中为马赛克图中的每个字段着色

以更少间隔的较小表中的聚合离散频率表

根据类别合并(汇总)某些行

使用for循环和粘贴创建多个变量

在带有`R`中的`ggmosaic`的马赛克图中使用图案而不是 colored颜色

R：如果为NA，则根据条件，使用列名模式将缺少的值替换为另一列中的值

将全局环境变量的名称分配给列表中的所有元素

如何使用ggplot2根据绘图中生成的斜率对小平面进行排序？

Data.table：：Shift type=允许扩展数据(&Q；LAG&Q；)

附加中缀操作符

无法保存gglot的所有pdf元素

图中显示错误 colored颜色 的图例geom_sf

根据用户输入更改标记大小和 colored颜色 (R)