分组哑铃图

作者

[编辑] 郑虎;

[审核] .

环境配置

  • 系统: Cross-platform (Linux/MacOS/Windows)

  • 编程语言: R

  • 依赖包: ggplot2; ggalt

# 安装包
if (!requireNamespace("ggplot2", quietly = TRUE)) {
  install.packages("ggplot2")
}
if (!requireNamespace("ggalt", quietly = TRUE)) {
  install.packages("ggalt")
}

# 加载包
library(ggplot2)
library(ggalt)

数据准备

# 加载数据
data <- read.delim("files/Hiplot/083-group-dumbbell-data.txt", header = T)

# 整理数据格式
data <- data[order(data[["group"]], data[["y1952"]]),]
data[["country"]] <- factor(data[["country"]], levels = data[["country"]])

# 查看数据
head(data)
              country  y1952  y2007 group
13              Haiti 37.579 60.916     A
2             Bolivia 40.414 65.554     A
12          Guatemala 42.023 70.259     A
11        El Salvador 45.262 71.878     A
9  Dominican Republic 45.928 72.235     A
10            Ecuador 48.357 74.994     A

可视化

# 分组哑铃图
p <- ggplot(data = data, aes(x = y1952, xend = y2007, y = country, color = group)) +
  geom_dumbbell(size = 1, size_xend = 2, size_x = 2) +
  theme_bw()

p
图 1: 分组哑铃图