活了二十多年,没能为祖国、为人民做点什么,每思及此,伤心欲绝 !

R语言常用函数

R语言 keguang 683℃ 0评论

作为一门高级的数据分析语言,R语言不仅具有其它高级语言的自带大量内嵌函数的方便特性,而且它的一些函数更侧重于数据统计分析,成为越来越多的数据分析人员首选语言。下面就来列一下R中的一些常用函数。与matlab一样,作为第二个以向量式运算作为主要运算方式的编程语言,R的一些函数主要是针对向量的。

作用于向量

>x <- 1:10 >sum(x)    #对x中的元素求和
[1] 55
>length(x)    #返回x的长度
[1] 10
>prod(x)    #求x中所有元素的连乘积
[1] 3628800
> prod(2:10)    #求10的阶乘
[1] 3628800
>max(x)    #求x的最大值
[1] 10
>min(x)    #求x的最小值
[1] 1
>which.max(x)    #返回x中最大值的下标
[1] 10
>range(x)    #返回x的最值
[1]  1 10
>mean(x)    #返回x的均值
[1] 5.5
>median(x)    #返回x的中位数
[1] 5.5
>var(x)    #返回x的方差
[1] 9.166667
>sd(x)    #返回x的标准差
[1] 3.02765
>rev(x)    #对x中元素取逆序
[1] 10  9  8  7  6  5  4  3  2  1
y <- c(2,1,4,3) >sort(y)    #返回y的排序
[1] 1 2 3 4
> cumsum(x)    #求累积和,返回一个向量,它的第i个元素是从x[1]到x[i]的和,这点与matlab一样
[1]  1  3  6 10 15 21 28 36 45 55
>cumprod(x)    #从左到右依次求累积
[1]       1       2       6      24     120     720    5040
[8]   40320  362880 3628800
>cummin(x)    #从左到右求累积最小值
[1] 1 1 1 1 1 1 1 1 1 1
>match(x,y)    #返回y中与x中相同的元素在y中的位置
[1]  2  1  4  3 NA NA NA NA NA NA

矩阵拼接

>a <- matrix(c(1:12),2,6) >b <- matrix(c(13,36),3,6) >rbind(a,b)    #矩阵按行拼接
      [,1]  [,2]  [,3]  [,4]  [,5]  [,6]
[1,]    1    3    5    7    9   11
[2,]    2    4    6    8   10   12
[3,]   13   16   19   22   25   28
[4,]   14   17   20   23   26   29
[5,]   15   18   21   24   27   30
>cbind(a,b)    #按列拼接
Error in cbind(a, b) : number of rows of matrices must match (see arg 2)

显然,只有列数相同才能按行拼接,行数相同才能按列拼接。

缺失值处理

> z <- c(1,2,3,NA) > complete.cases(z)
[1]  TRUE  TRUE  TRUE FALSE

没有缺失就标记为TRUE,否则标记为FALSE。

> ind <- complete.cases(z) >ind
[1]  TRUE  TRUE  TRUE FALSE
> z[ind]
[1] 1 2 3

下面用na.omit()直接去掉缺失值,返回去掉缺失值后的向量。

> na.omit(z)
[1] 1 2 3    去除缺失值后
attr(,"na.action")
[1] 4
attr(,"class")
[1] "omit"

其它函数

> w <- 100000 > format(w,digits = 1,scientific = TRUE)    #返回科学计数值
[1] "1e+05"
>Sys.time()    #返回系统时间
[1] "2017-05-30 19:25:48 CST"
>format(Sys.time(),"%Y-%m-%d")    #返回标准时间格式
[1] "2017-02-22"
> format(Sys.time(),"%Y-%m-%d %A")
[1] "2017-05-30 星期二"
>ls()    #查看内存中所有变量
[1] "a" "b" "x" "y" "z"
>rm(x)    #从内存中清除变量x
>x
Error: object 'x' not found

清除内存所有变量

>rm(list = ls())
当然了,我们还可以自定义函数,现以一个小例子说明R中自定义函数的格式,比如我么要对一个数组求和:
>SUM<-function(num){
+x<-0
+for(i in 1:length(num)){
+x<-x+num(i) +} +return(x) +} >n=c(1:100)
>SUM(n)
[1] 5050

字符串处理函数

连接

> paste0('hello',' world!')
[1] "hello world!"

截取

substr(string,n1,n2),截取n1位置开头,n2位置结束之间字符串。
> substr('123456',3,4)
[1] "34"

当然了,关于R语言正则表达式函数有很多,也很复杂,需要用时再去查找是一个好的选择。

转载请注明:柯广的博客 » R语言常用函数

喜欢 (0)or分享 (0)
发表我的评论
取消评论

表情

Hi,您需要填写昵称和邮箱!

  • 昵称 (必填)
  • 邮箱 (必填)
  • 网址