代码之家 › 专栏 › 技术社区 › J.Con

带有dplyr和ggplot-r的唯一轴标签

purrr dplyr ggplot2 r

J.Con · 技术社区 · 8 年前

我正在使用 purrr 使多重 ggplot2

我最好的尝试(下面)是只能得到字符串的第一个值,所以所有3个图的X轴都表示 1% explained variance ,当我想要三个不同的名字 1%解释差异 , 2% explained variance 和 3% explained variance . 谢谢你

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=''))
  )

1 回复 | 直到 8 年前

akrun 8 年前

在 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")

推荐文章

Amp · 使用R ggplot2删除geom_radial中axis.line和panel.border之间的空格

1 年前

Hard_Course · 用另一列中的值替换行的最后一个非NA条目

1 年前

Mark R · 使用geom_sf()删除地球仪上不需要的网格线

1 年前

Joe · 根据对工作日和本周早些时候的日期的了解,找到一个日期

1 年前

Ben · 统计向量中的单词在字符串中出现的频率

1 年前

TheCodeNovice · R中符号格式的尾随零和其他问题[重复]

1 年前

katefull06 · 在R中使用terra修改范围时,会为单独的SpatRaster重写范围

1 年前

dez93_2000 · 在R管道子功能中引用管道对象的当前状态

1 年前

accibio · 在ggplot2中为同一变量创建两个连续的颜色渐变比例

1 年前

Mankka · 如何在Ggplot2中绘制均匀的径向图

1 年前