geomtextpath 调整圆形环绕文字

弃我去者今日之日不可留

1引言

分享一个 R 包 geomtextpath,今天用这个画一个圆形图。

github 地址:

https://allancameron.github.io/geomtextpath/

2安装

remotes::install_github("AllanCameron/geomtextpath")
# OR
install.packages("geomtextpath")

3绘图

构造测试数据:

library(ggplot2)
library(geomtextpath)

df <- data.frame(Temperature = c(4.4, 4.6, 6.3, 8.7, 11.6, 14.1, 15.9, 15.5,
                                 13.1, 9.7, 6.7, 4.3, 3.6, 3.9, 6.4, 9.7, 13.2,
                                 15.8, 18, 17.8, 15.1, 11.2, 7.2, 4.4),
                 City = rep(c("Glasgow", "Amsterdam"), each = 12),
                 Month = factor(rep(month.name, 2), month.name))

正常极坐标图:

p <- ggplot(df, aes(Month, Temperature)) +
      geom_col(aes(fill = City), position = position_dodge(width = 1)) +
      geom_vline(xintercept = 1:13 - 0.5, color = "gray90") +
      geom_hline(yintercept = 0:3 * 5, color = "gray90") +
      scale_fill_manual(values = c("darkorange", "dodgerblue4")) +
      ggtitle("Average monthly temperature in Amsterdam and Glasgow") +
      theme_bw() +
      theme(panel.border = element_blank(),
            axis.text.x = element_text(size = 14),
            axis.title.x = element_blank(),
            panel.grid.major = element_blank())

p + coord_polar()

可以看到文字都是水平朝向的。

文字弯曲格式:

可以使用 coord_curvedpolar 函数对文字标签进行弯曲:

p + coord_curvedpolar()

看起来是不是更加舒服一些了。

改变标签样式:

还可以在 theme 函数里改变标签样式:

p + coord_curvedpolar() +
  theme(axis.text.x = element_text(face = 2, color = "orangered3", hjust = 0))

4结尾

这个包还有很多其它功能,有时间好好分享。

欢迎加入生信交流群。加我微信我也拉你进 微信群聊 老俊俊生信交流群 哦,数据代码已上传至QQ群,欢迎加入下载。

群二维码：