r - 基于 R 中的分类行值的子集

Question

如果我有一个包含描述列的分类行的数据框，我如何根据这些值对其进行子集化？这是我的数据：

     name1 name2 name3
cond   trt  ctrl  ctrl
hour     0     3     0
A        1     1     1
B        2     2     2
C        3     3     3
D        4     4     4
E        5     5     5
F        6     1     6
G        7     2     7
H        8     3     8
I        9     4     9
J       10     5    10

用这一行重新创建它：

A <- structure(list(name1 = c("trt", "0", "1", "2", "3", "4", "5", 
"6", "7", "8", "9", "10"), name2 = c("ctrl", "3", "1", "2", "3", 
"4", "5", "1", "2", "3", "4", "5"), name3 = c("ctrl", "0", "1", 
"2", "3", "4", "5", "6", "7", "8", "9", "10")), .Names = c("name1", 
"name2", "name3"), row.names = c("cond", "hour", "A", "B", "C", 
"D", "E", "F", "G", "H", "I", "J"), class = "data.frame")

这是我尝试过的：

subset(A, ( A[1,] == 'trt' & A[2,] == 0 ))

我无法解释的结果。为什么这个？：

     name1 name2 name3
cond   trt  ctrl  ctrl
B        2     2     2
E        5     5     5
H        8     3     8

我想要的是：

     name1 
cond   trt  
hour     0  
A        1  
B        2  
C        3 
D        4  
E        5  
F        6  
G        7  
H        8  
I        9 
J       10 

谢谢你。如果“条件”和“小时”的类别是因素，这可能会更容易。或者如果数据被“融化”了。我愿意接受任何建议。

Answer 1

不需要使用子集。做就是了：

A <- A[,1,drop=FALSE]

或者，如果您不想对列号进行硬编码：

A[,A[1,] == 'trt' & A[2,] == 0,drop = FALSE]

Answer 2

除了直接子集 with 之外[ ]，您还可以使用subset's select 参数来选择列

> subset(A, TRUE, select=( A[1,] == 'ctrl' & A[2,] == 3 ))
     name2
cond  ctrl
hour     3
A        1
B        2
C        3
D        4
E        5
F        1
G        2
H        3
I        4
J        5