Bubble plot - R训练营笔记库

相关主题：Bubble plot ### Bubble plot 适用于四维数据，也就是两个连续型变量（数值型），还有一个分类变量以及另一个数值型变量就可以使用这个可视化来展示简单来说就是适用于基于不同分组情况的两个变量的相关性

# load package and data
library(ggplot2)
data(mpg, package="ggplot2")
# mpg <- read.csv("<http://goo.gl/uEeRGu>")

#提取分组变量，获得基于不同分组的变量信息
mpg_select <- mpg[mpg$manufacturer %in% c("audi", "ford", "honda", "hyundai"), ]

# Scatterplot
theme_set(theme_bw())  # pre-set the bw theme.
g <- ggplot(mpg_select, aes(displ, cty)) +
  labs(subtitle="mpg: Displacement vs City Mileage",
       title="Bubble chart")

g + geom_jitter(aes(col=manufacturer, size=hwy)) +
  geom_smooth(aes(col=manufacturer), method="lm", se=F)

*晨曦解读：**阐述绘图逻辑

#第一图层图片
g <- ggplot(mpg_select, aes(displ, cty))

#然后我可以在这个第一图层中把一些图外细节完善一下
g <- ggplot(mpg_select, aes(displ, cty)) +
  labs(subtitle="mpg: Displacement vs City Mileage",
       title="Bubble chart")

#绘制点图
g + geom_jitter(aes(col=manufacturer, size=hwy))#这里存在两个限制变量，一个是颜色，一个是大小，颜色为离散型变量，大小为连续型变量

#每个分组的点都有一条拟合曲线，所以我们还需要添加拟合曲线
geom_smooth(aes(col=manufacturer), method="lm", se=F)

#完毕