※ 引述《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)
: }
: [关键字]:
: 多个变量、循环
max.id=function(x2,name){
value = name[ max(x2) == x2 ]
return(value)
}
x=matrix(rnorm(20),ncol=4)
name=c("A","B","C","D","E")
rownames(x)=name
x
tem = apply(x,2,function(x) max.id(x,name))
tem
应该还有更好的方法
我先提供一个
主要就是利用apply进行col运算