# Load the dataset
data(mtcars)

# Create scatter plot
plot(mtcars$hp, mtcars$mpg,
     xlab = "Horsepower (hp)",
     ylab = "Miles per Gallon (mpg)",
     main = "Miles per Gallon vs Horsepower",
     pch = 19,
     col = "blue")

Interpretation

There is a weak negitive correlation between fuel efficiency (mpg) and horsepower (hp)