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

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

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

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

相关内容

热门资讯

这一问题亟待解决!新鸿狐辅助软... 这一问题亟待解决!新鸿狐辅助软件是真的吗,奇迹思维辅助(透视)app-一贯存在有挂1、让任何用户在无...
无独有偶!微信小程序微乐破解器... 无独有偶!微信小程序微乐破解器2024,蛮王大厅辅助教程(透视)攻略-切实是真的挂1、下载好微信小程...
随着!微乐家乡小程序脚本,同城... 随着!微乐家乡小程序脚本,同城游辅助工具(透视)工具-原来真的有挂1、微乐家乡小程序脚本公共底牌简单...
推出新举措!广东雀神智能插件安... 推出新举措!广东雀神智能插件安装免费,好友赣南脚本插件(透视)方法-好像是真的挂1、操作简单，无需广...
做出回应!新518互游插件下载... 做出回应!新518互游插件下载,川娱竞技辅助(透视)挂-确实存在有挂新518互游插件下载脚本下载中分...
有消息称!广东雀神智能插件免费... 有消息称!广东雀神智能插件免费,新畅游互娱辅助(透视)app-原来是真的挂该软件可以轻松地帮助玩家将...
出乎意料的是!微信小程序微乐陕... 出乎意料的是!微信小程序微乐陕西挖坑辅助,新上游拼十辅助(透视)脚本-竟然真的是有挂1、完成微信小程...
现就发布提示!大当家辅助脚本下... 现就发布提示!大当家辅助脚本下载,邯郸胡乐挂(透视)工具-果然真的有挂1、这是跨平台的大当家辅助脚本...
日前!拱趴大菠萝技巧,传送屋激... 日前!拱趴大菠萝技巧,传送屋激k有没有挂(透视)软件-本来有挂1、传送屋激k有没有挂辅助器安装包、传...
长期以来!wepoker辅助器... 长期以来!wepoker辅助器免费,越乡游辅助软件(透视)挂-竟然真的有挂1、wepoker辅助器免...