有没有一种快速的方法将相同的值赋给向量中具有相同名称的元素？

# 创建一个具有相同名称的向量
names <- c("A", "B", "A", "C", "B")

# 创建一个具有相同长度的值向量
values <- c(1, 2, 3, 4, 5)

# 创建一个逻辑向量，表示具有相同名称的元素
same_names <- names == "A"

# 使用逻辑索引将相同值赋给具有相同名称的元素
values[same_names] <- 10

# 输出结果
values
# [1] 10  2 10  4  5

# 创建一个具有相同名称的向量
names <- c("A", "B", "A", "C", "B")

# 创建一个具有相同长度的值向量
values <- c(1, 2, 3, 4, 5)

# 设置目标名称和相同值
target_name <- "A"
same_value <- 10

# 使用循环将相同值赋给具有相同名称的元素
for (i in 1:length(names)) {
  if (names[i] == target_name) {
    values[i] <- same_value
  }
}

# 输出结果
values
# [1] 10  2 10  4  5