使用lapply使用列表中的名称保存从列表生成的图

作者: 离线请留言
发布时间: 2024-01-25 09:12:56 (5月前)
转自：

3 条回复

0#
回复此人
trpnest | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 代码的问题在于将函数应用于每个代码时 <code> data.frame </code> 在你的 <code> list </code> 然后 <code> names(input) </code> 为您提供列的名称 <code> data.frame </code> 。看这个例子。 </p> <pre> <code> data(mtcars) l = list() l$a = mtcars[, 1:2] l$b = mtcars[, 2:3] lapply(l, names) $a [1] "mpg" "cyl" $b [1] "cyl" "disp" </code> </pre> <P> 要解决此更改，请使用第二个参数名称的函数。 </p> <pre> <code> volc = function(input, name) { ggplot(input, aes(logFC, negLogPval)) + geom_point() ggsave(paste0("Volcano_", name, ".png"), device = "png") } </code> </pre> <P> 现在你可以使用了 <code> Map </code> 实现你的目标： </p> <pre> <code> Map(volc, list, names(list)) </code> </pre> </DIV>

编辑
1#
回复此人
那年 | 2019-08-31 10-32

<div class =“post-text”itemprop =“text”> <P> 您不希望该列表中的data.frames的列名称，而是它们的名称，即 <code> names(list) </code> 。我建议迭代这些名称： </p> <pre> <code> volc = function(inputname){ ggplot(list[[inputname]], aes(logFC, negLogPval)) + geom_point() ggsave(paste0("Volcano_", inputname, ".png"), device = "png") } for (x in names(list)) volc(x) </code> </pre> </DIV>

编辑

登录后才能参与评论