根据r中的条件，用一组新的观测值替换特定的观测值

# 安装并加载dplyr包
install.packages("dplyr")
library(dplyr)

# 创建一个示例数据框
data <- data.frame(
  x = c(1, 2, 3, 4, 5),
  y = c(10, 20, 30, 40, 50)
)

# 根据条件替换特定的观测值
new_data <- data %>%
  mutate(
    x = case_when(
      x == 2 ~ 20,  # 如果x等于2，则将x替换为20
      x == 4 ~ 40,  # 如果x等于4，则将x替换为40
      TRUE ~ x       # 其他情况保持不变
    )
  )

# 查看结果
print(new_data)