r - 带有 dplyr 和 ggplot - R 的独特轴标签

Question

我正在使用 purrr 制作多个 ggplot2 图。如何使用数字字符串为每个 x 轴指定唯一的名称？

我最好的尝试(下面)只能得到字符串的第一个值，所以当我想要三个不同的名字时，所有 3 个图的 x 轴都显示 1% explained variance 1% 解释方差、2% 解释方差 和 3% 解释方差。谢谢

library(tidyverse)

new<-c(1,2,3)

iris%>%
  split(.$Species) %>%
  purrr::map2(.y = names(.),
              ~ ggplot(data=., aes(x=Sepal.Length, y=Sepal.Width))+
                geom_point()+
                labs(x=paste(round(new,2),'% explained variance', sep=''))
  )

Answer 1

在 map2 中，我们可以将 .y 指定为 seq_along(.)，然后使用它来索引“new”，因为“new' 是一个长度为 3 的向量。

l1 <- iris %>% 
        split(.$Species) %>% 
        map2( seq_along(.), ~ 
             ggplot(data=., aes(x=Sepal.Length, y=Sepal.Width))+
                geom_point()+
                labs(x=paste(round(new[.y],2),'% explained variance', sep='')))

注意:如果我们不使用 names，则只需将“new”作为 .y 传递(这里是 list 的名称元素未被使用)

---

这些图可以保存为一个 pdf

library(gridExtra)
l2 <- map(l1, ggplotGrob)
ggsave(marrangeGrob(grobs = l2, nrow = 1, ncol =1), file = "plots.pdf")

或者将它保存为单个 png，在同一页上有多个绘图

ggsave(marrangeGrob(grobs = l2, nrow = 3, ncol =1), file = "plots.png")