Dans un dataframe je voudrais éliminer toutes les colonnes qui ne contiennent pas de nombre supérieur à 0 ou un seul nombre supérieur à 0.
Code : Tout sélectionner
df <- data.frame(a=rep(c(1,3),2),b=c(0,0,0,2), c=c(1,0,2,3),d=c(0,0,0,0))
a b c d
1 1 0 1 0
2 3 0 0 0
3 1 0 2 0
4 3 2 3 0
Je voudrais éliminer les colonnes b et d à l'aide d'une fonction qui détermine d'abord les colonnes qui correspondent à la condition puis les élimine.
Pour éliminer les colonnes qui ne contiennent que des 0 je peux le faire en utilisant colSums
Code : Tout sélectionner
df[,colSums(df)>1]
Mais je ne trouve pas comment coder pour les colonnes contenant un seul nombre supérieur à 0.
Merci