代码之家 › 专栏 › 技术社区 › Mark

嵌套lappy的索引编号

lapply nested r

Mark · 技术社区 · 8 年前

我试图理解如何在两个列表上访问嵌套Lappy函数的外部迭代索引。

虚框:假设我在这里有一个包含2项的列表,在这里有一个包含3项的列表,并使用一个嵌套的lappy来生成变量item1\ux、item1\uy、item1\uz等。在我正在编写的代码中,我试图访问迭代索引,这是我可以为父级的内部lappy做的。frame()$i[],但如何访问外部迭代索引?

目标:我想在代码通过外lappy时打印1、2 当代码通过内部搭接时打印1、2、3 因此也可以打印外索引乘以内索引,即1,2,3,4,5,6

我正在寻找一个与父级类似的代码段。frame()$i[]访问外部迭代索引(如果存在的话),也可以更好地理解它是如何工作的,但老实说,任何其他解决方案当然都是好的

mylist <- c("item1", "item2")

  lapply(mylist, function(y) {
         lapply(c("x", "y", "z"), function(x) {
            print(parent.frame()$i[])
### access index number of outer lapply here somehow. 
###   index 1 * index 2 should be giving a print(...) of 1:6 than...

        })})

1 回复 | 直到 8 年前

CPak 8 年前

以下是几种方法

使用 mapply

mapply(function(y, z) {
                lapply(c("x", "y", "z"), function(x) {
                                            print(paste(y, x))
                                            print(z)
                                        })
        }, 
        mylist, 
        seq_along(mylist))

或仅限 lapply

lapply(seq_along(mylist),   function(y) {
                                lapply(c("x", "y", "z"), function(x) {
                                                            print(paste(mylist[y], x))
                                                        })
                            })

推荐文章

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 年前