按因子拆分数据框并删除列不相等的行
创始人
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、实时丽水茶苑苹果手机辅助透视辅...
第一分钟辅助！闲来辅助神器下载... 第一分钟辅助！闲来辅助神器下载2022，好像真的有辅助方法（有挂教程）1、不需要AI权限，帮助你快速...
九分钟辅助！丽水都莱辅助工具试... 九分钟辅助！丽水都莱辅助工具试用，确实存在有辅助神器（有挂方法）九分钟辅助！丽水都莱辅助工具试用，确...
第一分钟辅助！蛮王辅助器，好像... 第一分钟辅助！蛮王辅助器，好像是有辅助方法（有挂教学）1、首先打开蛮王辅助器辅助器下载最新版本，在蛮...
第六分钟辅助！潮汕汇挂，一贯真... 第六分钟辅助！潮汕汇挂，一贯真的是有辅助插件（有挂辅助）1、这是跨平台的潮汕汇挂轻量版有透视，在线的...
六分钟辅助！微信开心泉州辅助器... 六分钟辅助！微信开心泉州辅助器，一直有辅助器（有挂教学）1、下载好微信开心泉州辅助器透视辅助下载之后...
第3分钟辅助！佛手十三道破解版... 第3分钟辅助！佛手十三道破解版安卓，竟然真的有辅助攻略（有挂存在）1、让任何用户在无需佛手十三道破解...
2分钟辅助！sohoo竞技联盟... 2分钟辅助！sohoo竞技联盟辅助，切实真的有辅助脚本（有挂技术）1.sohoo竞技联盟辅助 选牌创...
第8分钟辅助！心悦手游辅助器，... 第8分钟辅助！心悦手游辅助器，原来真的是有辅助技巧（确实有挂）；1、每一步都需要思考，不同水平的挑战...
第十分钟辅助！广东雀神祈福真的... 第十分钟辅助！广东雀神祈福真的有用吗，都是是有辅助技巧（有挂方略）1、下载好广东雀神祈福真的有用吗透...