可以使用以下代码来实现:

选取大于1%的行

data <- data[data$percentage > 1,]

计算Others行的和

Others <- colSums(data[data$percentage <= 1,])

将Others行添加到数据框最后一行

data[nrow(data)+1,] <- Others

将Others行命名为"Others"

row.names(data)[nrow(data)] <- "Others"


原文地址: https://www.cveoy.top/t/topic/feBc 著作权归作者所有。请勿转载和采集!

免费AI点我,无需注册和登录