我想给x轴加上年份的刻度标签，为什么加上labels还是不行？

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：labels label Abel Lab ELS

已解决

1. 想用日期做横坐标，aes里为什么不直接用x=Date？
2. label(标签）和scale（坐标刻度）是两样东西。
3. 示例中“scale_x_date(date_breaks = '1 year')”就是修改刻度，你的应用应该改成“1 month‘。

1. library(tidyverse)
   
2. 
   
3. x <- seq(as.Date('2005-01-01'), as.Date('2022-12-31'), by='months')
   
4. y <- sample(c(1:20), length(x), replace = T)
   
5. df <- as.data.frame(x)
   
6. df <- cbind(df, y) |>
   
7.   mutate(year = year(x), month = month(x))
   
8. df2 <- df |>
   
9.   group_by(year) |>
   
10.   summarise(y = sum(y)/10)
    
11. df2 <- df2 |>
    
12.   mutate(x = paste0(year, '0701'))
    
13. df2$x <- as.Date(df2$x, '%Y%m%d')
    
14. 
    
15. ggplot(NULL, aes(x, y)) +
    
16.   geom_line(data=df, col='blue', alpha=.5) +
    
17.   labs(x='Date', y='Number of Cases') +
    
18.   scale_y_continuous(expand = c(0,0),limits = c(0,20),
    
19.                      sec.axis = sec_axis(~./5, name = 'Rate of Year',
    
20.                                          breaks = seq(0, 4, .5))) +
    
21.   scale_x_date(date_breaks = '1 year') +
    
22.   theme(axis.text.x = element_text(angle = 45)) +
    
23.   geom_line(data=df2, col='red') +
    
24.   geom_point(data = df2, col='brown')

复制代码