R语言中的switch函数用法

R语言中的switch与其它语言中的switch有很大区别。

在R中，switch函数的语法形式如下：

其中，expr为表达式，其值或为一个整数值或为一个字符串；list为一个列表。

运行机理：若expr的计算结果为整数，且值在1~length(list)之间时，则switch()函数返回列表相应位置的值。若expr的值超出范围，则没有返回值（老版本的R中返回NULL）。

例1：

由该例可知，x的值为2，则switch函数根据传入的值2，输出列表中的第2个值：国家纳米科学中心。

例2：看看下面两个例子的输出值是多少：

若switch()中的参数list是有名定义时，则当expr等于元素名时，返回变量名对应的值，否则没有返回值。

例3：

youlike<-"fruit"

switch(youlike, drink="water", meat = "beef", fruit = "apple", vegetable="cabbage")

我们使用switch函数的这一性质可以定义一个函数实现多种 *** 作：

R语言的switch结构是常用的一种结构

工具/原料

R语言开发环境

R语言开发工具

方法/步骤

打开R语言开发工具，RGui

R语言switch的使用方法

先定义一个向量

R语言switch的使用方法

使用for结构对switch进行循环输出

R语言switch的使用方法

编写switch结构的语言

R语言switch的使用方法

回车后，根据print函数输出switch函数的结构

R语言switch的使用方法

6

应用解析：for对向量bd进行循环，

通过print对switch定义的结构判断结构中符合向量的要求，

然后把符合要求的输出！

函数主体可以是一系列表达式，这些表达式需要用大括号括起来：

function(param1, , paramN) {

expr1

exprM

}

讨论

函数的定义告诉R软件“用何种方式进行计算”。例如，R软件没有内置计算变异系数的函数，因此你可以定义函数如下：

> cv <- function(x) sd(x)/mean(x)

> cv(1:10)

[1] 05504819

第一行定义了名为cv的函数，第二行引用该函数，以1∶10作为其参数x的值。函数对参数应用函数主体中的表达式sd(x)/mean(x)进行计算并返回结果。

定义函数后，我们可以在任何需要函数的地方应用它，例如可以作为lapply函数的第二个参数（参见方法62）：

> cv <- function(x) sd(x)/mean(x)

> lapply(lst, cv)

函数主体如果包含多行表达式，则需要使用大括号来确定函数内容的起始和结束位置。下面这一函数采用了欧几里德算法计算两个整数的最大公约数：

> gcd <- function(a,b) {

+ if (b == 0) return(a)

+ else return(gcd(b, a %% b))

+ }

R软件也允许使用匿名函数，匿名函数是没有函数名称但在单行的语句中很实用的函数。先前的例子中我们提到将cv函数作为lapply函数的一个参数，而若使用匿名函数直接作为lapply函数的参数，则能将原先的命令简化至同一行中：

> lapply(lst, function(x) sd(x)/mean(x))

由于本书重点不在于介绍R的编程语言，这里不对R函数编程的细微之处进行解释。下面给出几个需要注意的地方：

返回值

所有函数都有一个返回值，即函数主体最后一个表达式值。你也可以通过return(expr)命令给出函数的返回值。

值调用

函数参数是“值调用”——如果你改变了函数中的参数值，改变只是局部的，并不会影响该参数所引用的变量值。

局部变量

你可以简单地通过赋值来创建一个局部变量，函数结束后该局部变量会消失。

条件执行

R语法中包含if语句，更多详情可以使用help(Control)命令查看。

循环语句

你使用的方法没有问题。

rmydose()调用后返回的东西不是报错，是因为mydose这个function返回值就是NULL,所以rpy就相应的返回了rpy2rinterfaceNULL，没有问题。

以上是我的测试

nofunc是一个什么也不做的function

hello是输出Hello world的function