Question

我的数据框有许多具有共同前缀的列＆＃34; _B＆＃34; e，g＆＃39; _B1＆＃39;，＆＃39; _B2＆＃39;，...＆＃39; _Bn＆＃39;。这样我就可以通过以下方式获取列名：

allB <- c(grep( "_B" , names( my.df ),value = TRUE ) )

我希望选择每个_B *列通过单个条件的行，例如值＆gt; = some_cutoff

有人能说出如何做到这一点，我的努力与所有（）＆＃39;和＆＃39;任何（）＆＃39;失败

set.seed(12345)     
my.df <- data.frame(a = round(rnorm(10,5),1), m_b1= round(rnorm(10,4),1),m_b2=round(rnorm(10,4),1))
allB <- c(grep( "_b" , names( my.df ),value = TRUE ) )
> my.df
     a m_b1 m_b2
1  5.6  3.9  4.8
2  5.7  5.8  5.5
3  4.9  4.4  3.4
4  4.5  4.5  2.4
5  5.6  3.2  2.4
6  3.2  4.8  5.8
7  5.6  3.1  3.5
8  4.7  3.7  4.6
9  4.7  5.1  4.6
10 4.1  4.3  3.8

我希望选择每个m_b1和m_b2列为＆gt; = 4.0

的行

Answer 1

我们可以使用filter_at中的dplyr，并指定all_vars（如果行中的所有值都符合条件。如果它是行中的任何值，则会是any_vars）

library(dplyr)
my.df %>%
   filter_at(allB, all_vars(. >= some_cutoff))

数据

some_cutoff <- 3
my.df <- structure(list(`_B1` = c(1, 1, 9, 4, 10), `_B2` = c(2, 3, 12, 
 6, 12), V3 = c(3, 6, 13, 10, 13), V4 = c(4, 5, 16, 13, 18)), .Names = c("_B1", 
 "_B2", "V3", "V4"), row.names = c(NA, -5L), class = "data.frame")

allB <- grep( "_B" , names( my.df ),value = TRUE )

Answer 2

在基地R：

some_cutoff = 4
selectedCols <- my.df[grep("_b", names(my.df), fixed = T)]
selectedRows <- selectedCols[apply(selectedCols, 1, 
                                   function(x) all(x>=some_cutoff)), ]

selectedRows
#   m_b1 m_b2
# 2  5.8  5.5
# 6  4.8  5.8
# 9  5.1  4.6

grep()用于获取具有感兴趣模式的列的索引，然后将其用于子集my.df。 apply()在第二个参数MARGIN = 1时迭代行。如果条目匹配条件TRUE，则匿名函数返回all()。然后，该逻辑向量用于子集selectedCols。

R：根据多列中的值选择行

2 个答案:

数据