在R语言中获取列最大值与次大值对应的行名

让我来帮你拆解一下现有代码里的问题，然后给出简单靠谱的解决方案～

首先先回顾一下你的数据框：

x <- c(1,33,5,2,56,1)
y <- c(4,358,57,3,32,2)
df <- as.data.frame(cbind(x,y))
rownames(df) <- c("a", "b", "c", "d", "e", "f")

现有代码的问题分析 #

你遇到的核心问题是把列的数值当成了行的位置索引，rownames(df)[索引]里的索引必须是行的位置（1到6，因为你的数据框有6行），但你直接用了df$x里的数值（比如56、33）去索引，自然会出问题：

1. 第一个错误：rownames(df)[max(df$x)]
max(df$x)返回的是数值56，而你的数据框只有6行，索引范围是1-6，用56去索引肯定超出范围，所以返回NA。你需要的是找到最大值所在的行位置，而不是直接用最大值本身当索引。

2. 第二个错误：获取次大值的逻辑
   sort(df$x, partial=nx-1)[nx-1]确实能得到次大值33，但你又犯了同样的错误——用这个数值去索引行名，33远大于6，实际是在取rownames(df)[33]，这显然不对，所以得到了错误的结果。

正确的实现方法 #

方法一：用which.max()结合位置调整（适合单值查找） #

获取x列的最大、次大值行名

# 1. x列最大值对应行名：用which.max()拿到最大值的位置索引
rownames(df)[which.max(df$x)] # 输出："e"

# 2. x列次大值对应行名：先排除最大值所在行，再找剩余行的最大值位置
max_x_pos <- which.max(df$x)
# 排除最大值行后，找剩余行的最大值位置
second_max_x_pos <- which.max(df$x[-max_x_pos])
# 因为排除了一行，所以原数据框的位置需要调整
second_max_x_pos_original <- ifelse(second_max_x_pos >= max_x_pos, second_max_x_pos + 1, second_max_x_pos)
rownames(df)[second_max_x_pos_original] # 输出："b"

获取y列的最大、次大值行名

# 1. y列最大值对应行名
rownames(df)[which.max(df$y)] # 输出："b"

# 2. y列次大值对应行名
max_y_pos <- which.max(df$y)
second_max_y_pos <- which.max(df$y[-max_y_pos])
second_max_y_pos_original <- ifelse(second_max_y_pos >= max_y_pos, second_max_y_pos + 1, second_max_y_pos)
rownames(df)[second_max_y_pos_original] # 输出："c"

方法二：用order()排序索引（更简洁，适合批量取前N大值） #

这种方法可以一次性拿到所有行按列值降序排列的索引，直接取前两个就是最大和次大值对应的行：

# x列降序排序的行索引
sorted_x <- order(df$x, decreasing = TRUE)
rownames(df)[sorted_x[1]] # 最大值行名："e"
rownames(df)[sorted_x[2]] # 次大值行名："b"

# y列降序排序的行索引
sorted_y <- order(df$y, decreasing = TRUE)
rownames(df)[sorted_y[1]] # 最大值行名："b"
rownames(df)[sorted_y[2]] # 次大值行名："c"

两种方法都能得到你预期的结果：x列对应e、b，y列对应b、c。

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