我的时期`.`将使用dplyr而不是ggplot管道数据框

Question

请原谅我（可能）不正确的术语，但我会尽力而为：

library(tidyverse)
mtcars %>% 
  count(cyl) %>% 
  ungroup() %>% 
  mutate(cyl = factor(cyl, levels = .$cyl)) %>%  # line 5
  ggplot(aes(cyl, n)) + 
  scale_x_continuous(expand = c(0, 0), limits = c(0, max(.$n) * 1.1)) + 
  geom_line()

我的第 5 行将通过我使用 .$n 的语法正确地管道当前数据帧。但是第 7 行不会使用.$cyl。

我得到一个错误 "object '.'未找到”。我通过一些搜索尝试了这个包装器{max(.$n)}，但这似乎不起作用。

Answer 1

这对我有用：

     mtcars %>% 
          count(cyl) %>% 
          ungroup() %>% 
          mutate(cyl = factor(cyl, levels = .$cyl)) %>%  # line 5
          {
           ggplot(., aes(x = cyl, y = n, group = 1)) + 
            scale_y_continuous(expand = c(0, 0), limits = c(0, max(.$n) * 1.1)) + 
            geom_line()
          }