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)
行/列索引用作 a matrix,因此我们将 'pos' 转换为 amatrix并将其用作行/列索引以提取值。
df[as.matrix(pos)]
Run Code Online (Sandbox Code Playgroud)
或以其它方式,cbind的“POS”作为列cbind的vector小号返回一个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)