library(tidyverse)
library(ggplot2)
str(mpg)
head(mpg)
tail(mpg)
help(mpg)

ggplot(data = mpg)+
  geom_point(mapping = aes(x = displ,y=hwy))

ggplot(data = mpg,mapping = aes(x = hwy,y=displ))+
  geom_point()
#1.2练习
#(1) 运行ggplot(data = mpg)，你会看到什么？
ggplot(data = mpg)
#(2) 数据集mpg 中有多少行？多少列？
nrow(mpg)
ncol(mpg)
dim(mpg)
#(3) 变量drv 的意义是什么？使用?mpg 命令阅读帮助文件以找出答案。
?mpg
#(4) 使用hwy 和cyl 绘制一张散点图。
ggplot(data = mpg) +
  geom_point(mapping = aes(x = cyl, y = hwy))