按因子拆分数据框并删除列不相等的行
创始人
2024-08-22 12:00:12
0次

假设有以下数据框：

df <- data.frame(group = rep(LETTERS[1:2], each = 3), value = 1:6, stringsAsFactors = FALSE)
df$extra_col <- c("a", "b", "c", "d", "e", "f")

现在我们想按组将数据框拆分，并删除不一致的行，可以使用以下代码：

split_df <- lapply(unique(df$group), function(x) {
  temp_df <- df[df$group == x, ]
  temp_df[, ncol(temp_df) - 1] <- NULL
  temp_df
})

final_df <- do.call(rbind, split_df)

这将返回拆分后的数据框列表，每个数据框都只包含因子值相同的行，并删除最后一列，最后将它们连接成单个数据框。

上一篇：按引用或按值扫描函数

下一篇：按因子拆分数据框，并根据因子和附加描述命名新数据框，如“新数据框(因子)”。

相关内容

热门资讯

黑科技攻略(德州之星)外挂辅助... 黑科技攻略(德州之星)外挂辅助神器(透视)透明挂教程(竟然有挂)1、起透看视 德州之星透明视辅助2、...
黑科技代打(wepOkE)黑科... 黑科技代打(wepOkE)黑科技透明挂辅助挂(透视)透牌教程(竟然真的是有挂)1、用户打开应用后不用...
黑科技系统！（aapokEr）... 黑科技系统！（aapokEr）透明挂辅助器，（AAPOkER）从来真的有挂，2025版教程（有挂技巧...
黑科技工具(we poker)... 黑科技工具(we poker)黑科技透明挂辅助软件(透视)黑科技教程(一直是真的有挂)1、不需要AI...
黑科技讲解！（德扑）外挂辅助a... 黑科技讲解！（德扑）外挂辅助app，（德扑）原来存在有挂，解密教程（有挂方法）；致您一封信；亲爱德扑...
黑科技攻略(红龙扑克)外挂辅助... 黑科技攻略(红龙扑克)外挂辅助方法(透视)揭秘教程(其实有挂)1、红龙扑克透视辅助简单，红龙扑克软件...
黑科技有挂！（wEpoKe）软... 黑科技有挂！（wEpoKe）软件透明挂，（WePoKer）素来是有挂，解说技巧（有挂技巧），支持语音...
黑科技好牌(微扑克私人局)外挂... 黑科技好牌(微扑克私人局)外挂透视辅助神器(透视)新2025教程(总是是真的有挂)；1、该软件可以轻...
黑科技插件！（wPK）透视辅助... 黑科技插件！（wPK）透视辅助器，（wpK）原生存在有挂，攻略教程（有挂教程）；《WPK辅助透视》‌...
黑科技线上(WepOke)黑科... 黑科技线上(WepOke)黑科技透明挂辅助挂(透视)可靠技巧(一直真的是有挂)1、用户打开应用后不用...