library(readr) data <- read_csv(‘avocado.csv’) summary(data)

DataViz

library(ggplot2)

ggplot(data, aes(x=average_price)) + geom_histogram(binwidth=10, fill=“pink”)

ggplot(data, aes(x=date, y=average_price)) + geom_point() + geom_smooth() + ggtitle(“average_price as a function of date”)