ggplot标签上的卷曲卷曲

Question

我在 ggplot 的实验室中使用 curly curly，它似乎不起作用，如何在尝试 #2 中的 ggplot 实验室中使用标签。对于 Try#3，我想通过函数中的 purr 传递所有数值变量。

尝试 #1 - 这行得通

library(tidyverse)

myplot <- function(df,col) {
  df %>% 
  ggplot(aes(x={{col}}))+
  geom_histogram()+
   # labs(title=paste0("Histogram for ",{{col}}))+
    theme_classic()
}

myplot(iris,Sepal.Length)

尝试 #2 - 这不起作用

myplot <- function(df,col) {
  df %>% 
  ggplot(aes(x={{col}}))+
  geom_histogram()+
   labs(title=paste0("Histogram for ",{{col}}))+
    theme_classic()
}

myplot(iris,Sepal.Length)

尝试 #3 - 这也不起作用

myplot <- function(df,col) {
  df %>% 
  ggplot(aes(x={{col}}))+
  geom_histogram()+
  theme_classic()
}

iris[,-5] %>% 
  map(myplot)

Answer 1

如果您可以将列名作为字符串传递。

library(ggplot2)
library(purrr)

myplot <- function(df,col) {
  df %>% 
    ggplot(aes(x=.data[[col]]))+
    geom_histogram()+
    labs(title=paste0("Histogram for ",col))+
    theme_classic()
}

list_plot <- map(names(iris)[-5], ~myplot(iris, .))

Answer 2

您可以使用老式的deparse(substitute(...)) 将符号捕获为文本。

library(tidyverse)

myplot <- function(df,col) {
  df %>% 
    ggplot(aes(x={{col}}))+
    geom_histogram()+
    labs(title=paste0("Histogram for ", deparse(substitute(col))))+
    theme_classic()
}

myplot(iris,Sepal.Length)
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

^{由reprex package (v1.0.0) 于 2021-08-20 创建}

Answer 3

另一种选择是使用rlang::as_label(rlang::enquo(col))：

library(ggplot2)

myplot <- function(df, col) {
  ggplot(df, aes(x={{col}}))+
    geom_histogram()+
    labs(title=paste0("Histogram for ", rlang::as_label(rlang::enquo(col)))) +
    theme_classic()
}

myplot(iris,Sepal.Length)
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.

如果您想遍历多个列，一种选择是稍微重写您的函数以利用来自rlang 的.data 代词并遍历列名：

myplot2 <- function(df, col) {
  ggplot(df, aes(x = .data[[col]]))+
    geom_histogram()+
    labs(title=paste0("Histogram for ", col)) +
    theme_classic()
}

p <- purrr::map(names(iris[,-5]), myplot2, df = iris)

p[[2]]
#> `stat_bin()` using `bins = 30`. Pick better value with `binwidth`.