R语言：如何将行值设为列名并合并两个数据集？

假设你的两个数据集分别命名为：

• ingredients_raw：1行700列的食材数据集
• cookbooks_df：包含作者、出版年、书名的食谱数据集

步骤1：将食材行值转为列名并创建空模板 #

# 提取第一行的食材名称作为新列名（保留原第一列的标识逻辑）
new_cols <- c("Cookbooks", as.character(ingredients_raw[1, -1]))
# 创建与食谱数据集行数一致的空食材模板，所有值初始为0
ingredients_template <- data.frame(matrix(0, nrow = nrow(cookbooks_df), ncol = length(new_cols)-1))
colnames(ingredients_template) <- new_cols[-1]

步骤2：合并两个数据集 #

直接用cbind()拼接食谱数据和食材模板：

final_df <- cbind(cookbooks_df, ingredients_template)

步骤3：（可选）标记食谱含有的食材 #

如果需要将对应食谱包含的食材设为1（比如示例中"roast chicken"对应oil为1）：

# 单条标记
final_df[final_df$Title == "roast chicken", "oil"] <- 1

# 批量标记（假设有映射表ingredient_map，含Title和Ingredient列）
ingredient_map <- data.frame(
  Title = c("roast chicken", "Carbonara"),
  Ingredient = c("oil", "ham"),
  stringsAsFactors = FALSE
)

for (i in seq(nrow(ingredient_map))) {
  final_df[final_df$Title == ingredient_map$Title[i], ingredient_map$Ingredient[i]] <- 1
}

常见报错处理 #

• 列数不匹配：检查ingredients_template的列数是否与食材名称数量一致，确保cookbooks_df的行数和模板行数完全相同。
• 因子类型错误：读取数据时添加stringsAsFactors = FALSE，避免食材名称被自动转为因子导致列名异常。

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