作者f496328mm (为什麽会流泪)
看板R_Language
标题Re: [问题] 多个变数的回圈如何处理?
时间Sat Dec 24 03:29:14 2016
※ 引述《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运算
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 114.42.97.227
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1482521357.A.E5B.html