R 遍历地块列表的列表

发布于04月09日

我有四个曲线图列表(每个列表有8个曲线图)，其中这些列表已被编译为列表. 所以，基本上是由4个列表组成的列表，其中每个子列表有8个地块.

现在，我需要8个列表作为结果；其中4个列表中的每个列表的第一个元素作为单独的列表生成.

有谁能告诉我如何使用"lApply"或"for loop"来获得所需的结果？

我try 跟踪块，但没有输出[ABC-&>；"NULL"].

PlotsA <- list(Plot1.png, Plot2.png,..., Plot8.png)
PlotsB <- list(Plot9.png, Plot10.png,..., Plot16.png) 
PlotsC <- list(Plot17.png, Plot18.png,..., Plot24.png)
PlotsD <- list(Plot25.png, Plot26.png,..., Plot32.png)

All_Plots <- list(PlotsA, PlotsB, PlotsC, PlotsD)
 
ABC <- for (i in seq_along(All_Plots)){
  for (j in length(All_Plots[[i]])){
    x = list(All_Plots[[i]][j])
    x 
  }
}
ABC

我想要的结果是……

Outcome1
[1]
Plot1.png, Plot9.png, Plot17.png, Plot25.png
Outcome2
[2]
Plot2.png, Plot10.png, Plot18.png, Plot26.png
...

诸若此类.

进一步处理包括4个地块的网格(例如，Plot1.png、Plot9.png、Plot17.png和Plot25.png).一旦我得到了上述的结果，我就可以做到这一点.

[[1]] [[1]][[1]] [1] "Plot1.png" [[1]][[2]] [1] "Plot9.png" [[1]][[3]] [1] "Plot17.png" [[1]][[4]] [1] "Plot25.png" [[2]] [[2]][[1]] [1] "Plot2.png" [[2]][[2]] [1] "Plot10.png" [[2]][[3]] [1] "Plot18.png" [[2]][[4]] [1] "Plot26.png" # ... [[8]] [[8]][[1]] [1] "Plot8.png" [[8]][[2]] [1] "Plot16.png" [[8]][[3]] [1] "Plot24.png" [[8]][[4]] [1] "Plot32.png"

PlotsA <- as.list(paste0("Plot", 1:8, ".png")) PlotsB <- as.list(paste0("Plot", 9:16, ".png")) PlotsC <- as.list(paste0("Plot", 17:24, ".png")) PlotsD <- as.list(paste0("Plot", 25:32, ".png")) All_Plots <- list(PlotsA, PlotsB, PlotsC, PlotsD)

R 遍历地块列表的列表

推荐答案

R相关问答推荐

R：对于没有数据的缓冲区，加权平均值为0

如何使用ggplot重新绘制LASO回归图？

通过绘图 Select 线串几何体并为其着色

使用lapply的重新定位功能

使用R中的Shapetime裁剪格栅文件

如何使用R中的dhrr函数将李克特量表的因子列从长转换为宽？

在R中创建一个包含转换和转换之间的时间的列

警告：lmdif：info = 0. nls. lm()函数的输入参数不正确

如何使用R对每组变量进行随机化？

如何直接从Fortran到R的数组大小？

gganimate在使用shadow_mark选项时不保留所有过go 的标记

如何直接从R中的风险分数计算c指数？

R—将各种CSV数字列转换为日期

如何在R中描绘#符号？

仅在Facet_WRAP()中的相应方面包含geom_abline()

将箭头绘制在图形外部，而不是图形内部

如何使用同比折线图中的个别日

如何使用前缀作为匹配来连接数据帧？

R仅当存在列时才发生变异

在分面的ggplot2条形图中对条形图进行排序，并省略每组未使用的系数级别