在R语言中,点的样式由pch的取值决定。
当pch取0~14时,其点为空心点,可以用col(颜色)参数设置其边框的颜色;
当pch取15~20时,其点是实心点,可以用col参数设置其填充的颜色;
当pch取21~25时,其点也是实心点,既可以用col参数设置边框的颜色,也可以用bg参数设置其内部的填充颜色。
pch不仅包括正方形、圆、上三角、倒三角、菱形等常规图形,还包括之类的特殊图形,如图(1)所示。
数据源:online shop.txt
period amount
2008 1281.8
2009 2630.0
2010 4610.0
2011 7846.5
2012 13040.0
2013 18500.0
2014 24500.0
2015 30200.0
2016 36000.0
绘制9种类型的点样式
//point.R
##读取数据
dat <- read.table("G:/myProject/RDoc/Unit2/rChap6/online shopping.txt",head=T)
attach(dat)
##绘制9种图,每行三个
par(mfrow=c(3,3))
##空心圆点
plot(period,amount, pch=1,col="red",bg="yellow",cex=1.5)
title("online shopping",font.main=3, adj=1)
##上三角
plot(period,amount, pch=2,col="red",bg="yellow",cex=1.5)
title("online shopping",font.main=3, adj=1)
## 加号+
plot(period,amount, pch=3,col="red",bg="yellow",cex=1.5)
title("online shopping",font.main=3, adj=1)
##乘号×
plot(period,amount, pch=4,col="red",bg="yellow",cex=1.5)
title("online shopping",font.main=3, adj=1)
##空心菱形
plot(period,amount, pch=5,col="red",bg="yellow",cex=1.5)
title("online shopping",font.main=3, adj=1)
##倒三角
plot(period,amount, pch=6,col="red",bg="yellow",cex=1.5)
title("online shopping",font.main=3, adj=1)
##实心正方形
plot(period,amount, pch=22,col="red",bg="yellow",cex=1.5)
title("online shopping",font.main=3, adj=1)
##实心菱形
plot(period,amount, pch=23,col="red",bg="yellow",cex=1.5)
title("online shopping",font.main=3, adj=1)
##实心上三角
plot(period,amount, pch=24,col="red",bg="yellow",cex=1.5)
title("online shopping",font.main=3, adj=1)
效果如下: