作者empireisme (empireisme)
看板R_Language
标题[问题]依照index放入文字於向量中
时间Thu Mar 26 20:57:47 2020
x=seq(100)
我有一个x
我想要把所有x <10的元素 都放入 low
所有10 < x<50 的元素都放入 medium
所有 x>50的元素都放入 high
我自己的思路只到这边 就是利用逻辑函数完成
x[which(x<10)]
x[which(10<=x&x<50)]
x[which(50<=x)]
如果只有两个 很好使用 ifelse 完成
ifelse(x<10,"low"," medium " )
但是我现在有三个
有没有甚麽可以向量化的操作完成这件事
我原本想做
x[which(x<10)] <- "low"
x[which(10<=x&x<50)] <- "medium"
x[which(50<=x)] <- "high"
但是发现不行
想到解法了 好像把x换成 data.frame就可以了
发现还是不行 还望提供结法
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 219.91.75.186 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/R_Language/M.1585227470.A.6D7.html
※ 编辑: empireisme (219.91.75.186 台湾), 03/26/2020 21:01:27
※ 编辑: empireisme (219.91.75.186 台湾), 03/26/2020 21:08:20
※ 编辑: empireisme (219.91.75.186 台湾), 03/26/2020 21:25:58
1F：推 locka: 把转成data frame後，df %>% mutate(level = ifelse(x < 10 03/26 21:46
2F：→ locka: , "low", ifelse(x >=50, "high" , "medium"))) 03/26 21:46
3F：→ locka: 或是 cut(x, c(-Inf,10,50,Inf), c("low","medium","high") 03/26 22:10
4F：→ locka: ,right=T) 这样就不用转data frame 03/26 22:10
5F：推 khaos: 用apply行不行？ 03/26 22:52
6F：→ andrew43: cut()最直接，顶多再接个as.character() 若不爱factor 03/26 23:01
7F：→ empireisme: 推 03/27 09:17
8F：推 bboybighead2: case_when 03/29 06:39