次のような数値を持つベクトルがありますc(52.2,76.3,16.1,85.8)
。各値のどの間隔にあるかを判断しseq(15,90,5)
、特定の間隔/カテゴリを示す数値で新しいベクトルを作成したいと思います。
次の関数は機能しますが、かなり面倒に見えるので、誰かがこれをより効率的/簡潔にするのを手伝ってくれることを願っています.
testfun <- function(x){
ifelse(x>=15 & x<20, 1, ifelse(x>=20 & x<25, 2, ifelse(x>=25 & x<30, 3,
ifelse(x>=30 & x<35, 4, ifelse(x>=35 & x<40, 5, ifelse(x>=40 & x<45, 6,
ifelse(x>=45 & x<50, 7, ifelse(x>=50 & x<55, 8, ifelse(x>=55 & x<60, 9,
ifelse(x>=60 & x<65, 10, ifelse(x>=65 & x<70, 11, ifelse(x>=70 & x<75, 12,
ifelse(x>=75 & x<80, 13, ifelse(x>=80 & x<85, 14, ifelse(x>=85 & x<90, 15,
ifelse(x>=85 & x<90, 16, NA))))))))))))))))}
> testfun(c(52.2,76.3,16.1,85.8))
[1] 8 13 1 15
どうもありがとう!
Ps。この質問/タイトルは自由に編集してください