R中的矢量化IF語句？x <- seq(0.1,10,0.1)
y <- if (x < 5) 1 else 2我希望if能夠?qū)γ恳粋€案例進行操作，而不是對整個向量進行操作。我需要改變什么？
3 回答
白板的微信
TA貢獻1883條經(jīng)驗 獲得超3個贊
x <- seq(0.1,10,0.1)
> x
[1] 0.1 0.2 0.3 0.4 0.5 0.6 0.7 0.8 0.9 1.0 1.1 1.2 1.3 1.4 1.5
[16] 1.6 1.7 1.8 1.9 2.0 2.1 2.2 2.3 2.4 2.5 2.6 2.7 2.8 2.9 3.0
[31] 3.1 3.2 3.3 3.4 3.5 3.6 3.7 3.8 3.9 4.0 4.1 4.2 4.3 4.4 4.5
[46] 4.6 4.7 4.8 4.9 5.0 5.1 5.2 5.3 5.4 5.5 5.6 5.7 5.8 5.9 6.0
[61] 6.1 6.2 6.3 6.4 6.5 6.6 6.7 6.8 6.9 7.0 7.1 7.2 7.3 7.4 7.5
[76] 7.6 7.7 7.8 7.9 8.0 8.1 8.2 8.3 8.4 8.5 8.6 8.7 8.8 8.9 9.0
[91] 9.1 9.2 9.3 9.4 9.5 9.6 9.7 9.8 9.9 10.0
> ifelse(x < 5, 1, 2)
[1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
[38] 1 1 1 1 1 1 1 1 1 1 1 1 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
[75] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2
慕桂英4014372
TA貢獻1871條經(jīng)驗 獲得超13個贊
為了完整性：在大向量中，您可以使用索引來加快速度（我們通常在模擬中執(zhí)行此操作，其中函數(shù)通常運行1000到10000次）。但只要沒有必要，只需使用即可ifelse。這讀起來容易得多。
> set.seed(100)
> x <- runif(1000,1,10)
> system.time(replicate(10000,{
+ y <- ifelse(x < 5,1,2)
+ }))
user system elapsed
2.56 0.08 2.64
> system.time(replicate(10000,{
+ y <- rep(2,length(x))
+ y[x < 5]<- 1
+ }))
user system elapsed
0.48 0.00 0.48
蝴蝶不菲
TA貢獻1810條經(jīng)驗 獲得超4個贊
y <- if (x < 5) 1 else 2不對整個向量進行操作（您收到的警告只會告訴您將使用該條件的第一個元素）。你想要ifelse：
y <- ifelse(x < 5, 1, 2)
ifelse對整個邏輯向量進行逐元素操作。 if只接受一個邏輯值。見?"if"和?ifelse
- 3 回答
- 0 關注
- 583 瀏覽
添加回答
舉報
0/150
提交
取消