加载R包
library(tidyverse)
library(ggbeeswarm)
library(packcircles)
library(ggtext)
library(ggrepel)
library...row_number(), name = fct_reorder(name, age)) %>% ungroup()
绘制一个基础图
p <- ggplot(cent_bee) +
geom_beeswarm...pp_df
# 包含x, y坐标,半径r,以及cent_bee数据框中的其他相关列
pp_df <- data.frame(
x = pp$data[[1]]$x,
y = pp$data[[...= "area")
# 使用circleLayoutVertices函数获取调整后的点的坐标
pp_repel_out %
select(-x.x,-y.x,-x.y,-y.y) %>% select(x,y,color,color2,id,gender)
数据可视化