绘制身体热图

Question

可以根据身体部位的统计数据将热图应用于此身体图吗？

library(tidyverse)
library(humapr)

body_data <- tibble(loc = c(
  "head", "neck", "chest", "abdomen", "arm",
  "forearm", "hand", "thigh", "leg", "foot"
))

body_data |> 
  humap() +
  geom_body(aes(loc = loc), annotate = NA)

Answer 1

library(tidyverse)
library(humapr)

body_data <- tibble(loc = c(
  rep("head", 3), "neck", rep("chest", 6), "abdomen", "arm",
  rep("forearm", 7), "hand", rep("thigh", 8), "leg", "foot"
))

body_data |> 
  humap() +
  geom_body(aes(loc = loc)) +
  scale_fill_viridis_c(option = "H")

^{创建于 2024-04-02，使用 reprex v2.1.0}