如果第一列的行在R中为空，则将一列替换为另一列中的数据

# 创建一个示例数据框
data <- data.frame(col1 = c("", "A", "B", ""), col2 = c("X", "Y", "Z", "W"), stringsAsFactors = FALSE)

# 判断第一列的行是否为空，并进行替换
for (i in 1:nrow(data)) {
  if (is.na(data[i, "col1"]) || data[i, "col1"] == "") {
    data[i, "col1"] <- data[i, "col2"]
  }
}

# 打印替换后的数据框
print(data)

  col1 col2
1    X    X
2    A    Y
3    B    Z
4    W    W