This is the code used to visualize the scatter plot.
year_data <- car_data %>%
group_by(Year.of.manufacture, Manufacturer) %>%
summarise(n = n(), .groups = 'drop')
ggplot(data = year_data, aes(x = Year.of.manufacture, y = n)) +
geom_smooth(aes(color = Manufacturer), method = "lm", se = FALSE) +
geom_point(aes(color = Manufacturer), size = .8) +
labs(title = "Number of cars sold by Manufacturer per Year",
x = "Year Manufactured",
y = "Count Sold")
Geom_smooth created linear regression lines for the number of cars sold each year by manufacturer. The graph shows clear indication that BMW and Porsche cars sold much fewer cars per year than more mainstream brands. Also, those two manufacturers experienced less growth since 1990 that then other companies.