Мы можем использовать colSums
и сохранить столбец, который имеет как минимум 2 значения больше 0. Мы используем [-1] здесь, чтобы игнорировать Date
столбец и проверить условие больше 0 для оставшихся столбцов.
*Столбцы 1004 *
Item1
и Item4
удалены, поскольку оба имеют только одно наблюдение больше 0.
Другой вариант - select_if
из dplyr
с использованием той же логики
library(dplyr)
bind_cols(df[1], df[-1] %>% select_if(funs(sum(. > 0) >= 2)))