Introduction

This report explores the relationship between engine displacement and horsepower.

Below is the code I used.

install.packages(“tidyverse”)

library(‘tidyverse’) library(readxl) Classic_Car_Dataset <- read_excel(“Classic Car Dataset.xlsx”) View(Classic_Car_Dataset)

colnames(Classic_Car_Dataset) [1] “Car” “MPG” “Cylinders” “Displacement” “HP” “weight” “Acceleration” [8] “Year” “Region”

ggplot(Classic_Car_Dataset) + geom_point(aes(x = Displacement, y = HP), color = “steelblue”) + geom_smooth(aes(x = Displacement, y = HP), method = “lm”, color = “red”, se = TRUE)

R Markdown

The following plot shows how horsepower increases as engine displacement grows.

summary(cars)
##      speed           dist       
##  Min.   : 4.0   Min.   :  2.00  
##  1st Qu.:12.0   1st Qu.: 26.00  
##  Median :15.0   Median : 36.00  
##  Mean   :15.4   Mean   : 42.98  
##  3rd Qu.:19.0   3rd Qu.: 56.00  
##  Max.   :25.0   Max.   :120.00