r - ggplot 标签上的 curl curl

Question

我在 ggplot 的实验室中使用 curl curl ，它似乎不起作用，如何在 Try #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, .))