求助:逻辑值向量如何转化为字符串

like1990

想请问下 如何将逻辑值向量 转化为字符串啊??
比如: 我想把这样的逻辑值向量,
按照: true输出"scale"
         false输出"nominal"
这样转化为一串字符.
该怎么办呢?

gene

x=seq(1:10)
x
y=x>4
y
for(i in 1:length(y)){
if(y[i]){z[i]="scale"}else{z[i]="nominal"}
}
z

gene

还可以这样

x=seq(1:10)
x
y=x>4
y
tt=sapply(y,function(x){if(x){"scale"}else{"nominal"}})
tt

gene

结果
> x
[1]  1  2  3  4  5  6  7  8  9 10
> y
[1] FALSE FALSE FALSE FALSE  TRUE  TRUE  TRUE  TRUE  TRUE  TRUE
> tt
[1] "nominal" "nominal" "nominal" "nominal" "scale"   "scale"   "scale"  
[8] "scale"   "scale"   "scale"  
>

like1990

gene 发表于 2012-9-7 16:07
结果
> x
[1]  1  2  3  4  5  6  7  8  9 10

输出结果不对呀?第七个 第八个都是true
我不明白你定义y=x>4是什么意思啊?