如何根据r中另一个不同变量的值在一个变量中粘贴有条件的值？

# 创建一个示例数据框
data <- data.frame(var1 = c(1, 2, 3, 4, 5),
                   var2 = c("A", "B", "C", "D", "E"),
                   var3 = c("X", "Y", "Z", "W", "V"))

# 创建一个新变量，用于存储根据条件选择的值
new_var <- character()

# 使用循环遍历var1的值，并根据var2的值选择需要粘贴的值
for (i in 1:length(data$var1)) {
  if (data$var2[i] == "A") {
    new_var[i] <- paste("Value for A:", data$var1[i])
  } else if (data$var2[i] == "B") {
    new_var[i] <- paste("Value for B:", data$var1[i])
  } else {
    new_var[i] <- "Other value"
  }
}

# 将选择的值粘贴到var3中
data$var3 <- new_var

# 打印结果
print(data)