在R中求解一个类似于Excel中的目标搜索者的函数

# 目标搜索函数
search_target <- function(data, target_col, condition_col, condition_val) {
  # data: 数据框
  # target_col: 目标列名
  # condition_col: 条件列名
  # condition_val: 条件值
  
  # 根据条件筛选数据
  filtered_data <- data[data[[condition_col]] == condition_val, ]
  
  # 获取目标列的值
  target_values <- filtered_data[[target_col]]
  
  # 返回目标值
  return(target_values)
}

# 创建示例数据框
data <- data.frame(
  Name = c("Alice", "Bob", "Charlie", "David"),
  Age = c(25, 30, 35, 40),
  Salary = c(50000, 60000, 70000, 80000)
)

# 调用目标搜索函数
search_target(data, "Salary", "Age", 35)