R语言学习(二)

R语言最让我兴奋的点还是各种图形的绘制！比如散点图、直方图等等。今天学习一下！

#R 有三种绘图系统
#base 容易上手，但是很难扩展
#grid 修正了一些base的缺点
#lattice 建立在grid之上 为常见的图表提供了函数
#数据集
data(obama_vs_mccain,package = "learningr")
#忽略缺失值
obama_vs_mccain <- obama_vs_mccain[!is.na(obama_vs_mccain$Turnout),]
#创建散点图
with(obama_vs_mccain,plot(Income,Turnout))

#自定义输出格式
#pch 改变点的形状
with(obama_vs_mccain,plot(Income,Turnout,col = "violet", pch=20))
#log 可以通过log参数设置对数坐标
with(obama_vs_mccain,plot(Income,Turnout,col = "violet", pch=20 , log = "xy"))
#从上图可以看出收入和投票成正相关，在每一个地区也是否如此？
par(mar = c(3, 3, 0.5, 0.5) , oma = rep.int(0,4),mgp = c(2,1,0))
regions <- levels(obama_vs_mccain$Region)
plot_nums <- seq_along(regions)
layout(matrix(plot_nums,ncol = 5,byrow = TRUE))
for (region in regions) {
  regional_data <- subset(obama_vs_mccain,Region == region)
  with(regional_data,plot(Income,Turnout))
}