根据一列中的值从数据框中删除行

Question

我有一个数据框（从csv文件导入），如下所示

moose     loose     hoose
   2        3         8
   1        3         4
   5        4         2
   10       1         4

R代码应生成一个均值列，然后我要删除均值小于4的所有行，从而得到以下结果：

 moose     loose     hoose     mean 
   2        3         8        4.3
   1        3         4        2.6
   5        4         2        3.6
   10       1         4         5

最终应为：

  moose     loose     hoose    mean 
    2        3         8       4.3
    10       1         4        5

我如何在R中做到这一点？

Answer 1

 dat2 <- subset(transform(dat1, Mean=round(rowMeans(dat1),1)), Mean >=4)
 dat2
  # moose loose hoose Mean
 #1     2     3     8  4.3
 #4    10     1     4  5.0

使用data.table

 setDT(dat1)[, Mean:=rowMeans(.SD)][Mean>=4]
 #  moose loose hoose     Mean
 #1:     2     3     8 4.333333
 #2:    10     1     4 5.000000

Answer 2

我假设您的数据称为d 。 然后，您运行：

d$mean <- rowMeans(d)  ## create a new column with the mean of each row
d <- d[d$mean >= 4, ]  ## filter the data using this column in the condition

我建议您阅读有关在data.frame创建变量和过滤数据的信息。 这些是非常常见的操作，可以在许多情况下使用。

Answer 3

您还可以within使用，它允许您分配/删除列，然后返回转换后的数据。 以df开头

> df
#  moose loose hoose
#1     2     3     8
#2     1     3     4
#3     5     4     2
#4    10     1     4

> within(d <- df[rowMeans(df) > 4, ], { means <- round(rowMeans(d), 1) })
#  moose loose hoose means
#1     2     3     8   4.3
#4    10     1     4   5.0