Sorting days in Calendar

[harrisonhenri]

Dear @royfrancis , thank you for this great calendar example!

I am a developer of a Shiny system and would like to know if there is any possibility of organizing this calendar like any calendar (eg calendar in Windows 10) with days starting left and ending right?

[royfrancis]

I haven't tried it, but I am guessing it's just a matter of changing X and Y axes. Or am I missing something?

[harrisonhenri]

I have tried changing X and Y axes, but this was the result:

[royfrancis]

I got some time to look into this today. Maybe this is what you are after?

dfr <- data.frame(date=seq(as.Date('2019-06-11'),as.Date('2019-08-12'),by=1))
dfr$day <- factor(strftime(dfr$date,format="%a"),levels=format(seq(as.Date('2019-10-21'),as.Date('2019-10-27'),by=1),"%a"))
dfr$week <- strftime(dfr$date,format="%V")
dfr$week <- factor(dfr$week,levels=rev(unique(dfr$week)))
dfr$month <- factor(strftime(dfr$date,format="%B"),levels=unique(format(seq(as.Date('2019-01-01'),as.Date('2019-12-31'),by=1),"%B")))
dfr$ddate <- factor(strftime(dfr$date,format="%d"))

ggplot(dfr,aes(x=day,y=week))+
  geom_tile(fill="grey80")+
  geom_text(aes(label=ddate))+
  scale_fill_manual(values=c("#8dd3c7","#ffffb3","#fb8072","#d3d3d3"))+
  facet_wrap(~month,ncol=1,scales="free_y")+
  scale_x_discrete(position="top")+
  #scale_y_reverse()+
  labs(x="",y="Week")+
  theme_bw(base_size=10)+
  theme(legend.title=element_blank(),
        panel.grid=element_blank(),
        panel.border=element_blank(),
        axis.ticks=element_blank(),
        strip.background=element_blank(),
        legend.position="top",
        legend.justification="right",
        legend.direction="horizontal",
        legend.key.size=unit(0.3,"cm"),
        legend.spacing.x=unit(0.2,"cm"))