R | 可视化 | 气泡图（Bubble Plot）

气泡图是一个添加了第三个维度的散点图，在ggplot2中，气泡图通过geom_point()函数建立。本文将利用“gapminder”数据集介绍利用r语言的气泡图绘制。

1 基础气泡图绘制

> library(ggplot2)
> library(dplyr)
> library(gapminder)

# 创建数据
> data <- gapminder %>% filter(year=="2007") %>% dplyr::select(-year)

# 绘图，alpha设置透明度
> ggplot(data, aes(x=gdpPercap, y=lifeExp, size = pop)) 
+     geom_point(alpha=0.5)

OUTPUT:

2 气泡大小设置

为避免气泡的重叠，可以重新排列数据。

# 处理数据
data %>%
  arrange(desc(pop)) %>%
  mutate(country = factor(country, country)) %>%

# 绘制气泡图并设置相关参数
  ggplot(aes(x=gdpPercap, y=lifeExp, size = pop)) +
    geom_point(alpha=0.5) +
    scale_size(range = c(.1, 24), name="Population (M)")

OUTPUT:

3 用颜色区分数据集内其他变量

# 数据处理
> data %>%
+     arrange(desc(pop)) %>%
+     mutate(country = factor(country, country)) %>%

# 绘制气泡图并且用颜色区分变量
+     ggplot(aes(x=gdpPercap, y=lifeExp, size=pop, color=continent)) 
+     geom_point(alpha=0.5) 
+     scale_size(range = c(.1, 24), name="Population (M)")

OUTPUT:

0 条评论