径向（环形）条形图内圈长分组名称的文本对齐方法求助

各位好！我最近在做环形条形图，用的是tidyverse这套工具，参考的是环形分组条形图的常规代码逻辑，但现在碰到个棘手的小问题：我的分组名称是longnameA、longnameB、longnameC、longnameD这类偏长的名字，放到环形图的内圈之后，要么挤得乱糟糟的，要么文本显示不全，完全没法整齐对齐。想请教下各位大佬，有没有什么办法能调整这些长文本的排版，让它们美观又清晰地展示在内圈位置？

下面是我目前写的核心代码（data$id后续的部分还没补完，但整体逻辑是这样）：

# 加载包
library(tidyverse)

# 创建数据集
data <- data.frame(
  individual=paste( "Mister ", seq(1,60), sep=""),
  group=factor(c( rep('longnameA', 10), rep('longnameB', 30), rep('longnameC', 14), rep('longnameD', 6))) ,
  value=sample( seq(10,100), 60, replace=T)
)

# 给每个分组末尾添加空条形
empty_bar <- 3
to_add <- data.frame( matrix(NA, empty_bar*nlevels(data$group), ncol(data)) )
colnames(to_add) <- colnames(data)
to_add$group <- rep(levels(data$group), each=empty_bar)
data <- rbind(data, to_add)
data <- data %>% dplyr::arrange(group)
data$id <- seq(1, nrow(data))

备注：内容来源于stack exchange，提问作者Achal Neupane