pre_course_check.Rmd

---
title: "Data Analysis and Visualization in R - Pre-course software check"
output: html_notebook
---

```{r echo=FALSE, message=FALSE, warning=FALSE}
library(dplyr)
library(ggplot2)
```


```{r}
iris %>% summarize_if(is.numeric, mean)
```

```{r}
ggplot(mpg, aes(displ, hwy)) +
  geom_point(aes(color = class)) +
  geom_smooth(se = FALSE, method = "loess") +
  labs(
    title = "Fuel efficiency generally decreases with engine size",
    subtitle = "Two seaters (sports cars) are an exception because of their light weight",
    caption = "Data from fueleconomy.gov"
  )
```


```{r}
sessionInfo()
```