16

範囲内の値のフィッティングに基づいてさまざまな式を評価する R スクリプトを作成しようとしています。Length が 1 つの範囲内にある場合は一方向に評価され、それより長い範囲にある場合は別の方法で評価されるという考え方です。

if/else ステートメントを使用してこれを機能させることはできますが、かなり醜いので、もっと良い方法があるに違いないと確信しています...これが機能するコードです。

Length=8.2

if (Length<1) 
    mode="Walk"
else if (1<=Length & Length <5)
    mode="bike" 
else if (5<=Length & Length <10)
    mode="drive"
else if (Length>=10)
    mode="fly"

switch関数で何とかしようとしているのですが、文字列か整数しか動かないようです...このようなケースごとに評価を行うswitch文を持たせる方法はありますか？

Length=3.5

switch(Length,
       (Length<1)  mode="Walk"
       (1<=Length & Length <5)  mode="bike"
       (5<=Length & Length <10)  mode="drive"
       (Length=>10)  mode="fly"
)
4

6 に答える 6

20

これはJoshと同様の答えですが、以下を使用していfindIntervalます。

Length <- 0:11

cuts <- c(-Inf, 1, 5, 10, Inf)
labs <- c("Walk", "bike", "drive", "fly")

labs[findInterval(Length, cuts)]
# [1] "Walk"  "bike"  "bike"  "bike"  "bike"  "drive" "drive"
# [8] "drive" "drive" "drive" "fly"   "fly"

ネストされたステートメントを使用することもできますifelse。これは好みの問題です。

ifelse(Length < 1,  "Walk",
ifelse(Length < 5,  "bike",
ifelse(Length < 10, "drive",
                    "fly")))
# [1] "Walk"  "bike"  "bike"  "bike"  "bike"  "drive" "drive"
# [8] "drive" "drive" "drive" "fly"   "fly"
于 2012-09-11T23:21:48.443 に答える
7

あなたcut()が必要とすることをしますか？

Length <- 0:11

cuts <- c(-Inf, 1, 5, 10, Inf)
labs <- c("Walk", "bike", "drive", "fly")

as.character(cut(Length, breaks = cuts, labels = labs, include.lowest=TRUE))
#  [1] "Walk"  "Walk"  "bike"  "bike"  "bike"  "bike"  "drive" "drive" "drive"
# [10] "drive" "drive" "fly"
于 2012-09-11T23:09:34.507 に答える
0 
length <- 3.5
cuts <- c( 1, 5, 10, Inf )
labs <- c( "Walk", "bike", "drive", "fly" )
x <- which( cuts > length )[1]
switch(x,{labs[1]},{labs[2]},{labs[3]},{labs[4]})
于 2021-10-23T04:11:54.900 に答える