/
Day14-rmarkdown-Solutions.Rmd
98 lines (75 loc) · 3.7 KB
/
Day14-rmarkdown-Solutions.Rmd
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
---
title: "Day Fourteen: R Markdown"
author: Lindsay Poirier
output:
html_document:
toc: true
toc_depth: 2
toc_float: true
code_folding: hide
theme: cerulean
fig_width: 5
fig_height: 4
---
```{r message=FALSE, warning=FALSE, include=FALSE}
# Run code but don't show code or output in final document
# Don't show messages in final document
# Don't show warnings in final document
library(tidyverse)
library(RColorBrewer)
```
```{r include=FALSE}
# Run code but don't show code or output in final document
read_File = readLines("https://www.countyhealthrankings.org/sites/default/files/media/document/analytic_data2021.csv")
county_health_2021 <- read.csv(textConnection(read_File[-2]), header = TRUE, sep=",")
county_health_2021 <-
county_health_2021 %>%
rename_all(~str_replace_all(.,"\\.","_")) %>%
rename_all(~str_replace_all(.,"___","_")) %>%
filter(State_FIPS_Code != 00 & County_FIPS_Code != 0) %>%
select(State_FIPS_Code:Release_Year, ends_with("value"), -starts_with("X"))
ma_county_health_2021 <- county_health_2021 %>%
filter(State_Abbreviation == "MA")
ne_county_health_2021 <- county_health_2021 %>%
filter(State_Abbreviation %in% c("MA", "RI", "CT", "VT", "NH", "ME"))
```
# Lorem ipsum
Lorem ipsum dolor sit amet, consectetur adipiscing elit, sed do eiusmod tempor incididunt ut **labore et dolore** magna aliqua. Fusce ut placerat orci nulla pellentesque dignissim enim sit. Eu volutpat odio facilisis mauris sit amet massa vitae tortor. In nisl nisi scelerisque eu ultrices vitae auctor eu augue. Adipiscing commodo elit at imperdiet dui accumsan.
## Aenean sed adipiscing
Aenean sed *adipiscing diam donec* adipiscing tristique risus. Massa ultricies mi quis hendrerit dolor magna eget est. Dolor sed viverra ipsum nunc aliquet bibendum.^1^
```{r}
ggplot(ma_county_health_2021,
aes(x = Name, y = HIV_prevalence_raw_value)) +
geom_col() +
coord_flip() +
labs(title = "Health Measures by County, Massachusetts, 2021",
x = "County Name",
y = "HIV Prevalence Measure",
subtitle = "County Health Rankings, University of Wisconsin Population Health Institute") +
theme_minimal()
```
^1^ Data at [County Health Rankings](https://www.countyhealthrankings.org/)
# Vulputate
Vulputate eu scelerisque felis imperdiet proin:
- Molestie a iaculis at erat pellentesque adipiscing commodo.
- Ultrices sagittis orci a scelerisque purus semper eget duis at.
- Sed nisi lacus sed viverra.
![](img/new-england.png)
Libero nunc consequat interdum varius sit amet mattis vulputate. Orci sagittis eu volutpat odio facilisis mauris.
> Aliquet sagittis id consectetur purus ut. Arcu non odio euismod lacinia at quis risus sed. Vel elit scelerisque mauris pellentesque pulvinar pellentesque habitant morbi tristique. Penatibus et magnis dis parturient montes.
## Viverra ipsum
Viverra ipsum nunc aliquet bibendum enim. Non enim praesent elementum facilisis leo vel fringilla est. Orci dapibus ultrices in iaculis nunc sed augue lacus. Quisque non tellus orci ac auctor augue. Pulvinar sapien et ligula ullamcorper malesuada. Amet mauris commodo quis imperdiet.
```{r message=FALSE, warning=FALSE}
# Don't show messages in final document
# Don't show warnings in final document
ggplot(ma_county_health_2021,
aes(x = Food_insecurity_raw_value, y = Child_mortality_raw_value)) +
geom_point() +
labs(title = "Health Measures by County, Massachusetts, 2021",
x = "Food Insecurity Measure",
y = "Child Mortality Measure",
subtitle = "County Health Rankings, University of Wisconsin Population Health Institute") +
theme_minimal() +
geom_smooth()
```
Eu scelerisque felis imperdiet proin fermentum leo vel orci. Laoreet id donec ultrices tincidunt arcu.