※ 引述《lovedmagic (EricZou)》之铭言：
: [问题类型]:
: 程式咨询(我想用R 做某件事情，但是我不知道要怎么用R 写出来)
: [软件熟悉度]:
: 新手(没写过程式，R 是我的第一次)
: [问题叙述]:
: 目前我遇到的困难是我有A1~A270个变量，我每个变量都有大概五个数值，
: 每个数值左侧代表一个名称，例如我A1这个变量里面有 34 18 16 9 4五个值
: 然后每个数值对应到左侧的名称有A B C D E ，我想做的就是取出A1变量中
: 最大的那个值，然后再取出左侧的ID，主要是要求出左侧的ID，我要如何
: 让循环把每个变量都跑过一次呢???
: 以下有错误范例
: [程式范例]:
: fxck = data.frame()
: for (i in 1:270){
: number[data$Ai==max(data$Ai)]
: fxck <- rbind(number[Ai==max(Ai)],Ai)
: print(fxck)
: }
: [关键字]:
: 多个变量、循环
library(data.table)
DT <- data.table(name = LETTERS[1L:5L], matrix(rnorm(270L * 5L), 5L))
setnames(DT, paste0("V", 1L:270L), paste0("A", 1L:270L))
# direct:
data.table(
variable = paste0("A", 1L:270L),
ID = as.character(DT[ , lapply(.SD, function(x) name[which.max(x)]),
.SDcols = A1:A270])
value = as.numeric(DT[ , lapply(.SD, max), .SDcols = A1:A270])
)
# variable ID value
# 1: A1 B 0.5974676
# 2: A2 A 1.6205859
# 3: A3 E 0.9247647
# 4: A4 A 1.7180776
# 5: A5 D 1.2060909
#