子集函数不是创建行的子集，而是将值更改为零

Question

我有一个包含行名和列名的数据框。

    0.01    0.02    0.03   0.04   0.05 ...  Percent
J1   458    -160    -151    -52    -67        0.53
J2   459    -163    -154    -46    -92        0.01 
J3   457    -165    -150    -51   -245        0.27
J4   402    -297    -87     -93   -122        1.00
...

我想创建一个数据子集，其中仅包含百分比列

C5.Subset<- subset(C5.Outliers, Percent<=0.5) 

我希望的输出是这样的：

    0.01    0.02    0.03   0.04   0.05 ...  Percent
J2   459    -163    -154    -46    -92        0.01 
J3   457    -165    -150    -51   -245        0.27
...

但是，我得到的输出与预期的非常不同。 R 没有创建一个排除百分比 >0.5 的行的新表，而是将这些行的百分比列中的值替换为零。这是我得到的结果表：

    0.01    0.02    0.03   0.04   0.05 ...  Percent
J1   458    -160    -151    -52    -67           0
J2   459    -163    -154    -46    -92        0.01 
J3   457    -165    -150    -51   -245        0.27
J4   402    -297    -87     -93   -122           0
...

我想实际删除这些行。我做错了什么？

仅供参考，此可重现示例的代码在输入后即可运行。我的实际数据框来自具有相同列名和行名 (dim=17x600) 的 CSV 文件。

Answer 1

对于第二个版本的问题，经过测试的回答是：

> subset( C5.Outliers, Percent < 0.5)
    X0.01 X0.02 X0.03 X0.04 X0.05 Percent
J 2   459  -163  -154   -46   -92    0.01
J 3   457  -165  -150   -51  -245    0.27

所以和 joran 一样，我认为你继续对你正在使用的对象类型撒谎。

===== 回答原始问题==========

我最初的反应是“子集仅用于向量和数据帧”，但手册另有说明。但是，如果您查看subset.matrix 的代码（此类事务的最终权威），您会发现subset.data.frame 中可爱的非标准评估技巧在矩阵方法中不存在。您需要创建一个正确的表达式，该表达式返回一个逻辑向量作为子集参数的参数，该子集参数是面向行的参数。对要选择的参数进行了一些评估，但您想要一个行选择过程。这是一个匹配你的矩阵和一个'子集'-ation的例子

mat <- structure(c(458, 459, 457, 402, -160, -163, -165, -297, -151, 
-154, -150, -87, -52, -46, -51, -93, -67, -92, -245, -122, 0.53, 
0.01, 0.27, 1), .Dim = c(4L, 6L), .Dimnames = list(c("J1", "J2", 
"J3", "J4"), c("0.01", "0.02", "0.03", "0.04", "0.05", "Percent"
)))

> subset(mat, mat[,'Percent']< 0.5)
   0.01 0.02 0.03 0.04 0.05 Percent
J2  459 -163 -154  -46  -92    0.01
J3  457 -165 -150  -51 -245    0.27

似乎更容易坚持使用“[”作为矩阵。