R语言数据集缺失列名补全及拼接生成唯一列名方法咨询

第一步：填充空缺列名 #

方法1：基础R向量化实现（无需额外包，效率更高适合大数据集） #

利用cumsum标记非空列名的分组，直接索引填充：

names(df) <- names(df)[cumsum(!is.na(names(df)))]

方法2：基础R for循环实现 #

完全符合要求的for循环写法：

for (i in 2:length(names(df))) {
  if (is.na(names(df)[i])) {
    names(df)[i] <- names(df)[i-1]
  }
}

方法3：zoo包简洁实现 #

用zoo包的向前填充缺失值函数na.locf（Last Observation Carried Forward）：

# 未安装zoo包先运行 install.packages("zoo")
names(df) <- zoo::na.locf(names(df))

以上三种方法均可得到全填充列名效果。

第二步：生成唯一列名 #

直接拼接当前列名和第一行对应的测量指标名称即可：

# 提取第一行的测量指标
metric_names <- unlist(df[1, ], use.names = FALSE)
# 拼接生成唯一列名
names(df) <- paste(names(df), metric_names, sep = "_")

运行后即可得到Artery_1_agatston格式的不重复唯一列名，符合最终需求。

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