---
title: "Live coding session 2"
author: "Bodo"
date: "05/07/2021"
output: html_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

# Intro & setup

In this script, we will plot the ratings for reviews containing "good" and "bad".

First, load packages:

```{r, warning = FALSE, message = FALSE}
library(tidyverse)
library(tidytext)
```

Second, load data:

```{r, warning = FALSE, message = FALSE}
yelp <- read_csv('../data/yelp_10000.csv')

# Check:

yelp
```

# Data processing

# Descriptive statistics

# Data visualization

