画柱状图。

画柱状图。

画柱状图

3-3 R语言 基本绘图系统之实践

1. hist(airquality$Wind,xlab="Wind")(数值型变量风速的柱状图)
   

2. boxplot(airquality$Wind,xlab="Wind",ylab="Speed(mph)")(箱图)

3. boxplot(Wind~Month,airquality,xlab="Month",ylab="Speed(mph)")（一个分类变量和一个数值变量的关系,每个月份的风速）

4. plot(airquality$Wind,airquality$Temp)(风速和温度的散点图)=with(airquality,plot(Wind,Temp))

5. title(main="Wind and Temp in NYC")(加标题，可以直接将括号中的命令放入with命令中)

6. with(airquality,plot(Wind,Temp,main="Wind and Temp in NYC",type="n"))(除了点以外其他的信息都有)

7. with(subset(airquality,Month==9),points(Wind,Temp,col="red"))（按月份画点，不同月份显示的点有不同的颜色）

8. with(subset(airquality,Month%in%c(6,7,8)),points(Wind,Temp,col="red"))

9. fit<-lm(Temp~Wind,airquality)(拟合模型)

10. abline(fit,lwd=2)

11. legend("topright",pch=1,col=c("red","blue","black"),legend=c("Sep","May","Other"))(点的颜色代表的含义)
    

加入回归线

fit<-lm()拟合一个模型，lm是线性模型（y因变量~x自变量，数据集）

abline（fit，lwd=2）

legend图列说明放在什么位置，pch=1表示与散点图一样的空心圆，颜色注意画图时候各颜色的先后顺序，legend=c（）给颜色赋予含义）

with（传入数据集，points（x，y，col=））

month%in%c（6,7,8)数据在6，7，8月份中

type=n除了点以外所有的信息都画出来了

基本绘图系统实践

用'help.start()'通过HTML浏览器来看帮助文件。

用'q()'退出R.

[原来保存的工作空间已还原]

> plot(1,2,3,4,5,6)

Error in strsplit(log, NULL) : 非字符参数

> plot(100,200)

> plot(100,200,300)

Error in plot.xy(xy, type, ...) : 绘图种类不对

> point(1,2)

Error in point(1, 2) : 没有"point"这个函数

> hist(1,2,3,4)

> hist(airquality$wind)

Error in hist.default(airquality$wind) : 'x'必需为数值

> hist(airquality$Wind)

> hist(airquality$Wind)

> hist(airquality$Wind)

> hist(airquality$Wind)

> hist(airquality$Wind,xlab = "风速")

> boxplot(airquality$Wind)

> boxplot(airquality$Wind,xlab = "风的速度")

> 

不同月份的点用不同颜色显示，%in%的含义是只要月份取值在后面集合（c函数）的元素当中，就会把这个数据提取出来

lm(a~b,n)函数用于拟合模型（用回归线拟合数据），a是因变量，b是自变量，n是数据集。用abline函数添加回归线，legend函数做图例，按顺序写

使用with函数可以简化plot函数的参数输入

title(main="")设置主标题

#基本绘图系统之实践

xlab=#设置x轴
polt(x,y)

拟合模型lm 线性回归模型  fit（y~x，airquality）

plot(airquality$Wind,airquality$Temp) with(airquality,plot(Wind,Temp)) with(airquality,plot(Wind,Temp, main = "Wind and Temp in NYC", type = "n")) 

with(subset(airquality,Month==9), points(Wind,Temp,col="red")) #9月份的数据点为红色

 with(subset(airquality,Month==5), points(Wind,Temp,col="blue")) #5月份的数据点为蓝色 

with(subset(airquality,Month %in% c(6,7,8)), points(Wind,Temp,col="black")) #6、7、8三个月为黑点

fit <- lm(Temp ~ Wind,airquality) abline(fit,lwd=2) #拟合回归线

legend("topright",pch=1, col=c("red","blue","black"), legend = c("Sep","May","Other")) #添加图例

（"topright"表示图例位置放右上方，pch=1用圈表示数据，col=c("red","blue","black")表示从这三种颜色种选取,legend=c("Sep","May","Other")表示这三个月份分别对应前面的三种颜色)

hist(airquality$Wind, xlab = "wind") #柱状图

boxplot(airquality$Wind, xlab = "wind", ylab = "speed(mpc)") #单箱图

boxplot(Wind ~ Month, airquality, xlab = "wind", ylab = "speed(mpc)")  #并排箱图

plot(airquality$Wind, airquality$Temp) #散点图

with(airquality, plot(Wind, Temp, main="Wind and Temp in NYC", type = "n")) #type="n"表示先不画出点，只画坐标和标题

with(subset(airquality, Month == 9), points(Wind, Temp, col = "red")) #再用points()对点的样式进行设置

可以用 Month %in% c(7,8,9) 选择多个月份

除了with，还可以使用attach的，以下三种方法是等价的：

1. plot(airquality$Month, airquality$Temp);
   

2. with(airquality, plot(Month, Temp);

3. attach(airquality)

   plot(Month, Temp)

   detach(airquality)

除了with，还可以使用attach的，以下三种方法是等价的：

1. plot(airquality$Month, airquality$Temp);
   

2. with(airquality, plot(Month, Temp);

3. attach(airquality)

   plot(Month, Temp)

   detach(airquality)

这一章没有经过实际演练