加载R包
代码语言：javascript
复制library(tidyverse)
library(ggbeeswarm)
library(packcircles)
library(ggtext)
library(ggrepel)
library(camcorder)
导入数据
代码语言：javascript
复制df <- read_csv('data.csv')
数据清洗
代码语言：javascript
复制cent_bee <- df %>% group_by(gender) %>% arrange(-age) %>%
mutate(g_rank = row_number(), name = fct_reorder(name, age)) %>% ungroup()
绘制一个基础图
代码语言：javascript
复制p <- ggplot(cent_bee)
geom_beeswarm(aes(age, "group"), groupOnX = FALSE)
theme_minimal()
theme(plot.background = element_rect(fill = "grey99", color = NA))
# 构建ggplot图形，将结果存储在pp变量中
pp <- ggplot_build(p)
# 从pp对象中提取数据，并创建一个新的数据框pp_df
# 包含x, y坐标，半径r，以及cent_bee数据框中的其他相关列
pp_df <- data.frame(
x = pp$data[[1]]$x,
y = pp$data[[1]]$y,
r = 0.03,
place = cent_bee$place_of_death_or_residence,
gender = cent_bee$gender,
name = cent_bee$name,
age = cent_bee$age,
still_alive = cent_bee$still_alive,
g_rank = cent_bee$g_rank
) %>%
arrange(x) %>% # 根据x坐标排序
mutate(id = row_number()) # 为每行添加一个唯一的id
调整点的位置
代码语言：javascript
复制# 使用circleRepelLayout函数调整点的位置，以避免重叠
pp_repel <- circleRepelLayout(pp_df, wrap = FALSE, sizetype = "area")
# 使用circleLayoutVertices函数获取调整后的点的坐标
pp_repel_out <- circleLayoutVertices(pp_repel$layout)
数据整合
代码语言：javascript
复制pp_plot <- pp_repel_out %>%
left_join(pp_df, by = "id") %>%
mutate(x = x.x,y = y.x,color = case_when(place == "United States" ~ "#3B9AB2",
place == "Japan" ~ "#78B7C5",TRUE ~ "grey20"),
color2 = if_else(still_alive == "alive", color, colorspace::lighten(color, 0.8))) %>%
select(-x.x,-y.x,-x.y,-y.y) %>% select(x,y,color,color2,id,gender)
数据可视化
代码语言：javascript
复制ggplot(pp_plot)
annotate("text", x = c(110.3, 113.3), y = c(8, 4.5), label = c("Men", "Women"),hjust = 1, size = 6,color="black")
geom_polygon(aes(x, y 3.5 * as.numeric(factor(gender)), group = id, fill = color2))
geom_polygon(aes(x, y 3.5 * as.numeric(factor(gender)), group = id, color = alpha(color, 0.6)), fill = NA, linewidth = 0.5)
scale_x_continuous(breaks = seq(110, 124, 2), limits = c(110, 124))
scale_color_identity()
scale_fill_identity()
coord_fixed()
theme_minimal()
theme(legend.position = "none",plot.background = element_blank(),
axis.title = element_blank(),
axis.text.y = element_blank(),
axis.text.x = element_text(color="black",size=8),
panel.grid.major.y = element_blank(),
panel.grid.minor.y = element_blank(),
plot.margin = margin(10, 0, 10, 0))
