分享一个ggplot2绘制人体结构图的小例子，喜欢的小伙伴可以关注个人公众号R语言数据分析指南，持续分享更多优质资源，在此先行拜谢了！！！
bdgramR简介
一个R包，提供原始的x，y坐标在R中绘制人体图。这种类型的可视化通常用于运动科学，力量与状况和其他与健康有关的区域，以报告有关肌肉/关节相关指标（例如肌肉)的视觉信息酸痛，肌肉活化，力量，温度等...
安装
install.packages("devtools")
devtools::install_github("josedv82/bdgramR")
使用方法
获取可用于所有身体图类型的列表 model_types()
library(bdgramR)
model_types(data = data)
# A tibble: 9 x 1
Model
<fct>
1 futuristic_male
2 original_male
3 original_female
4 thermohuman_male
5 thermohuman_female
6 athletesr
7 basic_female
8 basic_male
9 multi_view_male
使用glimpse_models()直观地探索了每个体图的模样
library(bdgramR)
glimpse_models(data = data, color = "brown", fill = "orange")
获取您希望与之配合使用的人体图的原始x / y坐标 bdgramr()
library(bdgramR)
dat <- bdgramr(data = data, model = "original_male")
head(dat)
> head(dat)
Id View Part Group Muscle Side x y
1 1 Posterior Lower_Body Calves Soleus Right 739 723
2 1 Anterior Lower_Body Calves Soleus Right 739 724
3 1 Anterior Lower_Body Calves Soleus Right 740 724
4 1 Anterior Lower_Body Calves Soleus Right 740 725
5 1 Anterior Lower_Body Calves Soleus Right 741 725
6 1 Anterior Lower_Body Calves Soleus Right 741 726
ggplot2添加图层进一步自定义可视化：
library(bdgramR)
library(ggplot2)
dat <- bdgramr(data = data, model = "original_male")
plot <- ggplot(data = dat, aes(x,y, group = Id)) +
geom_bdgramr(color = "cyan", aes(fill = Muscle))
plot
原文链接：https://links.jianshu.com/go?to=https%3A%2F%2Fmp.weixin.qq.com%2Fs%2FpGpUYiVzxlK1Aq2sb_8x6Q
