# Load the ggplot2 library
library(ggplot2)
# Create a scatter plot of mpg vs wt
ggplot(mtcars, aes(x = wt, y = mpg)) +
geom_point() +
labs(title
= "Scatter Plot of MPG vs WT", x
= "Weight (1000 lbs)", y
= "Miles per Gallon")
IyBMb2FkIHRoZSBnZ3Bsb3QyIGxpYnJhcnkKbGlicmFyeShnZ3Bsb3QyKQoKIyBDcmVhdGUgYSBzY2F0dGVyIHBsb3Qgb2YgbXBnIHZzIHd0CmdncGxvdChtdGNhcnMsIGFlcyh4ID0gd3QsIHkgPSBtcGcpKSArIAogIGdlb21fcG9pbnQoKSArIAogIGxhYnModGl0bGUgPSAiU2NhdHRlciBQbG90IG9mIE1QRyB2cyBXVCIsIHggPSAiV2VpZ2h0ICgxMDAwIGxicykiLCB5ID0gIk1pbGVzIHBlciBHYWxsb24iKQ==