Year Price HAS decades
1 1982 40000 8.98 1980-1989
2 1984 50000 34.30 1980-1989
3 1984 45000 11.00 1980-1989
4 1987 1400000 243.00 1980-1989
5 1989 100000 9.40 1980-1989
6 1989 8000000 69.90 1980-1989
cbrf %>% ggplot(aes(x = HAS, y = PRICE)) +
-
geom_jitter() +
-
scale_y_log10(labels = scales::dollar_format()) +
-
facet_wrap(~ decades, scales = "free_x") +
-
geom_smooth(method = "lm", color = "grey", se = FALSE) +
-
theme_light()