R语言(上课笔记)

x<-1:20
y<-x^2
plot(x,y,col="tomato",ann=F)
title(main = "标题",col.main="red",sub="副标题",col.sub="brown",xlab="X坐标轴",ylab="y坐标轴",col.sub="navy",cex.main=2,cex.sub=1.25,font.sub=3)

y<-function(x)(exp(-(x^2)/2))/sqrt(2*pi)
plot(y,-5,5,main=expression(f(x)==frac(1,sqrt(2*pi))*e^(-frac(x^2,2))),lwd=3,col="blue")

x<-1:20
y<-x^2
plot(x,y,type = "b",xlim = c(0,20),ylim =c(0,400))
abline(v=seq(0,20,1),h=seq(0,400,20),lty=2,col="grey")

plot(c(-2,3),c(-1,5),type = "n",xlab = "x",ylab = "y",asp=1)
abline(h=0,v=0,col="gray60")
text(1,0,"abline(h=0)",col="gray60",adj = c(0,-.1))
abline(h=-1:5,v=-2:3,col="lightgray",lty=3)
abline(a=1,b=2,col=2)
text(1,3,"abline(1,2)",col=2,adj=c(-.1,-.1))

x<-1:20
y<-(1:20)^2
polt(x,y,type="b")#在原图上添加点
points(1:20,seq(1,200,length.out = 20),col="blue",pch=17)
#添加直线，lines（x，y）用线段连接x，y向量中给定的点
lines(1:20,seq(1,200,length.out = 20),col="red")
abline(v=10,h=100,lty=2,col="purple")
leg.tex<-c("power","linear")
legend(x

unit04
1, 创建多维数组
array （data=Na,dim=length(data),dimnames=NULL）

2,创建数据框
使用data.frame()函数创建数据库，语法格式：df<-data.frame(col1,col2,col3)

names<-c(‘tom’,‘rose’,‘jack’)
ages<-c(19,20,32)
df<-data.frame(names,ages,stringsAsFactors=F)
df
names ages
1 tom 19
2 rose 20
3 jack 32

rbind(df,c(“langming”,‘18’)) 按行进行添加
names ages
1 tom 19
2 rose 20
3 jack 32
4 langming 18
cbind(df,weight=c(20,30,40)) 按列进行添加
names ages weight
1 tom 19 20
2 rose 20 30
3 jack 32 40

4，使用sql语句查询数据框
注意：应先安装并加载sqldf包

5，因子
6，列表
7，数据导入和导出
导入：read.table() read.csv() read.csv2()
导出：write.table() write.csv()

m<-matrix(sample(c(NA,1:8),25,replace = T),5)
d<-as.data.frame(m) ;d
d[is.na(d)]<-0
d


d<-data.frame(x<-rep(LETTERS[1:4],2),Y<-letters[1:8])
colnames(d)<-c("Name","Value");d
d$Name<-as.character(d$Name)
d$Name[d$Name>="C"]<-"AA"
d

until4
1,使用seq()函数创建向量
语法格式：seq(from=1,to=10,by=((to-form)/(length,out-1)),length.out=NULL)
2，使用rep(x,times)
语法格式：rep(x,times)
可以使用each=times参数表示每个元素重复times次数
3，使用索引访问向量元素
负索引表示排除
循环补齐
4， 向量的比较
符合 “==”,两向量各元素完全相同返回TURE ,否则返回FALSE
any()函数
all()函数
5，按条件提取元素
> v1<–3:3

v1
[1] -3 -2 -1 0 1 2 3
v1v1
[1] 9 4 1 0 1 4 9
v2<-v1[v1v1>5]
v2
[1] -3 3

6，创建矩阵
（1）为向量添加维度形成矩阵
（2）使用matrix()函数创建矩阵

mat<-matrix(1:12,3,4)
mat
[,1] [,2] [,3] [,4]
[1,] 1 4 7 10
[2,] 2 5 8 11
[3,] 3 6 9 12
（3）使用diag()函数创建对角矩阵
xx<-1:5
diag(xx)
[,1] [,2] [,3] [
unit03-选择结构（续）
1，多重选择结构
语法格式
if 条件1：
语句一
elif 条件2：
语句二
else:
语句三
2，嵌套选择结构
语法结构
if条件1：
if 条件1：
语句一
elif 条件2：
语句二
else:
语句三
else:
if 条件1：
语句一
elif 条件2：
语句二
else:
语句三

shi = int(input(“请输入三个时间（小时）”))
fen = int(input(“请输入三个时间（分钟）”))
miao = int(input(“请输入三个时间（秒）”))
miao += 30
if miao >= 60:
miao = miao-60
fen += 1
fen += 5
if fen >= 60:
fen = fen - 60

shi += 1

if shi == 24:
shi = 0
print(“经过5分30秒后的时间为：”, shi, “:”, fen, “:”, miao)