# you've a data frame df with variable n_days indicating how long (in days) since they were readmitted
df_n_per_day <- df %>%
                group_by(n_days) %>%
                summarise(admitted = n())