您好:
关于您的原始数据档案,我无法下载,因此自行定义数据,完整程式码和结果图档如下所示,希望能协助您解决问题。
另外,关于博客连结失效问题,建议您用翻墙方式连结,网页状态是正常的。
#定义数据
t<-c("1920/1/26","", "1920/1/28","", "1920/1/30","", "1920/2/1")
y<-c(63,94,77,34,55,26,12)
plot(1:length(t),y,xaxt='n',xlab="time",ylab="data",pch=16,col="blue")#利用xaxt='n'语法使不画出x轴label,将以时间替代
lines(1:length(t),y)#数据连线作图
axis(1,at=seq(1,length(t),1),label=t)#将x轴label以时间替代
|