ggplot日期格式的显示

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

用ggline做的图，x轴的日期标签如何显示全啊（只显示了3个，实际是7个点），ggline(weight230829, x = "日期", y = "体重", ylab="体重(g)",       add = c("mean_sd"),linetype = "组别",
       color = "组别",size =1.2,
       shape = 5,palette=cols[c(650,367,150,589,641,552,523)]) ）

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：gplot plot GPL Weight Eight

试试看加入下一行参数

1. scale_x_date(date_breaks = '1 day')

复制代码

运行报错，error：Invalid input:date_trans works with objects of class date only

报错提示你，x的数据非日期类，用str()看看

日期：POSIXct[1:490]，format:"2023-08-22"

edward1212 发表于 2023-9-15 14:27
日期：POSIXct[1:490]，format:"2023-08-22"

你把code和表格发上来

drunkfish69 发表于 2023-9-15 15:44
你把code和表格发上来

ggline(weight230829, x = "日期", y = "体重", ylab="体重(g)",
       add = c("mean_sd"),linetype = "组别",
       color = "组别",size =1.2,
       shape = 5,palette=cols[c(650,367,150,589,641,552,523)])+scale_x_date(date_breaks = '1 day')

scale_x_date直接加在后面好像是用不了。转转角度可以接受吗？

1. library(tidyverse)
   
2. library(ggpubr)
   
3. 
   
4. group <- rep(c('A', 'B', 'C', 'D', 'E', 'F', 'G'), each=70)
   
5. date <- seq(as.Date('2023-08-22'), as.Date('2023-08-28'), by='days')
   
6. df <- as.data.frame(cbind(group, as.character(date)))
   
7. weight <- sample(c(90:170), length(df[,1]), replace=T)
   
8. df <- cbind(df, weight)
   
9. colnames(df) <- c('group', 'date', 'weight')
   
10. df <- as.data.frame(df) |>
    
11.   arrange(group, date)
    
12. 
    
13. p <- ggline(df, x='date', y='weight',
    
14.        ylab="体重(g)",
    
15.        add = c("mean_sd"),
    
16.        linetype = 'group',
    
17.        color = 'group',
    
18.        size =1.2,
    
19.        shape = 5
    
20.        )
    
21. p + rotate_x_text(90)

复制代码