如何基于原数据框为唯一站点数据框填充物种存在布尔列

针对你的需求，这里提供几种简洁的R语言实现方式，都能快速得到目标数据框：

1. Tidyverse 风格推荐写法 #

借助dplyr和tidyr的组合，先去重再转换宽表，逻辑清晰：

library(tidyverse)

# 第一步：对原数据按站点和物种去重，避免重复观测影响结果
df_distinct <- df1 %>% distinct(site, species)

# 第二步：转换为宽表，自动生成物种列并填充存在性逻辑值
df2 <- df_distinct %>%
  pivot_wider(
    names_from = species,    # 用物种名作为新列名
    values_from = species,   # 基于物种列判断存在性
    values_fn = ~!is.na(.x), # 存在则返回TRUE
    values_fill = FALSE      # 不存在则填充FALSE
  )

2. Base R 原生实现 #

无需安装额外包，用基础函数完成：

# 生成站点-物种的交叉计数表
count_table <- table(df1$site, df1$species)

# 将计数大于0的转为TRUE，否则为FALSE，再整理成目标数据框
df2 <- as.data.frame.matrix(count_table > 0)
# 补充site列并调整列顺序
df2$site <- rownames(df2)
df2 <- df2[, c("site", colnames(df2)[-ncol(df2)])]
# 清除自动生成的行名
rownames(df2) <- NULL

3. fastDummies 快速哑变量生成 #

如果经常需要这类转换，fastDummies包能一步生成哑变量后转逻辑值：

library(fastDummies)

# 先去重避免重复值干扰
df_distinct <- df1 %>% distinct(site, species)
# 生成物种的哑变量列，再将0/1转为FALSE/TRUE
df2 <- dummy_cols(df_distinct, select_columns = "species", remove_selected_columns = TRUE)
df2[, -1] <- df2[, -1] == 1

三种方法最终都会输出你需要的结果：

site rainbow tessellated greenside fantail
1    A    TRUE        TRUE     FALSE   FALSE
2    B    TRUE       FALSE      TRUE    TRUE

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