Circle Packing

Authors

[Editor] Hu Zheng;

[Contributors]

Circle packing is a visualization method used to display the differences in quantity among different categories.

Setup

System Requirements: Cross-platform (Linux/MacOS/Windows)
Programming language: R
Dependent packages: packcircles; ggplot2; viridis

# Install packages
if (!requireNamespace("packcircles", quietly = TRUE)) {
  install.packages("packcircles")
}
if (!requireNamespace("ggplot2", quietly = TRUE)) {
  install.packages("ggplot2")
}
if (!requireNamespace("viridis", quietly = TRUE)) {
  install.packages("viridis")
}

# Load packages
library(packcircles)
library(ggplot2)
library(viridis)

Data Preparation

# Load data
data <- read.table("files/Hiplot/021-circle-packing-data.txt", header = T)

# convert data structure
packing <- circleProgressiveLayout(data[["v"]], sizetype = "area")
data <- cbind(data, packing)
dat_gg <- circleLayoutVertices(packing, npoints = 50)
colors <- c("#E57164","#F8ECA7","#9389C1","#3F9C78","#769F8D","#E5F9A9","#7CE9A4",
            "#CE9FCA","#78F197","#8BB085","#D88880","#A6E4C3","#F7F6B1","#C5E69A",
            "#F45FDE","#5CF371","#9259CF","#2B6D9B","#F3C096","#EEADBE")
dat_gg$value <- rep(colors, each = 51)

# View data
head(data)

  g   v           x          y   radius
1 A 100  -5.6418958  0.0000000 5.641896
2 B 120   6.1803872  0.0000000 6.180387
3 C  80  -0.2298516 -9.2166458 5.046265
4 D  10  -6.7961670 -7.3357638 1.784124
5 E  60 -12.9322538 -6.8624061 4.370194
6 F  30 -14.3618753  0.4597221 3.090194

Visualization

# Circle Packing
p <- ggplot() +
  geom_polygon(data = dat_gg, aes(x, y, group = id, fill = value), colour = "black", alpha = 0.4) +
  scale_fill_manual(values = magma(nrow(data))) +
  theme_void() +
  theme(legend.position = "none") +
  coord_equal() +
  scale_size_continuous(range = c(2.3, 4.5)) +
  geom_text(data = data, aes(x, y, size = v, label = g), vjust = 0) +
  geom_text(data = data, aes(x, y, label = v, size = v), vjust = 1.2)

p