R语言-画散点图

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)")