2020-09-23

head(sleep)
nrow(sleep)
str(sleep)
?plot
plot(sleep,col=“red”)#通过颜色名称
plot(sleep,col=554)#通过颜色下标
plot(sleep,col="#FFO000")#通过十六进制的颜色值
mycolor <- rgb(red=255,green=0,blue=0,max=255)
plot(sleep,col=mycolor)#通过RGB值
#对其他图形参数颜色进行设置
plot(sleep,main=“身高vS体重散点图”,sub=“数据来源:women数据集”,
col=“red”,col.main=“green”,col.sub=“blue”,
col.axis=“grey”,col.lab=“yellow”)
colors()

#箱线图
str (sleep)
attach(sleep)
boxplot (Sepal.Length~Species, col=heat.colors (3) ,
main=list (“Sepal.Iength按照species分类的箱线图”,
font=4,col=“red”,cex=1.5) ,
sub=list(“数据来源: sleep数据 集”, font=3,
col=“green”,cex=0.8),
xlab=“Species”,y1ab=“Sepa1. Length”)

title函数

boxplot(Sepal.Length~Species,col=heat.colors(3))
title(main=list(“Sepal.Length按照Species分类的箱线图”,
font=4,col=“red”,cex=1.5),
sub=list(“数据来源: sleep数据集”,font=3,
col=“green”,cex=0.8),
xlab=“Species”,ylab=“Sepal.Length”)

#绘制分组柱状图
head(sleep)
str(sleep)
A<-as.matrix(sleep[,1:2])
A
barplot(A,beside = F,col=cm.colors(5))
#练习:使用自己的数据画图
#添加图例
legend (“top”,legend=rownames(A),
ncol=5, fill=cm.colors(5),bty=“n”)
?legend

网格线

op <- par (mfcol=1:2)
barplot(A,beside = TRUE,col=cm.colors(5),
main=“p1ot A with grid()”)
grid()
barplot(A,beside = TRUE,col=cm.colors(5),
main=“plot A with grid(NA, 7,1ty=2, 1wd=1.5,col=‘green’)”)
grid(NA,7,lty=2,lwd=1.5,col=“green”)
par (mfcol=c(1,1))