R语言计算数据框列和后返回最高值对应列位置的实现方法

基于你已经掌握的数值列求和代码，只需要补充筛选逻辑，就能同时覆盖单最高值、多并列最高值的定位需求，不需要写额外的分支判断。

核心逻辑 #

1. 通过已有的求和代码得到所有数值列的和值向量df_sum
2. 计算该向量的全局最大值
3. 从和值向量中筛出所有等于全局最大值的元素，直接提取对应的列名/位置即可，代码会自动匹配所有满足条件的列，不会遗漏并列结果

可直接复用的完整代码 #

首先保留你已经写好的求和代码：
df_sum <- colSums(df[sapply(df, is.numeric)], na.rm = TRUE)

补充定位逻辑：

• 计算列和的全局最大值，自动忽略可能存在的缺失值：
  max_val <- max(df_sum, na.rm = TRUE)
• 提取所有和值等于全局最大值的列名（即你示例中类似18:30、19:00的列标识）：
  matched_cols <- names(df_sum)[df_sum == max_val]

如果需要获取列在原数据框中的数字位置索引，替换为如下代码即可，同样支持并列匹配场景：
matched_pos <- which(df_sum == max_val)

场景验证效果 #

通过匹配你描述的测试数据可以直接验证：

# 测试样例1：单最高值场景
df1 <- data.frame(
  `18:30` = c(2,1,1), # 列和为4
  `19:00` = c(1,1,1), # 列和为3
  `19:20` = c(1,1,1), # 列和为3
  文本列 = "无数值"
)
df_sum1 <- colSums(df1[sapply(df1, is.numeric)], na.rm = TRUE)
max_val1 <- max(df_sum1, na.rm = TRUE)
matched_cols1 <- names(df_sum1)[df_sum1 == max_val1]
# 运行后matched_cols1的结果为："18:30"

# 测试样例2：多并列最高值场景
df2 <- data.frame(
  `18:30` = c(1,1,1), # 列和为3
  `19:00` = c(1,1,1), # 列和为3
  `19:20` = c(1,1,1), # 列和为3
  文本列 = "无数值"
)
df_sum2 <- colSums(df2[sapply(df2, is.numeric)], na.rm = TRUE)
max_val2 <- max(df_sum2, na.rm = TRUE)
matched_cols2 <- names(df_sum2)[df_sum2 == max_val2]
# 运行后matched_cols2的结果为：c("18:30", "19:00", "19:20")

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