为tibble新增短列并扩展保整洁；为DataFrame添加物种列并展开

嘿，这个需求其实就是要给原数据的每一行都配上所有物种，相当于做个笛卡尔积操作对吧？我给你几个常用的R语言实现方法，都是简洁易读的：

方法1：用tidyverse工具链（推荐，逻辑更直观） #

如果你平时习惯用tidyverse的话，这两种方式都能快速搞定：

library(tidyverse)

# 先定义你的原始数据
df <- tibble(
  Site = c("A", "A", "A", "A", "B", "B", "B", "B"),
  Year = c(2016, 2016, 2017, 2017, 2016, 2016, 2017, 2017),
  Trt = c("bowl", "vane", "target", "stick", "bowl", "vane", "target", "stick")
)

# 你的物种列表
species <- c("species1", "species2", "species3")

# 方式1：用crossing直接生成所有组合
result <- crossing(df, Species = species)

# 方式2：先给每行绑定完整物种列表，再展开成多行
result <- df %>%
  mutate(Species = list(species)) %>%
  unnest(Species)

两种方式效果完全一样，crossing()是直接做笛卡尔积，而mutate+unnest的逻辑更贴近“给每行加所有物种再拆行”的思路，看你偏好哪种。

方法2：Base R实现（不用额外加载包） #

如果不想依赖tidyverse，用base R也能轻松实现：

# 定义原始数据和物种列表
df <- data.frame(
  Site = c("A", "A", "A", "A", "B", "B", "B", "B"),
  Year = c(2016, 2016, 2017, 2017, 2016, 2016, 2017, 2017),
  Trt = c("bowl", "vane", "target", "stick", "bowl", "vane", "target", "stick")
)
species <- c("species1", "species2", "species3")

# 方式1：用merge做笛卡尔积
result <- merge(df, data.frame(Species = species), by = NULL)

# 方式2：手动重复行再绑定物种列
result <- df[rep(seq(nrow(df)), each = length(species)), ]
result$Species <- rep(species, times = nrow(df))
# 可选：重置行名
rownames(result) <- NULL

merge(..., by=NULL)会自动生成两个数据集的所有组合；手动重复行的方式则是先把原数据每行复制3次，再把物种列表循环对应上去，也能得到你要的整洁格式。

不管用哪种方法，最终输出的结果都会和你期望的完全一致哦~

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