R语言：当目标数据框为空时添加行并填充指定列数据

需求说明 #

我有一个字符串变量和两个数据框，这类配置有多组（比如components、fueltypes等），以下是一组示例场景：

仅当components这类数据框无数据行时，需要完成以下操作生成目标数据框：

• 把字符串rocketnum的值统一填充到rocketnum列
• 把events_components里unique_event列的所有值对应填充到event列
• 剩下的列保持为空

初始代码与数据 #

rocketnum <- "0000"
events_components <- data.frame(unique_event=c("thrust","azimuth","gyro","spin"))

# 创建无数据但带列名的空数据框
components <- data.frame(rocketnum=character(),
                 event=character(),
                 powerlevel=character(),
                 propellant=character(),
                 stringsAsFactors=FALSE)

初始数据详情 #

• events_components：有1列unique_event，包含4个值：thrust、azimuth、gyro、spin
• components：只有列名（rocketnum、event、powerlevel、propellant），没有任何数据行

期望结果 #

最终的components数据框要有4行：

• rocketnum列全是"0000"
• event列依次是thrust、azimuth、gyro、spin
• powerlevel和propellant列全为空值

实现代码 #

# 判断components是否为空数据框
if (nrow(components) == 0) {
  # 生成目标数据框
  components <- data.frame(
    rocketnum = rep(rocketnum, nrow(events_components)),
    event = events_components$unique_event,
    powerlevel = rep("", nrow(events_components)),
    propellant = rep("", nrow(events_components)),
    stringsAsFactors = FALSE
  )
}

代码说明 #

1. 先用nrow(components) == 0判断目标数据框是否为空
2. 为空的话，通过rep()函数重复rocketnum值，匹配events_components的行数
3. 直接提取events_components$unique_event作为event列数据
4. 剩余列用空字符串填充，同时保持stringsAsFactors=FALSE确保列类型和初始定义一致

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