ggplot使用咕噜声map（）来绘制相同的x与多个y的

Question

我想创建使用purrr软件包方法具有相同x但不同y的多个图。也就是说，我想使用map（）或walk（）函数来执行此操作。

为简单起见使用mtcars数据集。

ggplot(data = mtcars, aes(x = hp, y = mpg)) + geom_point() 
ggplot(data = mtcars, aes(x = hp, y = cyl)) + geom_point() 
ggplot(data = mtcars, aes(x = hp, y = disp)) + geom_point() 

编辑 到目前为止，我已经尝试

y <- list("mpg", "cyl", "disp") 
mtcars %>% map(y, ggplot(., aes(hp, y)) + geom_point() 

Answer 1

这是一种可能性

ys <- c("mpg","cyl","disp") 
ys %>% map(function(y) 
    ggplot(mtcars, aes(hp)) + geom_point(aes_string(y=y))) 

它就像任何其他的地图功能，你只需要正确配置美学在函数中。