我有一个类似的问题，如概述in this question.问题是我有200多列，所以我不能像下面的代码那样全部列出它们:
df %>%
rowwise %>%
mutate(Max = names(.)[which.max(c(x, y, z))]) %>%
ungroup
我试过使用这个代码，但它给出了我所有列的最大值，我只需要列3到223的最大值.第1栏和第2栏是ID和年份，我需要它们.
df %>%
rowwise() %>%
mutate(Max = names(.)[which.max(c_across(3:223))]) %>%
ungroup()
我的所有列都有不同的名称，所以我不能使用
mutate(Max = names(.)[which.max(c_across(starts_with("X")))])
在包含大约200列的数据集中，如果不列出所有200列的名称，如何才能找到每行具有最大值的列的名称？
您的第二种方法是正确的，您只需要将names(.)也子集:
set.seed(13)
library(dplyr)
# example data
df <- data.frame(id = 1:5, year = 2020:2024)
for (L in LETTERS[1:5]) df[[L]] <- sample(5)
df %>%
rowwise() %>%
mutate(Max = names(.[3:7])[which.max(c_across(3:7))]) %>%
ungroup()
但更快、更简洁地使用max.col():
df %>%
mutate(Max = names(.[3:7])[max.col(.[3:7], "first")])
结果:
id year A B C D E Max
1 1 2020 3 4 3 5 5 D
2 2 2021 4 5 1 4 3 B
3 3 2022 1 1 2 1 1 C
4 4 2023 2 2 4 2 2 C
5 5 2024 5 3 5 3 4 A