colors=c("tomato2","white","springgreen3"), title="车辆特征变量正方形相关性矩阵图")+ theme_bw()+ theme(panel.grid.major = element_blank(),panel.grid.minor = element_blank()) #保存图片 ggsave('qw.png',my_plot,width=8,height=6,units="in") #气泡图 my_plot1 <- ggplot(airquality...