Honda

references:
- ISI, example 3.3, p.181
- Cast net, Wikipedia

library(tidyverse)
library(knitr)

data

usedcars <- read.csv("UsedCars.txt")
str(usedcars)
## 'data.frame':    102 obs. of  1 variable:
##  $ Price: int  21990 21990 21987 20955 20955 19995 19990 19990 19975 18995 ...
ggplot(usedcars, aes(Price)) +
  geom_histogram(color = "saddlebrown", fill = "wheat") +
  labs(title = "Honda Prices")