r - 将行值与列名匹配并在 R 中提取值

Question

我有一个表，我需要在其中选择 Data 列中的所有值，与列名匹配并从该行中获取值。前任。数据列:选择A1，找到同名的列名(A1)取值(1)，选择A3，找到同名的列名(A3)取值(11)打印到表中。

有人可以帮助我，我是 R 新手，不知道从哪里开始。

A1  A2  A3   Data
1   5   9   A1  
2   6   10  A2
3   7   11  A3
4   8   12  A4

Answer 1

如果您使用 row.names 作为数据列创建 data.frame，那么它可以很简单:

mydf <- read.table(text = "A1 A2 A3 Data 
1 5 9 A1
2 6 10 A2 
3 7 11 A3 
4 8 12 A4", header = TRUE, row.names = "Data")

sapply(row.names(mydf), function(x) mydf[[x, x]])
## $A1
## [1] 1
## 
## $A2
## [1] 6
## 
## $A3
## [1] 11
## 
## $A4
## NULL
## 

mydf[x,x]简单地返回我的 df 元素，在名称为 x 的行和名称为 x 的列中。您可能需要调整此输出以匹配您的目标。