README Demo

library(tidyverse)

Data

This is my readme demo! Here is my data

fruit <- data.frame(fruit = c("apple", "orange", "banna"),
                    count = c(125, 56, 92))

Check out this cool plot of fruit!

ggplot(fruit, aes(x = fruit, y = count)) +
  geom_col()

Here is a nicely printed table too!

fruit

##    fruit count
## 1  apple   125
## 2 orange    56
## 3  banna    92