选择或子集列和不为零的变量

试试这个:

df %>% select_if(~ !is.numeric(.) || sum(.) != 0)
#   A C D
# 1 a 3 0
# 2 a 0 3
# 3 b 0 2
# 4 c 1 1
# 5 c 1 4
# 6 d 2 5

理由是 || 如果左边是 TRUE

注:

• 第二个论点 select_if ~ 有必要告诉我 选择\u if !is.numeric(.) || sum(.) != 0
• 如@zx8754在下文中所述, is.factor(.) 如果一个人只想保持 factor 柱。

碱性溶液

cols <- c('B', 'C', 'D')
cols.to.keep <- cols[colSums(df[cols]) != 0]
df[!names(df) %in% cols || names(df) %in% cols.to.keep]

这里是一个更新,为每个人谁想要使用新的 dplyr 1.0.0 没有范围变量(比如 select_if 如@mt1022所示,但已弃用):

df %>% 
  select(where(is.numeric)) %>% 
  select(where(~sum(.) != 0))

如果要将两个select语句压缩为一个,则不能通过元素方式来实现 & &&

df %>% select(where(~ is.numeric(.x) && sum(.x) !=0 ))

这是一个使用data.table的解决方案

df<-data.table(
  A = c("a", "a", "b", "c", "c", "d"),
  B = c(0, 0, 0, 0, 0, 0),
  C = c(3, 0, 0, 1, 1, 2),
  D = c(0, 3, 2, 1, 4, 5)
)

df2<-df[,lapply(X = .SD,FUN = function(x){sum(as.numeric(x))}),.SDcols = colnames(df)]
df[,which(is.na(df[1,]) == F),with = F]