R 내가 요일의 이름을 표시 (텍스트 날로부터 내 선 그림에 XTICK을 변경하려면

Question

요일에 전체 날짜로부터 XTICK 변경 ggplot. 나는 다음과 같은 코드가

을 하지만 XTICK 현재 표시되지 않는 사람이 나를 도울 수

lab_day <- c('Monday', 'Tuesday', 'Wednesday', 'Thursday', 'Friday', 
'Saturday', 'Sunday') 
ggplot(stats.gender.wdayF, aes(x=date)) + 
    geom_line(aes(y=stats.gender.wdayF$sum), color = 'red') + 
    geom_point(aes(y=stats.gender.wdayF$sum), color = 'red') + 
    geom_line(aes(y=stats.agg.wday$sum), color = 'grey') + 
    geom_point(aes(y=stats.agg.wday$sum), color = 'grey') + 
    scale_x_date(labels = lab_day) + 
    xlab("") + 
    ylab("Number of runs") 

dataset looks like: 
date, sum 
17/12/2017, 1 
18/12/2017, 10 
19/12/2017, 25 
20/12/2017, 2 
21/12/2017, 33 
22/12/2017, 5 
22/12/2017, 11 

Answer 1

TRY) (당신의 scale_x_date에 형식 = "%의 A"을 추가하는 기능 -.? 나는 그 문제를 해결할한다고 생각 ...

그래도 작동하지 않으면에 따라, "레이블을 제공하는 문자 벡터 (길이는 breaks이어야합니다)". 귀하의 경우 breaks은 null이므로 문제가 될 수도 있습니다. 아마도 휴식 인수를 추가 해보시겠습니까?

Answer 2

다른 열에 날짜 이름을 만든 다음 scale_x_discrete()을 사용하여 x_axis 레이블을 만들 것을 제안합니다. 이것은 훨씬 쉬울 것입니다. 예를 들어

:

library(dplyr) 
library(data.table) 

stats.gender.wdayF <- read.table(text = "date2 sum gender 
17/12/2017 1 m 
18/12/2017 10 F 
19/12/2017 25 m 
20/12/2017 2 m 
21/12/2017 33 m 
22/12/2017 5 m 
22/12/2017 11 F", header = T)%>% as.data.table() 

stats.gender.wdayF[, lab_day2 := weekdays(date2 %>% as.Date())] 

ggplot(stats.gender.wdayF, aes(x=date2 %>% as.character())) + 
    geom_line(aes(y=sum), color = 'red') + 
    geom_point(aes(y=sum), color = 'red') + 
    # geom_line(aes(y=stats.agg.wday$sum), color = 'grey') + 
    # geom_point(aes(y=stats.agg.wday$sum), color = 'grey') + 
    # scale_x_date(date_labels = '%d %b %Y', date_minor_breaks = '1 day') + 
    scale_x_discrete(labels = stats.gender.wdayF$lab_day2 %>% paste(stats.gender.wdayF$date2, sep = '\n')) 
    # xlab("") + 
    # ylab("Number of runs")