diff --git a/content/post/2020-10-06-survey-wave-4.Rmd b/content/post/2020-10-06-survey-wave-4.Rmd index 0c91411..f7bee3c 100644 --- a/content/post/2020-10-06-survey-wave-4.Rmd +++ b/content/post/2020-10-06-survey-wave-4.Rmd @@ -120,7 +120,8 @@ library(gridExtra) start_day <- "2020-09-08" end_day <- "2020-10-07" -date_formatted <- format(as.Date(end_day), "%B %e, %Y") +vec <- strsplit(format(as.Date(end_day), "%B %e %Y"), split = "\\s+")[[1]] +date_formatted <- paste(paste(vec[1], vec[2]), vec[3], sep = ", ") plot_label <- labs(caption = "Data from Delphi COVIDcast, covidcast.cmu.edu") date_label <- labs(subtitle = date_formatted) grid_label <- textGrob("Data from Delphi COVIDcast, covidcast.cmu.edu", @@ -190,15 +191,23 @@ joined_data %>% "Mask use: %{y:.0f}%
", "Cases per 100,000: %{x:.1f}"), showlegend = FALSE) %>% - layout(xaxis = list(title = "New cases per 100,000 people (7-day average)"), - yaxis = list(title = "% wearing masks most/all the time in public"), - title = paste0("Current COVID case rates and mask usage, by state
", - date_formatted), - annotations = list(x = 1, y = 0, - text = "Data from Delphi COVIDcast, covidcast.cmu.edu", - showarrow = FALSE, xref = "paper", yref = "paper", - xanchor = "right", yanchor = "auto", - xshift = 0, yshift = 0), + layout(xaxis = list(title = "New cases per 100,000 people (7-day average)", + showline = TRUE, mirror = "ticks", zeroline = FALSE), + yaxis = list(title = "% wearing masks most/all the time in public", + showline = TRUE, mirror = "ticks", zeroline = FALSE), + title = "Current COVID case rates and mask usage, by state", + subtitle = date_formatted, + annotations = list( + list(x = 0.5, y = 1, + text = date_formatted, + showarrow = FALSE, xref = "paper", yref = "paper", + xanchor = "center", yanchor = "auto", + xshift = 0, yshift = 0), + list(x = 1, y = 0, + text = "Data from Delphi COVIDcast, covidcast.cmu.edu", + showarrow = FALSE, xref = "paper", yref = "paper", + xanchor = "right", yanchor = "auto", + xshift = 0, yshift = 0)), dragmode = FALSE) %>% config(modeBarButtonsToRemove = c("zoom2d", "pan2d", "select2d", "lasso2d", "zoomIn2d", "zoomOut2d", "resetScale2d", diff --git a/public/2020/10/12/new-and-improved-covid-symptom-survey-tracks-testing-and-mask-wearing/index.html b/public/2020/10/12/new-and-improved-covid-symptom-survey-tracks-testing-and-mask-wearing/index.html index 3d37d6a..0875a5c 100644 --- a/public/2020/10/12/new-and-improved-covid-symptom-survey-tracks-testing-and-mask-wearing/index.html +++ b/public/2020/10/12/new-and-improved-covid-symptom-survey-tracks-testing-and-mask-wearing/index.html @@ -244,7 +244,8 @@

Mask Wearing

start_day <- "2020-09-08" end_day <- "2020-10-07" -date_formatted <- format(as.Date(end_day), "%B %e, %Y") +vec <- strsplit(format(as.Date(end_day), "%B %e %Y"), split = "\\s+")[[1]] +date_formatted <- paste(paste(vec[1], vec[2]), vec[3], sep = ", ") plot_label <- labs(caption = "Data from Delphi COVIDcast, covidcast.cmu.edu") date_label <- labs(subtitle = date_formatted) grid_label <- textGrob("Data from Delphi COVIDcast, covidcast.cmu.edu", @@ -311,15 +312,23 @@

Mask Wearing

"Mask use: %{y:.0f}%<br>", "Cases per 100,000: %{x:.1f}"), showlegend = FALSE) %>% - layout(xaxis = list(title = "New cases per 100,000 people (7-day average)"), - yaxis = list(title = "% wearing masks most/all the time in public"), - title = paste0("Current COVID case rates and mask usage, by state<br>", - date_formatted), - annotations = list(x = 1, y = 0, - text = "Data from Delphi COVIDcast, covidcast.cmu.edu", - showarrow = FALSE, xref = "paper", yref = "paper", - xanchor = "right", yanchor = "auto", - xshift = 0, yshift = 0), + layout(xaxis = list(title = "New cases per 100,000 people (7-day average)", + showline = TRUE, mirror = "ticks", zeroline = FALSE), + yaxis = list(title = "% wearing masks most/all the time in public", + showline = TRUE, mirror = "ticks", zeroline = FALSE), + title = "Current COVID case rates and mask usage, by state", + subtitle = date_formatted, + annotations = list( + list(x = 0.5, y = 1, + text = date_formatted, + showarrow = FALSE, xref = "paper", yref = "paper", + xanchor = "center", yanchor = "auto", + xshift = 0, yshift = 0), + list(x = 1, y = 0, + text = "Data from Delphi COVIDcast, covidcast.cmu.edu", + showarrow = FALSE, xref = "paper", yref = "paper", + xanchor = "right", yanchor = "auto", + xshift = 0, yshift = 0)), dragmode = FALSE) %>% config(modeBarButtonsToRemove = c("zoom2d", "pan2d", "select2d", "lasso2d", "zoomIn2d", "zoomOut2d", "resetScale2d", @@ -327,7 +336,7 @@

Mask Wearing

"hoverCompareCartesian", "hoverClosestCartesian"))
- +

The relationship is striking. (Hover over or click each point to see which state it is.) Of course, correlation is not causation, and there are many differences between these states beyond their use of masks. For example, people in more diff --git a/public/post/2020-08-28-api_files/figure-html/python-data-1.svg b/public/post/2020-08-28-api_files/figure-html/python-data-1.svg index bae2409..61dbb85 100644 --- a/public/post/2020-08-28-api_files/figure-html/python-data-1.svg +++ b/public/post/2020-08-28-api_files/figure-html/python-data-1.svg @@ -7,7 +7,7 @@ - 2020-10-12T11:45:06.275766 + 2020-10-16T14:34:13.454056 image/svg+xml @@ -31,7 +31,7 @@ z - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + - + - + - + - + - + - - - - - - - - - - - - + - + - + - - - - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - - - - - - - - - - - - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - - - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + +" style="fill:#fd7636;"/> - - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + - + +" style="fill:#fd863a;"/> - - + - + - + - + - + - + - + +" style="fill:#fea747;"/> % who know someone who is sick, Sept 8, 2020 @@ -172845,7 +172845,7 @@ L 170.729238 253.581031 - - @@ -172864,10 +172864,10 @@ iVBORw0KGgoAAAANSUhEUgAAApkAAAAhCAYAAACSqbBjAAAByUlEQVR4nO3WS27DMAwFQKX3P1rPJHYR +" id="m641c6d8651" style="stroke:#000000;stroke-width:0.8;"/> - + @@ -172877,71 +172877,71 @@ L 0 3.5 - + - 5.43 + 5.48 - + - 10.87 + 10.97 - + - 16.30 + 16.45 - + - 21.74 + 21.94 - + - 27.17 + 27.42 - + - 32.60 + 32.91 - + - 38.04 + 38.39 @@ -172961,10 +172961,10 @@ z - + - + diff --git a/public/post/2020-10-06-survey-wave-4_files/figure-html/mask-wearing-1.svg b/public/post/2020-10-06-survey-wave-4_files/figure-html/mask-wearing-1.svg index 3dfb2fe..3ba2a40 100644 --- a/public/post/2020-10-06-survey-wave-4_files/figure-html/mask-wearing-1.svg +++ b/public/post/2020-10-06-survey-wave-4_files/figure-html/mask-wearing-1.svg @@ -123,7 +123,7 @@ -October 7, 2020 +October 7, 2020 % wearing masks in public most or all the time @@ -236,7 +236,7 @@ -October 7, 2020 +October 7, 2020 % who know someone who is sick Data from Delphi COVIDcast, covidcast.cmu.edu diff --git a/public/post/2020-10-06-survey-wave-4_files/figure-html/pct-tested-1.svg b/public/post/2020-10-06-survey-wave-4_files/figure-html/pct-tested-1.svg index e21092a..3e230be 100644 --- a/public/post/2020-10-06-survey-wave-4_files/figure-html/pct-tested-1.svg +++ b/public/post/2020-10-06-survey-wave-4_files/figure-html/pct-tested-1.svg @@ -123,7 +123,7 @@ -October 7, 2020 +October 7, 2020 % tested in the last 14 days Data from Delphi COVIDcast, covidcast.cmu.edu diff --git a/public/post/2020-10-06-survey-wave-4_files/figure-html/test-positivity-1.svg b/public/post/2020-10-06-survey-wave-4_files/figure-html/test-positivity-1.svg index c15543d..09204c7 100644 --- a/public/post/2020-10-06-survey-wave-4_files/figure-html/test-positivity-1.svg +++ b/public/post/2020-10-06-survey-wave-4_files/figure-html/test-positivity-1.svg @@ -123,7 +123,7 @@ -October 7, 2020 +October 7, 2020 % of tests that were positive, last 14 days Data from Delphi COVIDcast, covidcast.cmu.edu diff --git a/public/post/2020-10-06-survey-wave-4_files/figure-html/wanted-test-1.svg b/public/post/2020-10-06-survey-wave-4_files/figure-html/wanted-test-1.svg index 6f074dd..dbb8872 100644 --- a/public/post/2020-10-06-survey-wave-4_files/figure-html/wanted-test-1.svg +++ b/public/post/2020-10-06-survey-wave-4_files/figure-html/wanted-test-1.svg @@ -123,7 +123,7 @@ -October 7, 2020 +October 7, 2020 % not tested who wanted a test, last 14 days Data from Delphi COVIDcast, covidcast.cmu.edu