|
ggplot2 绘图方法其实是一种加法方法,以此如述如下:
一、要将数据集整理成一种“tidy”式
library(tidyr)
###将你的上面数据为mydata,其中第一列为省份名(下面简为“PM"),,
###列名不变(2013年,2012年,.....)
names(mydata)[2:8]<-seq(2013,2007,by=-1)
mydata<-gather(mydata,key=Year,value=value,-PM) ###数据从横式改为竖式
mydata<-transform(mydata,Year=as.integer(as.character(Year))) ###
library(ggplot2)
###绘线:
Pic<-ggplot(mydata,aes(x=Year,y=value,colour=PM))+geom_line()
Pic
##加上数据点:
Pic<-Pic+geom_geom_point(pch=1)
Pic
###各省分列
Pic<-Pic+facet_wrap(~PM)
###如果还想加其他特式,同如此进行下去,
。。。。。。。。。。。
|