R语言常用代码
基本命令
q():退出R程序
tab:自动补全
ctrl+L:清空工作环境
ESC:中断当前计算
head(X):查看数据集前6行数据
tail(X):查看数据集尾6行数据
安装所需要的包
# 安装包
install.packages("packagename")
# 加载包
library(packagesname)
设置工作路径
getwd()
setwd("D:/R")
数据的读取与保存
# 读取csv
data <- read.csv('data.csv')
# 读取 R格式数据
data <- load('.RData')
# 保存 R格式数据
save(data,file = 'name.Rdata')
# 保存 csv格式数据
write.csv(data,file = 'name.csv')
循环语句
a <- 2
while(a<5){
print('hello')
a = a + 1
}
v <- c(1,2,5,7,9,6)
for(i in v){
print(i)
}
数据操作
#删除第3列
data <- data[,-3]
#剔除掉第1,2,18列
arpu <- arpu[,-c(1,2,18)]
#剔除掉第1,2,3,,4,5,18行
arpu <- arpu[-c(1:5,18),]
iris[which((iris$Species== 'setosa') | (iris$Species == 'virginica')), ]
给数据的行命名
names(data1)=c("YEAR", "MNTH", "DAY","PRCP", "RHUM", "WIND")
合并两个数据
Data=rbind(rundata,rundata1)
将结果存入文件
result=c(Sum_SRAD,Ave_RHUM,Sum_PRCP,Ave_T)
Result=paste(Filename,"Result.csv")
print(Result)
sink(Result,append=TRUE,split=TRUE)
print(result)
sink()
绘图部分
链接: 绘图参数介绍.
链接: 坐标轴,图例设置.
png("~/plotSamples.png",width=9,height=9,unit="in",res=108)
par(mfcol=c(2,2))
color<-colorRampPalette(c("red","yellow","blue"))(30)
plot(1:30,col=color,pch=20,cex=2,main="1:30")
plot(1:10,col=color,pch=20,cex=2,main="1:10")
plot(1:90,col=color,pch=20,cex=2,main="1:90")
plot(1:900,col=color,pch=20,cex=2,main="1:900")
dev.off()
hist(h,prob=T,col="light blue")
lines(density(x), col="red", lwd=3)
qqnorm(h, main="QQ图与直方图")
qqline(h, col="red",lwd=2)
text(X,Y,labels=c(1,2,3),adj=1.2)
abline(h = <int>,lty=2)
abline(a,b)
points(x,y)
lines(x,y)
axis(side=1,at=seq(from=0.5,by=1.7,length.out=4),labels=c())
x=c(45,21,5,42,51,254,12,54,125,45,4)
h=hist(x, breaks=10, col=1, xlab="##", main="##")
xfit=seq(min(x),max(x),length=40)
yfit<-dnorm(xfit,mean=mean(x),sd=sd(x))
yfit <- yfit*diff(h$mids[1:2])*length(x)
lines(xfit, yfit, col="blue", lwd=2)
d = density(x)
plot(d)
输入与输出函数
> a <- readline()
Hello World
> a
[1] "Hello World"
> x <- scan()
1: 34
2: 67
3: 9
4: 7
5:
Read 4 items
> x
[1] 34 67 9 7
print(paste("字符串: ",n))