update 26/jan

README.md

@@ -32,7 +32,6 @@ ONS population denominators are used instead of NIMS for vaccine coverage, the O
 
 | Data type | Metric | Facet/group by | Lin/log | Y-scale    | Link | comment         |
   |---------------------|--------------------------------------------|--------------------------------------|---------|------------|---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------|-----------------|
-  | Cases               | % change of weekly sum                     | 25-year age bands, grouped by 5 year | lin     | fixed      | [link](https://raw.githubusercontent.com/mbkoltai/uk_covid_datavis/master/london/london_cases_age_4groups_rollingsum_change.png)   |                 |
   | Vaccines            | % 12y+ population per day and cumulatively | vaccine dose (1,2,3)                 | lin     | fixed      | [link](https://github.com/mbkoltai/uk_covid_datavis/raw/master/vaccine_data/vaccine_allage_phaseportrait_3rows.png)                                          |                 |
   | Vaccines            | **% vaccinated cumulatively**                  | 5-yr age bands                       | lin     | fixed      | [link](https://github.com/mbkoltai/uk_covid_datavis/raw/master/vaccine_data/vaccine_by_age_cumul.png)  |                 |
   | Vaccines            | **% age group per day and cumulatively**       | 5-yr age bands                       | lin-log | fixed      | [link](https://github.com/mbkoltai/uk_covid_datavis/raw/master/vaccine_data/vaccine_by_age_phaseportrait_both_doses_line_log.png) |                 |

datavis.R

@@ -227,7 +227,7 @@ ggplot(eng_case_age_data %>% filter(date>start_date),
        aes(x=date,y=(rollingsum_chng),color=factor(age_num),group=age_num)) + # -1)*100 # log2
   geom_line() + geom_point(size=3/4,shape=21,fill=NA) + facet_wrap(~age_categ) + # ,scales="free_y") + # 
   geom_hline(yintercept=1,linetype="dashed",size=1/2) + 
-  scale_x_date(expand=expansion(0.01,0),breaks="week") + scale_y_continuous(breaks=c(1/4,round(1/3,2),1/2,1,1.5,2,2.5,3,4)) + # 
+  scale_x_date(expand=expansion(0.01,0),breaks="week") + scale_y_continuous(breaks=c(1/4,1/2,1,1.5,2,2.5,3,4)) + # 
   labs(color="5-year age bands within age groups",caption=paste0("agegroups: ",gsub("\\], ","\\]\n",agegr_names))) +
   xlab("") + ylab("ratio of weekly rolling sum to a week ago") +
   theme_bw() + standard_theme + theme(axis.text.x=element_text(size=12),axis.text.y=element_text(size=12),