我对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()
的所有内容吗?有人可以给我更多的例子和更好的申请吗?
答案 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)
这会将case2
和case3
映射到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))
)