r - 删除具有多个零的列

Question

我需要删除所有超过 1 个零的列。我目前正在使用 df <- df[, colSums(df != 0) > 1]但这不适用于所有具有许多零的列。如何解决或以不同的方式解决这个问题？

> tibble(df)
# A tibble: 551 x 1,046
            `aa`           `ab`           `ac`         `ad`         `ae`         `af` 
            <dbl>          <dbl>          <dbl>        <dbl>        <dbl>        <dbl>        
 1          32458          65068          32654        0            43115         1450         
 2          19387          38457          19447        0            22523          958         
 3          42690          85105          43247        0            14156         1088         
 4          62290         123325          61878        58422        36300         1145  

Answer 1

也许你可以试试下面的colMeans

df[colMeans(df == 0) < 0.7]