使用索引数据框从数据框中提取值 - R

Joh*_*lee 2 r data-manipulation

我有一个有用信息的数据框:

X = c(1,2,3,4,5,6,7,8,9,10)
Y = c(5,4,3,2,1,0,1,2,3,4)
Z = c(11,12,13,14,15,16,17,18,19,20)

df <- data.frame(X, Y, Z)
Run Code Online (Sandbox Code Playgroud)

以及行和列位置的数据框:

row <- c(6,2,5)
column <- c(1,2,3)


pos <- data.frame(row, column)
Run Code Online (Sandbox Code Playgroud)

我想使用一些fun使用列和行位置的函数()pos来返回df占据这些位置的值,例如

fun(df, pos$row, pos$column)
[1] 6 4 15
Run Code Online (Sandbox Code Playgroud)

我以为我可以这样做,但无济于事

df[c(pos$row),c(pos$col)]
Run Code Online (Sandbox Code Playgroud)

akr*_*run 5

行/列索引用作 a matrix,因此我们将 'pos' 转换为 amatrix并将其用作行/列索引以提取值。

df[as.matrix(pos)]
Run Code Online (Sandbox Code Playgroud)

或以其它方式,cbind的“POS”作为列cbindvector小号返回一个matrix

df[cbind(pos$row, pos$column)]
Run Code Online (Sandbox Code Playgroud)

这可以转换为函数

fExtract <- function(dat, indexDat){
                 dat[as.matrix(indexDat)]
            }
fExtract(df, pos)
#[1]  6  4 15
Run Code Online (Sandbox Code Playgroud)