library(readr) data <- read_csv(‘avocado.csv’) summary(data) ## DataViz library(ggplot2)
ggplot(data, aes(x=total_volume)) + geom_histogram(binwidth=10, fill=“purple”)

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