※ 引述《celestialgod (天)》之銘言：
: ※ 引述《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
: #