在R语言中构建标记型计数DataFrame遇问题，求正确实现方法

你需要将长格式的样本-自行车数据转换为宽格式的存在标记矩阵，以下是几种可行的解决方案：

方法一：简化tidyverse流程 #

无需分组统计，直接添加标记列后转宽格式，代码更简洁高效：

library(tidyverse)

# 假设你的原始数据框是df
df %>%
  mutate(flag = 1) %>%  # 给每个存在的组合标记1
  pivot_wider(
    names_from = bike,  # 以bike列的值作为新列名
    values_from = flag, # 用标记列填充值
    values_fill = 0     # 不存在的组合填充0
  )

方法二：修正你原有的代码 #

你的思路是对的，但可能存在语法小问题（比如.group参数应为.groups），修正后也能得到预期结果：

df %>%
  group_by(sample, bike) %>%
  summarize(count = n(), .groups = "drop") %>%  # 修正参数拼写为.groups
  pivot_wider(
    names_from = "bike",
    values_from = "count",
    values_fill = 0
  )

因为你的原始数据中每个sample-bike组合都是唯一的，n()的结果必然是1，所以也可以直接写count = 1替代count = n()，提升效率。

方法三：Base R 实现 #

如果不想加载tidyverse包，用base R的table函数也能快速实现：

# 生成交叉表并转换为数据框
result <- as.data.frame.matrix(table(df$sample, df$bike))
# 添加sample列并转换类型
result <- cbind(sample = as.integer(rownames(result)), result)
rownames(result) <- NULL  # 去除行名

说明 #

你原代码可能未得到预期结果的原因：

• 语法错误：.group参数拼写错误，正确应为.groups
• 未加载必要包：确保提前运行library(tidyverse)或library(dplyr)+library(tidyr)

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