Er miste een %>% op regel 147 in 2. plot.R.

Kolomnaam van de virusvracht aangepast in df_viralload_human_regions en 0. functions.R
rivm-syso · May 3, 2022 · 050d2e2 · 050d2e2
1 parent 28699b9
commit 050d2e2
Show file tree

Hide file tree

Showing 3 changed files with 4 additions and 4 deletions.
diff --git a/0. functions.R b/0. functions.R
@@ -28,9 +28,9 @@ read_df_sewage <- function( df_viralload_human_regions ){
     mutate(rwzi = as.factor( RWZI ),
            date = Datum,
            concentration = case_when(
-             N12_100000_RWZI != 0    ~ log10(N12_100000_RWZI), 
-             N12_100000_RWZI == 0    ~ 0,
-             is.na(N12_100000_RWZI)  ~ -1),
+             RNA_100000_RWZI != 0    ~ log10(RNA_100000_RWZI), 
+             RNA_100000_RWZI == 0    ~ 0,
+             is.na(RNA_100000_RWZI)  ~ -1),
            rwzi_persons = Inwoneraantal,
            municipality_persons = Inwoneraantal_municipality,
            municipality = as.factor( municipality ),

diff --git a/2. plot.R b/2. plot.R
@@ -144,7 +144,7 @@ df_posteriors %>%
                .[1:9])) %>%
   arrange(desc(rwzi_persons)) %>%
   mutate(rwzi = str_to_title(as.character(rwzi)),
-         rwzi = factor(rwzi, unique(rwzi)))
+         rwzi = factor(rwzi, unique(rwzi))) %>%
   select( date, load, concentration, rwzi ) %>%
   group_by(rwzi) %>%
   group_split() %>%

diff --git a/df_viralload_human_regions.RData b/df_viralload_human_regions.RData