复现Naute子刊图，换数据即可使用（发散版）！

续前篇👉：复现Naute子刊图，换数据即可使用！

上图为前一篇的结果。如果没有内圈图，本次分享一下外圈图常见的顶刊其它4种发散用法。

✅发散用法1

直接使用外圈，将分组直接添加在标签中，如图，

✅发散用法2

直接开启图例代表分组信息，去掉上图中的文字标签，

# 开启图例
geom_bar(stat="identity", width=0.8, show.legend=TRUE, alpha=0.7) +
theme(
    legend.position = c(0.5, 0.5), # 将图例精确放置在图形中心
  )

✅发散用法3

去掉图例，用弧线指定分组信息，

# 添加 参考图片中的黑色弧线
  geom_segment(data=base_data, 
               aes(x=start, y=-500, xend=end, yend=-500),
               color="black", size=0.2, inherit.aes=FALSE) +

✅发散用法4

用不同底纹填充柱子，指定分组信息，

scale_pattern_manual(
    values = pattern_types, #指定不同底纹
    breaks = c("brain", "heart", "lung", "kidney", "spleen", 
"liver", "stomach", "intestine", "skin", "muscle"),
    name = "Organ Type"
  ) 

上图可以再优化一下图例的位置，使其更协调。

本期结束！

👇加入学习（收费，备注：299）