问题如下图

代码如下：
setwd("G:/myR")
k <- read.xlsx2("car.xlsx",sheetName = 1)
data.frame(k)
ggplot(data=k, aes(x=年份, y=私人汽车.万.)) + geom_point(size=3,shape=21)