R代码将列中的值添加到另一列中的某些活动所特有的值中

install.packages("dplyr")
library(dplyr)
install.packages("tidyverse")
library(tidyverse)

# 读取文件
data <- read.csv("data.csv")

# 创建数据框
data <- data.frame(column1 = c(1, 2, 3, 4),
                   column2 = c("a", "b", "c", "d"))

# 示例1：将列中的值添加到另一列中的特定值中
data <- data %>%
  mutate(column3 = if_else(column2 == "a", column1 + 10, column1))

# 示例2：根据条件将列中的值添加到另一列中的特定值中
data <- data %>%
  mutate(column3 = case_when(column2 == "a" ~ column1 + 10,
                             column2 == "b" ~ column1 - 5,
                             TRUE ~ column1))

# 示例3：使用自定义函数将列中的值添加到另一列中的特定值中
my_function <- function(value) {
  # 自定义逻辑
  if (value > 5) {
    return(value * 2)
  } else {
    return(value)
  }
}

data <- data %>%
  mutate(column3 = my_function(column1))