R语言作图作业小结

2020年1月以来，蔓延全球的新冠肺炎疫情受到人们的广泛关注，也深刻改变了中国人民的工作和生活方式。各行各业的人都在为控制疫情作出贡献，作为统计学专业的学生，我们也应该利用专业知识给出自己的分析和建议。
附件中是1月20日到2月21日期间，全国、湖北省和非湖北省每日接受医学观察的人数统计，请利用R语言作图方法来直观展现接受医学观察人数的发展趋势。请提交图形、代码并做简单分析。
（注：可以选用其他疫情数据作图，请同时提交数据和数据描述。）

附件：文件地址

#代码与上图有稍许出入，以防雷同，windows上会出现字体的warning，不影响结果
virus=read.csv("湖北+非湖北+全国医学观察人数.csv",header = T)
date <- as.Date(virus$时间) 
plot(date,virus$全国,pch=21,type="b",col="red",yaxt="n",lty=3,ann=FALSE)
lines(date,virus$湖北,type="b",pch=22,col="blue",lty=2)
lines(date,virus$非湖北,type="b",pch=23,col="pink",lty=3)
axis(2,las=2,cex.axis=0.7,tck=-0.05)
par(family='STKaiti') #使图中的中文显示出来
title("变化图",xlab = "时time间",ylab = "人number数")
legend("topleft",inset = .01,title = "图例",c("全国","湖北","非湖北"),lty =c(3,2,3),pch=c(21,22,23),col=c("red","blue","pink"),text.width=1.5,cex=0.5)

让统计学为抗击疫情出一份力！