ggplot2绘制人体结构图

分享一个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