如何从data.frame的每一行中提取不同的列？

Question

使用位置索引，例如：

> i <- c(3,1,2) 

如何使用索引来提取从data.frame的第一行的第三值，从第二行上的第一值，从所述第二值第三行，等等

例如，使用上述的索引和：

> dframe <- data.frame(x=c("a","b","c"), y=c("d","e","f"), z=c("g","h","i")) 

> dframe 
    x y z 
1 a d g 
2 b e h 
3 c f i 

我想返回：

> [1] "g", "b", "f" 

Answer 1

只需使用矩阵索引，就像这样：

dframe[cbind(seq_along(i), i)] 
# [1] "g" "b" "f" 

的cbind(seq_along(i), i)部分创建要提取相关的行和列的两列的矩阵。

Answer 2

如何：

Df <- data.frame(
    x=c("a","b","c"), 
    y=c("d","e","f"), 
    z=c("g","h","i")) 
## 
i <- c(3,1,2) 
## 
index2D <- function(v = i, DF = Df){ 
    sapply(1:length(v), function(X){ 
    DF[X,v[X]] 
    }) 
} 
## 
> index2D() 
[1] "g" "b" "f"