# Load the dataset (mtcars is built-in, but this makes it explicit)
data(mtcars)

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

Interpretation

The scatter plot shows a negative relationship between horsepower and miles per gallon.