在R的dplyr中使用pivot_longer将计数转为单蚊观测行

你已经通过pivot_longer完成了宽格式到长格式的转换，但还需要把计数列的数值转换成对应数量的观测行。可以借助tidyr包的uncount()函数实现，具体步骤如下：

完整代码示例 #

# 加载所需工具包
library(dplyr)
library(tidyr)

# 模拟数据集
mock <- data.frame(village = c('A', 'A'),
                   season = as.factor(c('dry', 'wet')),                
                   trap = as.factor(c('BS', 'MET')),
                   mosquito1 = as.numeric(c(3, 3)),
                   mosquito2 = as.numeric(c('2', '0')))

# 转换为目标格式
mock_final <- mock %>%
  # 先将蚊类列转成长格式，得到计数列
  pivot_longer(cols = starts_with("mosquito"),
               names_to = "mosquito_species",
               values_to = "Count") %>%
  # 过滤掉计数为0的记录，避免生成无效空行
  filter(Count > 0) %>%
  # 根据计数值生成对应数量的行
  uncount(Count) %>%
  # 移除不再需要的Count列
  select(-Count)

结果说明 #

运行上述代码后，mock_final的结构与你期望的mock2完全一致：每行对应一只蚊子的观测记录，包含village、season、trap和mosquito_species四个字段。

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