Where to put labels on the x-axis? about incidence2 HOT 7 CLOSED

library(incidence2)
library(dplyr, warn.conflicts = FALSE)

data(ebola_sim_clean, package = "outbreaks")
dat <- 
  ebola_sim_clean$linelist %>% 
  filter(date_of_onset <= "2014-07-07")


inci_10 <- incidence(dat, date_index = date_of_onset, interval = 10)

inci_week <- incidence(dat, date_index = date_of_onset, interval = "week")

# Dates should be on the left
plot(inci_10)

# Groupings could be in the middle rather than as shown here
plot(inci_week)

library(incidence2)
library(dplyr, warn.conflicts = FALSE)

# get some data
data(ebola_sim_clean, package = "outbreaks")
dat <-
  ebola_sim_clean$linelist %>%
  filter(date_of_onset <= "2014-05-30")

dat2 <-
  ebola_sim_clean$linelist %>%
  filter(date_of_onset <= "2014-09-30")

# day (centered)
iday <- incidence(dat, date_index = date_of_onset)
iday
#> <incidence object>
#> [72 cases from days 2014-04-07 to 2014-05-30]
#> [interval: 1 day]
#> [cumulative: FALSE]
#> 
#>    bin_date   count
#>    <date>     <int>
#>  1 2014-04-07     1
#>  2 2014-04-08     0
#>  3 2014-04-09     0
#>  4 2014-04-10     0
#>  5 2014-04-11     0
#>  6 2014-04-12     0
#>  7 2014-04-13     0
#>  8 2014-04-14     0
#>  9 2014-04-15     1
#> 10 2014-04-16     0
#> # … with 44 more rows
plot(iday, color = "white")

# week (centered)
iweek <- incidence(dat2, date_index = date_of_onset, interval = "1 week")
iweek
#> <incidence object>
#> [2088 cases from days 2014-04-07 to 2014-09-29]
#> [interval: 1 week]
#> [cumulative: FALSE]
#> 
#>    bin_date   date_group count
#>    <date>     <aweek>    <int>
#>  1 2014-04-07 2014-W15       1
#>  2 2014-04-14 2014-W16       1
#>  3 2014-04-21 2014-W17       5
#>  4 2014-04-28 2014-W18       4
#>  5 2014-05-05 2014-W19      12
#>  6 2014-05-12 2014-W20      17
#>  7 2014-05-19 2014-W21      15
#>  8 2014-05-26 2014-W22      19
#>  9 2014-06-02 2014-W23      23
#> 10 2014-06-09 2014-W24      21
#> # … with 16 more rows
plot(iweek, color = "white")

# 2 weeks (not centered)
i2week <- incidence(dat2, date_index = date_of_onset, interval = "2 weeks")
i2week
#> <incidence object>
#> [2088 cases from days 2014-04-07 to 2014-09-22]
#> [interval: 2 weeks]
#> [cumulative: FALSE]
#> 
#>    bin_date   date_group count
#>    <date>     <aweek>    <int>
#>  1 2014-04-07 2014-W15       2
#>  2 2014-04-21 2014-W17       9
#>  3 2014-05-05 2014-W19      29
#>  4 2014-05-19 2014-W21      34
#>  5 2014-06-02 2014-W23      44
#>  6 2014-06-16 2014-W25      52
#>  7 2014-06-30 2014-W27      72
#>  8 2014-07-14 2014-W29     120
#>  9 2014-07-28 2014-W31     166
#> 10 2014-08-11 2014-W33     255
#> 11 2014-08-25 2014-W35     369
#> 12 2014-09-08 2014-W37     558
#> 13 2014-09-22 2014-W39     378
plot(i2week, color = "white")

# month (centered)
imonth <- incidence(dat2, date_index = date_of_onset, interval = "month")
imonth
#> <incidence object>
#> [2088 cases from days 2014-04-01 to 2014-09-01]
#> [interval: 1 month]
#> [cumulative: FALSE]
#> 
#>   bin_date   date_group count
#>   <date>     <chr>      <int>
#> 1 2014-04-01 Apr 14         7
#> 2 2014-05-01 May 14        67
#> 3 2014-06-01 Jun 14       102
#> 4 2014-07-01 Jul 14       228
#> 5 2014-08-01 Aug 14       540
#> 6 2014-09-01 Sep 14      1144
plot(imonth)
#> Warning: position_stack requires non-overlapping x intervals

# 2 months (not centered)
i2month <- incidence(dat2, date_index = date_of_onset, interval = "2 months")
i2month
#> <incidence object>
#> [2088 cases from days 2014-04-01 to 2014-08-01]
#> [interval: 2 months]
#> [cumulative: FALSE]
#> 
#>   bin_date   count
#>   <date>     <int>
#> 1 2014-04-01    74
#> 2 2014-06-01   330
#> 3 2014-08-01  1684
plot(i2month)