循环遍历data.frame的列以应用条件

# 创建一个示例data.frame
df <- data.frame(A = c(1, 2, 3),
                 B = c(4, 5, 6),
                 C = c(7, 8, 9))

# 遍历data.frame的列
for (col in colnames(df)) {
  # 根据条件应用操作
  if (col == "A") {
    # 对列A应用操作
    # 例如，计算列A的平均值
    mean_value <- mean(df[[col]])
    # 打印结果
    print(paste("列A的平均值：", mean_value))
  } else if (col == "B") {
    # 对列B应用操作
    # 例如，计算列B的总和
    sum_value <- sum(df[[col]])
    # 打印结果
    print(paste("列B的总和：", sum_value))
  } else {
    # 对其他列应用操作
    # ...
  }
}

# 创建一个示例data.frame
df <- data.frame(A = c(1, 2, 3),
                 B = c(4, 5, 6),
                 C = c(7, 8, 9))

# 定义应用于每列的函数
apply_condition <- function(col) {
  # 根据条件应用操作
  if (colname(df[col]) == "A") {
    # 对列A应用操作
    # 例如，计算列A的平均值
    mean_value <- mean(df[[col]])
    # 返回结果
    return(mean_value)
  } else if (colname(df[col]) == "B") {
    # 对列B应用操作
    # 例如，计算列B的总和
    sum_value <- sum(df[[col]])
    # 返回结果
    return(sum_value)
  } else {
    # 对其他列应用操作
    # ...
  }
}

# 使用apply函数遍历data.frame的列并应用条件
result <- apply(df, 2, apply_condition)

# 打印结果
print(result)