cars_data <- read.csv("cars_data.csv")
mpg <- cars_data$mpg
mean_mpg <- mean(mpg)
min_mpg <- min(mpg)
max_mpg <- max(mpg)
length_mpg <- length(mpg)

mean_mpg
## [1] 20.09062
min_mpg
## [1] 10.4
max_mpg
## [1] 33.9
length_mpg
## [1] 32