R:根据数据帧的列中的行值删除行

Question

我有一个带有行名的dataframe a。行名是唯一的字符串名，如下所示：

       order..new..i...2.ncol.new..i.....
J.TYMO                                620
J.TTMO                               2851
J.NTT                                1972
J.ABOT                                565
J.NNDO                               1025
J.SFTB                               2509

当我执行一行代码as.data.frame(a[a[1] <= 2000])以删除小于或等于值(如2000年)的行时，我的结果不包括行名。

我希望我的代码能做这样的事情：

J.TYMO                                620
J.NTT                                1972
J.ABOT                                565
J.NNDO                               1025

相反，它这样做：

1                                620
2                                1972
3                                565
4                                1025

有什么想法吗？谢谢。

Answer 1

编辑I复制了您的错误，您需要在您的子设置中添加drop = FALSE选项才能得到结果而不是向量：

df_a <- structure(list(order..new..i...2.ncol.new..i..... = c(620L, 2851L, 1972L, 565L, 1025L, 2509L)), row.names = c("J.TYMO", "J.TTMO", "J.NTT", "J.ABOT", "J.NNDO", "J.SFTB"), class = "data.frame")
str(df_a)
#> 'data.frame':    6 obs. of  1 variable:
#>  $ order..new..i...2.ncol.new..i.....: int  620 2851 1972 565 1025 2509
names(df_a) <- "V1"

df_a[df_a[[1]] <= 1000 , , drop = FALSE]
#>         V1
#> J.TYMO 620
#> J.ABOT 565

旧答案

我认为最好的行名称-数据集是mtcars数据集。在此基础上，我发现在调用中添加逗号可以解决以下问题：

dfr <- head(mtcars)
dfr
#>                    mpg cyl disp  hp drat    wt  qsec vs am gear carb
#> Mazda RX4         21.0   6  160 110 3.90 2.620 16.46  0  1    4    4
#> Mazda RX4 Wag     21.0   6  160 110 3.90 2.875 17.02  0  1    4    4
#> Datsun 710        22.8   4  108  93 3.85 2.320 18.61  1  1    4    1
#> Hornet 4 Drive    21.4   6  258 110 3.08 3.215 19.44  1  0    3    1
#> Hornet Sportabout 18.7   8  360 175 3.15 3.440 17.02  0  0    3    2
#> Valiant           18.1   6  225 105 2.76 3.460 20.22  1  0    3    1

as.data.frame(dfr[dfr[1]<20 , ])
#>                    mpg cyl disp  hp drat   wt  qsec vs am gear carb
#> Hornet Sportabout 18.7   8  360 175 3.15 3.44 17.02  0  0    3    2
#> Valiant           18.1   6  225 105 2.76 3.46 20.22  1  0    3    1

因此，与您特有的a对象一起使用，如果它是data.frame，则答案应该是：

as.data.frame(a[a[1] <= 333 , ])

Answer 2

您将一个变量提取为向量，然后将该变量转换为数据帧。您应该只使用a[a[1] <= 333,]或subset(a, blah <= 333)来对数据进行子集。示例：

a <- `row.names<-`(data.frame(blah = 332:335, bleh = "bleh"),
                   c("row1", "row2", "row3", "row4")
                   )

#### OUTPUT ####

     blah bleh
row1  332 bleh
row2  333 bleh
row3  334 bleh
row4  335 bleh

现在有a[a[1] <= 333,]或subset(a, blah <= 333)的子集

     blah bleh
row1  332 bleh
row2  333 bleh

如果要删除小于或等于值的行(如333)，则应该使用a[a[1] > 333,]或subset(a, blah > 333)

     blah bleh
row3  334 bleh
row4  335 bleh