plot(ts(Data), screens=1)

像这样的图该怎么写呢？

用 legend 函数加图例

用ggplot2 相当简单，就不多说了！！

那具体该怎么写呢

我没用过啊，这不是时间序列的数据么，该怎么画 啊

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)
###如果还想加其他特式，同如此进行下去，
。。。。。。。。。。。

ggplot2 可以边说边绘图的互作式绘图：
1：想要数据mydata,绘一幅好图（ggplot(mydata,
2:x坐标是Year,y坐标是value:ggplot(mydata,aes(x=Year,y=value，
3：绘各省的线并标不同的色彩：ggplot(mydata,aes(x=Year,y=value,colour=PM))+geom_line()
4: 想加上。。。。。。
因此：ggplot 绘图时，几乎与你的绘图思路同步进行，
相当的友好！！！
当然，ggplot2 作者的团队现开发了一个更适全互作式绘图的package 。。。