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, 創(chuàng)建多維數(shù)組
array （data=Na,dim=length(data),dimnames=NULL）

2,創(chuàng)建數(shù)據(jù)框
使用data.frame()函數(shù)創(chuàng)建數(shù)據(jù)庫，語法格式：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(“l(fā)angming”,‘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語句查詢數(shù)據(jù)框
注意：應(yīng)先安裝并加載sqldf包

5，因子
6，列表
7，數(shù)據(jù)導入和導出
導入：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 dd<-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()函數(shù)創(chuàng)建向量
語法格式：seq(from=1,to=10,by=((to-form)/(length,out-1)),length.out=NULL)
2，使用rep(x,times)
語法格式：rep(x,times)
可以使用each=times參數(shù)表示每個元素重復(fù)times次數(shù)
3，使用索引訪問向量元素
負索引表示排除
循環(huán)補齊
4， 向量的比較
符合 “==”,兩向量各元素完全相同返回TURE ,否則返回FALSE
any()函數(shù)
all()函數(shù)
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，創(chuàng)建矩陣
（1）為向量添加維度形成矩陣
（2）使用matrix()函數(shù)創(chuàng)建矩陣

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()函數(shù)創(chuàng)建對角矩陣
xx<-1:5
diag(xx)
[,1] [,2] [,3] [
unit03-選擇結(jié)構(gòu)（續(xù)）
1，多重選擇結(jié)構(gòu)
語法格式
if 條件1：
語句一
elif 條件2：
語句二
else:
語句三
2，嵌套選擇結(jié)構(gòu)
語法結(jié)構(gòu)
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(“經(jīng)過5分30秒后的時間為：”, shi, “:”, fen, “:”, miao)

總結(jié)

以上是生活随笔為你收集整理的R语言(上课笔记)的全部內(nèi)容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯，歡迎將生活随笔推薦給好友。