基于R中的另一列更新字符列

# 创建一个包含两列数据的数据框
data <- data.frame(col1 = c("apple", "banana", "orange"),
                   col2 = c("fruit", "fruit", "fruit"))

# 将col1的值更新为col2的值
data$col1 <- data$col2

# 打印更新后的数据框
print(data)

   col1  col2
1 fruit fruit
2 fruit fruit
3 fruit fruit

# 创建一个包含两列数据的数据框
data <- data.frame(col1 = c("apple", "banana", "orange"),
                   col2 = c("fruit", "fruit", "fruit"))

# 自定义函数，将col2的值更新为col1的值
update_col <- function(row) {
  row["col2"] <- row["col1"]
  return(row)
}

# 使用apply函数更新字符列
data <- t(apply(data, 1, update_col))

# 转置数据框并打印更新后的结果
print(t(data))

     [,1]    [,2]     [,3]    
col1 "apple" "banana" "orange"
col2 "apple" "banana" "orange"