R语言--数值和字符处理函数
数值和字符处理函数
取相反数abs(-4)---4
求平方差：sqrt(4)---2
取整函数：
1）向上取整:ceiling(3.45)---4
2）向下取整：floor(3.475)---3
3）向零的方向截取的参数的整数部分:trunc(5.99)----5
4）指定要处理的参数，还有要保留的参数:round(3.475,digits=2)----3.48
5）signif(3.47,digits=2)----3.4
abs(-2)
sqrt(25)
ceiling(3.475)
ceiling(3.01)
floor(3.475)
floor(3.88)
trunc(5.01)
trunc(5.99)
trunc(-1.88)
trunc(-1.3)
round(3.475,digits = 2)
round(3.014,digits = 2)
signif(3.475,digits = 2)
cos(2)
#以base=2为底，求2的对数
log(2,base = 2)
#以e为底的自然对数
log(2.7128)
#以10为底的对数
log10(10)
#以e为底的指数函数
exp(2.306)
> abs(-2)
[1] 2
> sqrt(25)
[1] 5
> ceiling(3.475)
[1] 4
> ceiling(3.01)
[1] 4
> floor(3.475)
[1] 3
> floor(3.88)
[1] 3
> trunc(5.01)
[1] 5
> trunc(5.99)
[1] 5
> trunc(-1.88)
[1] -1
> trunc(-1.3)
[1] -1
> round(3.475,digits = 2)
[1] 3.48
> round(3.014,digits = 2)
[1] 3.01
> signif(3.475,digits = 2)
[1] 3.5
> cos(2)
[1] -0.4161468
> log(2,base = 2)
[1] 1
> log(2.7128)
[1] 0.9979813
> log10(10)
[1] 1
> exp(2.306)
[1] 10.03421
对数据做变换时这些数据的主要用途；数学和统计函数是用来处理数值型数据的；
字符处理函数：
x<-c("ab","ac3","sdfs")
#计算x下标为3的字符个数
nchar(x[3])
#提取字符串子串substr()
substr("adfsdfs",2,4)
y<-"sdfagadgd"
#字符串的替换
substr(y,2,4)<-"222"
y
#模式收索
grep("A",c("d","A","d"),fixed = TRUE)
#连接
paste("x",1:3,sep = "")
paste("x",1:3,sep = "M")
paste("Today is ",date())
#转换成大写函数
toupper("abc")
#转换成小写函数
tolower("ASD")
length(x)
seq(1,10,2)
#重复
rep(1:10,3)
#cut()将一个连续变量分隔为n个水平的因子
#将10分隔为5个水平的因子
cut(10,5)
firstname<-"Jane"
#拼接字符串
cat("Hello",firstname,"\n")
函数应用实例：
apply:可以将任意函数都应用到矩阵，数组，数据框和任何维度上；
> a<-5
> sqrt(a)
[1] 2.236068
> b<-c(1,243,5,654,2,99)
> round(b) #round()默认digits = 0
[1] 1 243 5 654 2 99
> #runif(12)他是从0-1中取值，一共取12个，分成3行3列的矩阵
> c<-matrix(runif(12),nrow = 3)
> #查询runif的使用方法> help(runif)
> c
[,1] [,2] [,3] [,4]
[1,] 0.40609713 0.5015378 0.007922844 0.3852485
[2,] 0.01424861 0.3715266 0.836512059 0.9515306
[3,] 0.11044779 0.8059156 0.376839179 0.4756742
> log(c)
[,1] [,2] [,3] [,4]
[1,] -0.9011629 -0.6900763 -4.8380051 -0.95386661
[2,] -4.2510957 -0.9901347 -0.1785143 -0.04968346
[3,] -2.2032123 -0.2157763 -0.9759368 -0.74302203
> #runif(30,-3,3),nrow=6:在-3到3之间取30个数，用六行表示出来
> newData<-matrix(runif(30,-3,3),6)
> newData
[,1] [,2] [,3] [,4] [,5]
[1,] 0.3125628 -1.691902 -2.0121431 1.8368722 -1.1242617
[2,] 2.6082980 1.117421 1.2883664 -2.3071726 -0.3170817
[3,] 2.1806175 2.756292 0.1689945 1.1520865 1.9526344
[4,] -1.4405131 -1.443573 -1.5917119 -2.8692826 -1.0092272
[5,] 1.1261990 -0.187440 -2.6134100 -0.8317397 -2.1358490
[6,] -0.3125565 -1.071963 1.0545810 1.3936803 -1.1944755
> #求各行均值
> apply(newData, 1,mean)
[1] -0.53577445 0.47796618 1.64212503 -1.67086159 -0.92844796 -0.02614668
> #求各列均值
> apply(newData,2,mean)
[1] 0.74576794 -0.08686085 -0.61755387 -0.27092599 -0.63804345
> #结尾均值
> #结尾均值就是基于中间的60%，最高的和最低的20%统统被忽略
> #第三个参数，可以带函数名，也可以是任意的R函数，也可以是自定义函数
> #apply可以把函数应用到数组的某一个维度上
> apply(newData,2,mean,trim=0.2)
[1] -1.1738655 1.1710025 -0.4913028 1.7737582 -0.2801271