如何用Base R将实验数据转换为以对照组为100%的百分比

核心逻辑 #

以每个实验的对照组数值为100%基准，其他数值按 (目标数值 / 对照组数值) * 100 的比例计算百分比，最后格式化为带%的字符串。

完整代码实现 #

# 1. 定义原始实验数据
Control <- 50 
A <- 25
B <- 5
Experiment_1 <- c(Control , A , B)

Control_2 <- 70
A2 <- 23.3
B2 <- 140
Experiment_2 <- c(Control_2 , A2 , B2)

# 2. 为实验向量添加名称，对应原始变量
names(Experiment_1) <- c("Control", "A", "B")
names(Experiment_2) <- c("Control_2", "A2", "B2")

# 3. 自定义百分比转换函数（Base R实现）
calc_percent <- function(exp_vec) {
  # 提取对照组数值（向量第一个元素）
  control_base <- exp_vec[1]
  # 计算百分比
  percent_values <- (exp_vec / control_base) * 100
  # 格式化为带%的字符串，保留1位小数（可自行调整）
  # 若要整数百分比，将%.1f%%改为%.0f%%即可
  sprintf("%.1f%%", percent_values)
}

# 4. 对两个实验执行转换并按指定格式输出
cat("Experiment 1 转换结果:\n")
for(i in seq_along(Experiment_1)) {
  cat(names(Experiment_1)[i], "=", calc_percent(Experiment_1)[i], "\n")
}

cat("\nExperiment 2 转换结果:\n")
for(i in seq_along(Experiment_2)) {
  cat(names(Experiment_2)[i], "=", calc_percent(Experiment_2)[i], "\n")
}

代码说明 #

• 向量命名：为实验向量添加名称后，转换结果能直接对应原始变量，避免混淆。
• 自定义函数：calc_percent函数可复用，无需为每个实验重复编写计算逻辑。
• 格式化输出：sprintf是Base R自带的字符串格式化工具，通过调整%.1f%%中的数字可控制小数位数（比如%.0f%%会输出整数百分比）。

运行上述代码后，输出结果如下：

Experiment 1 转换结果:
Control = 100.0%
A = 50.0%
B = 10.0%

Experiment 2 转换结果:
Control_2 = 100.0%
A2 = 33.3%
B2 = 200.0%

（注：你示例中A2的30%应为近似值，实际精确计算结果为33.3%，若需按特定精度近似，可调整sprintf的参数或添加round()函数处理）

内容的提问来源于stack exchange，提问作者Zebrafish