我创建了一个绘图函数，希望将其应用于数据框列表。
plot.sets <- function(x){
split(x, x$Set) %>%
lapply(FUN=my.function) -> y
grid.arrange(grobs=y)
}
这可以正常工作，并生成几页的排列图。但是，我希望每个页面上的主标题都不同。具体来说，我想做这样的事情：
plot.sets <- function(x){
split(x, x$Set) %>%
lapply(FUN=my.function) -> y
grid.arrange(grobs=y, top=c("Sets for", x$ID))
}
例如，ID为3的页面的标题为“ Sets for 3”。但是，当我使用此代码时，每个页面的标题仅显示“ Sets for”，并且没有ID号。有什么建议么？
我们需要paste功能内的元素
plot.sets <- function(x){
split(x, x$Set) %>%
lapply(FUN=my.function) -> y
grid.arrange(grobs=y, top=paste("Sets for", x$ID))
}
本文收集自互联网，转载请注明来源。
如有侵权，请联系 [email protected] 删除。
我来说两句