plot()函数
plot(cars$dist~cars$speed, # y~x
main="XXX", # 画标题
xlab="XXX", #X坐标轴标题
ylab="XXX", #Y坐标轴标题
xlim=c(0,30), #设置X轴范围为从0到30
ylim=c(0,140), #设置Y轴范围为从0到140
xaxs="i", #设置X轴风格internal
yaxs="i", #设置Y轴风格internal
col="red", #设置“散点”的颜色为红色
pch=19) #设置散点的形状为实心圆点
示例
1.数据:R自带数据集cars
>cars >plot(cars$dist~cars$speed)
结果如下图:
>cars > plot(cars$dist~cars$speed, # y~x + main="Relationship between car distance & speed", # 画标题 + xlab="Speed (miles per hour)", #X坐标轴标题 + ylab="Distance travelled (miles)", #Y坐标轴标题 + xlim=c(0,30), #设置X轴范围为从0到30 + ylim=c(0,140), #设置Y轴范围为从0到140 + xaxs="i", #设置X轴风格internal + yaxs="i", #设置Y轴风格internal + col="red", #设置“散点”的颜色为红色 + pch=19) #设置散点的形状为实心圆点
结果如下图:
2.点图
> library(reshape) > sales<-melt(citysales) #把宽表融合成窄表 > sales$color[sales[,2]=="ProductA"] <- "red" #sales数据增加color这一列 > sales$color[sales[,2]=="ProductB"] <- "blue" > sales$color[sales[,2]=="ProductC"] <- "violet" > dotchart(sales[,3], #画点图
+ labels=sales$City, #标城市名
+ groups=sales[,2], #按第二列分类 + col=sales$color,pch=19, + main="Sales Figures", + xlab="Sales Revenue (1,000's of USD)")