R语言中如何调整列数不同的数据框并合并为列数一致的新数据框？

首先，我们需要先将d5的列数缩减到和d3一致的100列，然后再将两者合并成新的数据框d_3_5。下面分两种常见场景给出具体代码：

场景1：直接取d5的前100列 #

如果不需要随机选择列，直接截取d5的前100列即可，操作简单直观：

# 修剪d5到100列（取前100列）
d5_trimmed <- d5[, 1:100]

# 列绑定d3和修剪后的d5，得到200列的新数据框
d_3_5 <- cbind(d3, d5_trimmed)

# 或者如果需要按行合并（行数变为原来的2倍，列数100）
# d_3_5 <- rbind(d3, d5_trimmed)

场景2：随机抽取d5的100列 #

如果你希望随机选择d5中的100列（避免固定截取带来的偏差），可以用抽样的方式，记得设置随机种子保证结果可重复：

# 设置随机种子，确保抽样结果可复现
set.seed(123)

# 随机抽取d5中的100列
d5_trimmed <- d5[, sample(ncol(d5), 100)]

# 合并成新数据框，同样可以选择cbind或rbind
d_3_5 <- cbind(d3, d5_trimmed)
# 或者行合并：d_3_5 <- rbind(d3, d5_trimmed)

验证结果 #

合并完成后，可以用以下代码确认维度是否符合预期：

# 查看d_3_5的行数和列数
dim(d_3_5)

如果是列绑定，结果应该是[原行数, 200]；如果是行绑定，结果是[原行数*2, 100]。

内容的提问来源于stack exchange，提问作者Jatt