R 将收件箱变量传递给ggplot 2函数

发布于05月06日

Problem:

无法解析传递给ggplot 2的DF变量scale_y_continous

Aim:

动态执行具有比例的次轴.

我的解决办法目前是手动编写总和，这不是最好的方法，或者将DF保存在变量中并使用df$count访问它

询问:

如何动态访问DF变量.$count？

Reproducable Example:

mtcars %>% 
  group_by(gear) %>% 
  summarise(count = n()) %>% 
  {
  ggplot(data = . , aes(x = gear, y = count)) +
  geom_col() +
  coord_flip() +
  
  scale_y_continuous(labels = comma_format(),
                     sec.axis = sec_axis(~./32, #sum(.$count), 
                                         labels = scales::percent,
                                         name = "proportion")
                     ) 
  }

Reference: How do I access the data frame that has been passed to ggplot()?

推荐答案

混淆是因为transform对sec_axis()的参数需要:

严格单调变换的公式或函数

您正在使用带有 ~ . / 32的公式符号.这意味着.指的是轴值，它掩盖了.，后者通常指的是您用%>%管道传输的对象.

避免这种情况的最简单方法是使用匿名函数而不是公式符号:

mtcars %>%
    group_by(gear) %>%
    summarise(count = n()) %>%
    {
        ggplot(data = ., aes(x = gear, y = count)) +
            geom_col() +
            coord_flip() +
            scale_y_continuous(
                labels = comma_format(),
                sec.axis = sec_axis(
                    \(x) x / sum(.$count), # this is the only changed line
                    labels = scales::percent,
                    name = "proportion"
                )
            )
    }