Intro Stuff

library(tidyverse)
## Warning: package 'tidyverse' was built under R version 4.0.2
## -- Attaching packages --------------------------------------- tidyverse 1.3.0 --
## v ggplot2 3.3.2     v purrr   0.3.4
## v tibble  3.0.2     v dplyr   1.0.0
## v tidyr   1.1.0     v stringr 1.4.0
## v readr   1.3.1     v forcats 0.5.0
## Warning: package 'dplyr' was built under R version 4.0.2
## -- Conflicts ------------------------------------------ tidyverse_conflicts() --
## x dplyr::filter() masks stats::filter()
## x dplyr::lag()    masks stats::lag()
library(RColorBrewer)
library(ggplot2)
library(dplyr)
getwd()
## [1] "C:/Users/Jerome/Documents/Data_Science_110/Datasets"
lcn_measures_by_co_by_yr <-read.csv("lcn_measures_by_co_by_yr.csv")
the_measure  <- "Measures of Child Nutrition in Liberia, 2007 & 2013"
lcn_measures_by_co_by_yr %>%

  
   ggplot(aes(year, county,  fill = measure)) +
  geom_tile(color = "grey50") +
 
  scale_x_continuous(breaks=c(2007,  2013)) +
  scale_fill_gradientn(colors = brewer.pal(9, "Reds"), trans = "sqrt") +
  
  theme_minimal() +  theme(panel.grid = element_blank()) +
  ggtitle(the_measure) +
  ylab("")

  xlab("")
## $x
## [1] ""
## 
## attr(,"class")
## [1] "labels"

```