R如何给日期型数据设置X轴标签。

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

因为日期第变化往往不是固定的，这样用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)

复制代码

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

1. library(dplyr)
   
2. ##
   
3. ## Attaching package: 'dplyr'
   
4. ## The following objects are masked from 'package:stats':
   
5. ##
   
6. ##     filter, lag
   
7. ## The following objects are masked from 'package:base':
   
8. ##
   
9. ##     intersect, setdiff, setequal, union
   
10. library(lubridate)
    
11. ##
    
12. ## Attaching package: 'lubridate'
    
13. ## The following object is masked from 'package:base':
    
14. ##
    
15. ##     date
    
16. library(ggplot2)
    
17. library(xlsx2dfs)
    
18. ## Loading required package: openxlsx
    
19. df=read.xlsx("fanli.xlsx",detectDates =T)
    
20. names(df)=c("date","xiang","yu","xian")
    
21. ggplot(df)+
    
22.   geom_line(aes(x=ymd(date),y=xiang))+
    
23.   geom_point(aes(x=ymd(date),y=xiang),shape=1,color="red")+
    
24. scale_x_date(date_labels = "%y年%m月",date_breaks="month")+
    
25.   theme(axis.text.x = element_text(angle = 30,hjust = 1))+
    
26.   labs(x="日期",y="乡")

复制代码