如何在R中的不同层上运行不同的公式

# 创建一个包含不同层级的数据框
data <- data.frame(layer = c("A", "B", "C", "A", "B", "C"),
                   value = c(10, 20, 30, 40, 50, 60))

# 定义不同层级的公式
formula_A <- "value * 2"
formula_B <- "value + 5"
formula_C <- "sqrt(value)"

# 创建一个空的向量来存储计算结果
results <- vector("numeric", length(data$value))

# 根据不同层级的公式进行计算
for (i in 1:length(data$value)) {
  if (data$layer[i] == "A") {
    results[i] <- eval(parse(text = formula_A))
  } else if (data$layer[i] == "B") {
    results[i] <- eval(parse(text = formula_B))
  } else if (data$layer[i] == "C") {
    results[i] <- eval(parse(text = formula_C))
  }
}

# 打印计算结果
print(results)