按因子拆分数据框并删除列不相等的行
创始人
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)

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

相关内容

热门资讯

透视辅助!wepoker私人局... 透视辅助!wepoker私人局俱乐部辅助,wepoker私人局辅助器怎么用(透视)新版2025教程(...
透视有挂!wepoker透视方... 透视有挂!wepoker透视方法,wepoker私人局透视方法(透视)攻略教程(有挂解密)1、任何w...
透视了解!wepoker永久免... 透视了解!wepoker永久免费脚本,wepoker插件辅助(透视)必备教程(有挂插件);1)wep...
透视系统!wepokerplu... 透视系统!wepokerplus脚本,wepoker底牌透视脚本(透视)解说技巧(有挂方法)1)we...
透视辅助!wepoker有辅助... 透视辅助!wepoker有辅助器吗,wepoker有透视底牌吗(透视)大神讲解(有挂插件)1、首先打...
透视真的!wepoker-h5... 透视真的!wepoker-h5下载,wepoker私局代打(透视)科技教程(有挂攻略);1)wepo...
透视透视!wepoker插件辅... 透视透视!wepoker插件辅助,we poker游戏下(透视)可靠技巧(有挂教程);1、wepok...
透视有挂!wepoker破解游... 透视有挂!wepoker破解游戏盒子,wepoker怎么看底牌(透视)黑科技教程(有挂细节)1、打开...
透视科技!wepoker免费辅... 透视科技!wepoker免费辅助器,wepoker有透视功能吗(透视)靠谱教程(有挂技巧);1、we...
透视计算!wepoker辅助器... 透视计算!wepoker辅助器最新版本更新内容,wepoker有没有机器人(透视)黑科技教程(有挂细...