搜索
人大经济论坛 › 附件下载

附件下载

所在主题：
文件名:  范例1.xlsx
资料下载链接地址: https://bbs.pinggu.org/a-3065370.html
附件大小:
13.55 KB   举报本内容
因为日期第变化往往不是固定的，这样用ts时间序列并不合适。我的土办法是把日期列改为1:n第序号，然后在需要增加标签地方手动设置，这样很麻烦。求教简便办法。数据见附件。
  1. library(readxl)
  2. mydata<-read_excel("范例1.xlsx")
  3. mydata$日期<-as.Date(mydata$日期)
  4. mydata$ID<-seq(1,nrow(mydata),by=1)
  5. attach(mydata)
  6. par(mfrow=c(3,1))
  7. plot(ID,乡,type="b",pch=1,lty=1,lwd=2,cex=2,col="forestgreen",xaxt="n",xlab="日期")
  8. axis(side=1,at=c(1,6,9,13,17,22,26,31,35,39,43,47,51,54),labels=c("19年1月","2月","3月","4月","5月","6月","7月","8月","9月","10月","11月","12月","20年1月","2月"))
  9. plot(ID,域,type="b",pch=1,lty=1,lwd=2,cex=2,col="blue2",xaxt="n",xlab="日期")
  10. axis(side=1,at=c(1,6,9,13,17,22,26,31,35,39,43,47,51,54),labels=c("19年1月","2月","3月","4月","5月","6月","7月","8月","9月","10月","11月","12月","20年1月","2月"))
  11. plot(ID,县,type="b",pch=1,lty=1,lwd=2,cex=2,col="orange2",xaxt="n",xlab="日期")
  12. axis(side=1,at=c(1,6,9,13,17,22,26,31,35,39,43,47,51,54),labels=c("19年1月","2月","3月","4月","5月","6月","7月","8月","9月","10月","11月","12月","20年1月","2月"))
  13. par(mfrow=c(1,1))
  14. detach(mydata)
复制代码


    熟悉论坛请点击新手指南
下载说明
1、论坛支持迅雷和网际快车等p2p多线程软件下载，请在上面选择下载通道单击右健下载即可。
2、论坛会定期自动批量更新下载地址,所以请不要浪费时间盗链论坛资源,盗链地址会很快失效。
3、本站为非盈利性质的学术交流网站,鼓励和保护原创作品，拒绝未经版权人许可的上传行为。本站如接到版权人发出的合格侵权通知，将积极的采取必要措施；同时，本站也将在技术手段和能力范围内，履行版权保护的注意义务。
(如有侵权，欢迎举报)
二维码

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

京ICP备16021002号-2 京B2-20170662号 京公网安备 11010802022788号 论坛法律顾问：王进律师 知识产权保护声明   免责及隐私声明

GMT+8, 2026-2-8 07:53