switch()语句用法

时间:2011-10-19 17:34:54

标签: r switch-statement

我对R中的switch语句有点困惑。 只需谷歌搜索函数我得到一个例子如下:

switch的一个常见用法是根据函数的一个参数的字符值进行分支。

 > centre <- function(x, type) {
 + switch(type,
 +        mean = mean(x),
 +        median = median(x),
 +        trimmed = mean(x, trim = .1))
 + }
 > x <- rcauchy(10)
 > centre(x, "mean")
 [1] 0.8760325
 > centre(x, "median")
 [1] 0.5360891
 > centre(x, "trimmed")
 [1] 0.6086504

然而,这似乎只是为每个if指定了一堆type个语句

这就是switch()的所有内容吗?有人可以给我更多的例子和更好的申请吗?

3 个答案:

答案 0 :(得分:110)

嗯,再次拯救的时机。似乎switch通常比if语句更快。 因此,使用switch语句代码更短/更整洁的事实倾向于switch

# Simplified to only measure the overhead of switch vs if

test1 <- function(type) {
 switch(type,
        mean = 1,
        median = 2,
        trimmed = 3)
}

test2 <- function(type) {
 if (type == "mean") 1
 else if (type == "median") 2
 else if (type == "trimmed") 3
}

system.time( for(i in 1:1e6) test1('mean') ) # 0.89 secs
system.time( for(i in 1:1e6) test2('mean') ) # 1.13 secs
system.time( for(i in 1:1e6) test1('trimmed') ) # 0.89 secs
system.time( for(i in 1:1e6) test2('trimmed') ) # 2.28 secs

更新考虑到Joshua的评论,我尝试了其他方式进行基准测试。微基准似乎是最好的。 ......它显示了类似的时间:

> library(microbenchmark)
> microbenchmark(test1('mean'), test2('mean'), times=1e6)
Unit: nanoseconds
           expr  min   lq median   uq      max
1 test1("mean")  709  771    864  951 16122411
2 test2("mean") 1007 1073   1147 1223  8012202

> microbenchmark(test1('trimmed'), test2('trimmed'), times=1e6)
Unit: nanoseconds
              expr  min   lq median   uq      max
1 test1("trimmed")  733  792    843  944 60440833
2 test2("trimmed") 2022 2133   2203 2309 60814430

最终更新这里显示了多才多艺的switch

switch(type, case1=1, case2=, case3=2.5, 99)

这会将case2case3映射到2.5,将(未命名的)默认映射到99。有关详细信息,请尝试?switch

答案 1 :(得分:3)

简而言之,。但有时候你可能会偏爱一个而不是另一个。谷歌“案件切换与否则”。关于SO也有一些讨论。此外,这是一个很好的视频,在MATLAB的背景下讨论它:

http://blogs.mathworks.com/pick/2008/01/02/matlab-basics-switch-case-vs-if-elseif/

就个人而言,当我有3个或更多个案时,我通常会选择使用case / switch。

答案 2 :(得分:0)

Switch 也比一系列 if() 语句更容易阅读。怎么样:

switch(id,
   "edit" = {
      CODEBLOCK
   },
   "delete" = {
      CODEBLOCK
   },
   stop(paste0("No handler for ", id))
 )