使用 R 删除 总和为 0 的所有列

Demo

> set.seed(10)
> df <- as.data.frame(matrix(sample(0:1, 50, replace = TRUE, prob = c(.8, .2)), 5, 10))
> df
  V1 V2 V3 V4 V5 V6 V7 V8 V9 V10
1  0  0  0  0  1  0  0  0  0   0
2  0  0  0  0  0  1  0  1  0   0
3  0  0  0  0  0  0  0  1  0   0
4  0  0  0  0  0  0  1  0  0   0
5  0  0  0  1  0  0  0  0  0   1
> df[colSums(df) != 0]
  V4 V5 V6 V7 V8 V10
1  0  1  0  0  0   0
2  0  0  1  0  1   0
3  0  0  0  0  1   0
4  0  0  0  1  0   0
5  1  0  0  0  0   1

测试数据

## 读取测试数据
data1=read.table("C:\\Users\\Stanley\\Desktop\\PFS_AD_gene1.csv",sep=",",header=TRUE) 

## 保存列的求和不为0的列
data2=data1[colSums(data1) != 0]

## 导出生成后的数据
write.csv(data2, "D:\\DeleteColSums=0.csv")