An example plot of horsepower vs. displacement

horsepower-vs-displacement.R

library(dplyr)
library(ggplot2)

car_performance_data <- 
  mtcars %>% select(hp, disp)


horsepower_vs_displacement <- 
  ggplot(
    aes(
      x = disp,
      y = hp
    ),
    data = car_performance_data
  ) +
  geom_point() +
  geom_smooth() +
  xlab(
    expression(Displacement ( cm^3))
  ) +
  ylab("Horsepower")

print(horsepower_vs_displacement)