Отфильтруйте каждый столбец data.frame на основе определенного значения

Ответ 1

Вот еще один вариант с slice, который можно использовать аналогично filter в этом случае. Основное различие заключается в том, что вы отправляете целочисленный вектор в slice, тогда как filter принимает логический вектор.

df %>% slice(which(!rowSums(select(., -matches("X5")) < 2L)))

Что мне нравится в этом подходе, так это то, что, поскольку мы используем select внутри rowSums, вы можете использовать все специальные функции, которые select предоставляет, например, matches.

Посмотрите, как он сравнивается с другими ответами:

df <- data.frame(replicate(5,sample(1:10,10e6,rep=TRUE)))

mbm <- microbenchmark(
    Marat = df %>% filter(!rowSums(.[,!colnames(.) %in% "X5", drop = FALSE] < 2)),
    Richard = filter_(df, .dots = lapply(names(df)[names(df) != "X5"], function(x, y) { call(">=", as.name(x), y) }, 2)),
    dd_slice = df %>% slice(which(!rowSums(select(., -matches("X5")) < 2L))),
    times = 50L,
    unit = "relative"
)

#Unit: relative
#     expr      min       lq   median       uq      max neval
#    Marat 1.304216 1.290695 1.290127 1.288473 1.290609    50
#  Richard 1.139796 1.146942 1.124295 1.159715 1.160689    50
# dd_slice 1.000000 1.000000 1.000000 1.000000 1.000000    50

Изменить примечание: обновлено с более надежным эталоном с 50 повторениями (times = 50L).

После комментария, что база R будет иметь ту же скорость, что и подход slice (без указания того, какой подход базовой R подразумевается точно), я решил обновить свой ответ сравнением с базой R, используя почти тот же подход как в моем ответе. Для базы R я использовал:

base = df[!rowSums(df[-5L] < 2L), ],
base_which = df[which(!rowSums(df[-5L] < 2L)), ]

Benchmark:

df <- data.frame(replicate(5,sample(1:10,10e6,rep=TRUE)))

mbm <- microbenchmark(
  Marat = df %>% filter(!rowSums(.[,!colnames(.) %in% "X5", drop = FALSE] < 2)),
  Richard = filter_(df, .dots = lapply(names(df)[names(df) != "X5"], function(x, y) { call(">=", as.name(x), y) }, 2)),
  dd_slice = df %>% slice(which(!rowSums(select(., -matches("X5")) < 2L))),
  base = df[!rowSums(df[-5L] < 2L), ],
  base_which = df[which(!rowSums(df[-5L] < 2L)), ],
  times = 50L,
  unit = "relative"
)

#Unit: relative
#       expr      min       lq   median       uq      max neval
#      Marat 1.265692 1.279057 1.298513 1.279167 1.203794    50
#    Richard 1.124045 1.160075 1.163240 1.169573 1.076267    50
#   dd_slice 1.000000 1.000000 1.000000 1.000000 1.000000    50
#       base 2.784058 2.769062 2.710305 2.669699 2.576825    50
# base_which 1.458339 1.477679 1.451617 1.419686 1.412090    50

Не похоже на лучшую или сопоставимую производительность с этими двумя базовыми подходами R.

Изменить примечание # 2: добавлен тест с базовыми параметрами R.

Ответ 2

Вот идея, которая позволяет довольно просто выбирать имена. Вы можете настроить список вызовов для отправки в аргумент .dots filter_(). Сначала функция, которая создает неоценимый вызов.

Call <- function(x, value, fun = ">=") call(fun, as.name(x), value)

Теперь мы используем filter_(), передавая список вызовов в аргумент .dots, используя lapply(), выбирая любое имя и значение, которое вы хотите.

nm <- names(df) != "X5"
filter_(df, .dots = lapply(names(df)[nm], Call, 2L))
#   X1 X2 X3 X4 X5
# 1  6  5  7  3  1
# 2  8 10  3  6  5
# 3  5  7 10  2  5
# 4  3  4  2  9  9
# 5  8  3  5  6  2
# 6  9  3  4 10  9
# 7  2  9  7  9  8

Вы можете просмотреть неоцененные вызовы, созданные Call(), например X4 и X5, с

lapply(names(df)[4:5], Call, 2L)
# [[1]]
# X4 >= 2L
#
# [[2]]
# X5 >= 2L

Итак, если вы отредактируете names() в аргументе X lapply(), вы должны быть в порядке.

Ответ 3

Как указать имя столбца и имитировать гипотетический filter_each (funs (. >= 2), -X5)?

Это может быть не самое элегантное решение, но оно выполняет свою работу:

df %>% filter(!rowSums(.[,!colnames(.)%in%'X5',drop=F] < 2))

В случае нескольких исключенных столбцов (например, X3, X5) можно использовать:

df %>% filter(!rowSums(.[,!colnames(.)%in%c('X3','X5'),drop=F] < 2))