数据处理

#比较运算
x<-3
y<-5
z<-5-2
x==y #==表示等于
x!=y #!=表示不等于
x<=z
z

#逻辑运算
x<-c(TRUE,TRUE,FALSE,FALSE)
y<-c(TRUE,FALSE,FALSE,TRUE)
x&y #&向量的逻辑“与”
x[1]
x[1]&&y[3]
x&&y #表里的逻辑“与”

if(x&&y)
print(“both true”)

#算数表达的逻辑运算
1<2
(1<2)*(3<4)
(3<4)==TRUE
(3<4)==1
#数学函数

abs(-4) #绝对值
sqrt(25) #平方根
25^(0.5)
ceiling(3.1414) #不小于x的整数
floor(3.1414) #不大于x的整数
trunc(5.99) #向0的方向截取x的整数部分
trunc(-5.99)
round(3.475,digits = 2) #四舍五入的有效位数
cos(2) #余弦
sin(2) #正弦
tan(2) #正切
acos(0.14) #反余弦
asin(0.14) #反正弦
atan(0.14) #反正切
cosh(2) #双曲余弦
sinh(2) #双曲正弦
tanh(2) #双曲正切
acosh(2) #反双曲余弦
asinh(2) #反双曲正弦
atanh(0.2) #反双曲正切
log(8,2) #对8取2为底的对数
log(10) #自然对数
log10(40) #常用对数
log(40,10)
exp(2) #指数函数

#样本统计函数
mean(1:10) #平均数
median(1:10) #中位数
sd(1:10) #标准差
var(1:10) #方差
mad(1:10) 中位差MAD=median(∣Xi−median(X)∣)
quantile(1:10,c(0.25,0.75)) #quantile(x,probs),求分位数

probs取值在0~1之间

?diff
diff(1:10)
range(c(1:7)) #值域
sum(c(1:7)) #求和

diff(x,lag=n) 滞后差分，lag用以指定滞后几项，默认为1

diff(c(5,21,22,2))
diff(c(5,21,22,2),lag = 2)
min(c(1:7)) #最小值
max(x) #最大值

#scale(x,center=TRUE,scale=TRUE) 为数据对象中心化或者标准化
x<-c(1:9,15,12)
mean(x)
myydata<-scale(x)
myydata
sd(x)
b<-c(1:10,NA)
b
sd(b,na.rm = TRUE)
sd(b,na.rm = FALSE)

#概率函数
##正态分布
?pretty
x<-pretty(c(-3,3),30)
x
y<-dnorm(x)
plot(x,y,type = “1”,yaxs=“i”)
?plot
pnorm(1.96)
qnorm(0.975)
qnorm(.9,mean = 500,sd=100)
rnorm(50,mean=50,sd=10)

#字符处理函数
#nchar(x) 返回字符串x中的字符数量
x<-c(“ab”,“cde”,“dsdesd”)
x
nchar(x)
length(x)
nchar(x[3])
#substr(x,start,stop) 函数返回给定字符串x中指定范围
#start：stop上的字符串数

substr(x,1,2)
substr(x[3],2,4)
a<-“abcdefjhijkl”
nchar(a)
substr(a,2,4)
substr(a,2,4)<-“22222”
a
?grep
iris
fix(iris)
iris[1,1:5]
#grep
#grep(pattern, x, ignore.case = FALSE, perl = FALSE,
#value = FALSE,
#fixed = FALSE, useBytes = FALSE, invert = FALSE);
x<-c(“abc”,“df”,“a”,“bbc”)
grep(“a”,x,fixed = FALSE)
grep(“a”,x,fixed = TRUE)
#sub
sub("\s",".",“Hello There”) #\是查找空值的正则表达式

#strsplit 拆分
x<-c(“abcde”)
strsplit(x,"")
y<-c(“2017-09-23”)
strsplit(y,"-")

#paste 拼接
paste(“x”,1:3,sep = “”)
paste(“x”,“zhuchusu”)
paste(“a”,“b”,“c”,“d”)

#大写转换
toupper(“abc”)
toupper(“ABC”)
#小写转换
tolower(“ABC”)

#regexpr 返回pattern的第一个字符串
regexpr(“acb”,“adsfadfacbdafdsf”)
#gregexpr 功能和regexpr类似 他会寻找所有匹配的
gregexpr(“iss”,“missppiissist”)
length(“adsfasfda”) #对象的个数
mysequ<-seq(1,10,3) #序列
mysequ
rep(“aasd”,3) #重复
pretty(500,100) #分割
?pretty