class: center middle main-title section-title-1 # .kjh-yellow[Visualizing]<br /> .kjh-lblue[Social Data] .class-info[ **Week 01** .light[Kieran Healy<br> Duke University, Spring 2023] ] --- layout: false class: main-title main-title-inv # .middle.center.huge.squish4.kjh-lblue[What we'll be Doing] --- .center[] --- .center[] --- .center[] --- .center[] --- .center[] --- .center[] --- .center[] --- .center[] --- layout: true class: title title-1 --- # Course Website .center.huge.squish4.kjh-lblue[[https://visualizingsociety.com](https://visualizingsociety.com)] --- # Get up and Running: Install R .center[] --- # The R Project Website .center.huge.squish4.kjh-lblue[[https://www.r-project.org](https://www.r-project.org)] --- # Get up and Running: Install RStudio .center[] --- # The RStudio / Posit Website .center.huge.squish4.kjh-lblue[[https://www.posit.co](https://www.posit.co)] --- layout: false class: main-title main-title-inv .center[] --- layout: false class: main-title main-title-inv .center[] --- layout: true class: title title-1 --- # Try .kjh-yellow[knitting] your notes .center[] .w80.large[ - **Don't worry if it's not clear what's happening at this point.**] --- # Now write the following code .pull-left.w40[ Write this out inside the "code chunk" in your notes. ```r library(tidyverse) library(gapminder) p <- ggplot(data = gapminder, mapping = aes(x = gdpPercap, y = lifeExp)) p + geom_point() ``` ] -- ... And knit your document again. .pull-right.w50[ <img src="01-slides_files/figure-html/codefig-first-plot-1.png" width="384" style="display: block; margin: auto;" /> ] --- layout: true class: center middle main-title section-title-1 --- # .huge.squish4.kjh-lblue[We should<br />.kjh-yellow[look at]<br />data] --- # .huge.squish4.kjh-lblue[We can<br />.kjh-yellow[look at]<br />society]