在冲积图的中间添加自定义标签

Question

我有下面的Alluvial图

library(ggplot2)
library(ggalluvial)
data = structure(list(val = c(10, 30, 15, 30, 40, 12, 10, 30, 15), name = c("A", 
"B", "C", "A", "B", "C", "A", "B", "C"), group = c("gr1", "gr1", 
"gr1", "gr2", "gr2", "gr2", "gr3", "gr3", "gr3")), row.names = c(NA, 
-9L), class = "data.frame")
data['val1'] = c('45', '23', '44', '55', '34', '55', '12', '34', '89')
  ggplot(data,
       aes(x = group, stratum = name, alluvium = name,
           y = val,
           fill = name, label = val)) +
  scale_x_discrete(expand = c(.1, .1)) +
  geom_flow(aes(fill = name), alpha = .3, width = 1/9) +
  geom_stratum(aes(color = name), alpha = .9, width = 1/9) +
  geom_text(position = "stack", aes(x = group, y = val, label = val1))

正如您所看到的，标签不是垂直对齐在每个块的中心。有办法做到这一点吗？

谢谢你的指针

Answer 1

在position = "stack"调用中设置geom_text()时，这是设置position = position_stack(vjust = 1, reverse = FALSE)的语法糖。

由于您希望文本垂直居中，您可以显式调用position_stack()函数，设置vjust = 0.5

ggplot(data,
    aes(
        x = group, stratum = name, alluvium = name,
        y = val,
        fill = name, label = val
    )
) +
    scale_x_discrete(expand = c(.1, .1)) +
    geom_flow(aes(fill = name), alpha = .3, width = 1 / 9) +
    geom_stratum(aes(color = name), alpha = .9, width = 1 / 9) +
    geom_text(
        position = position_stack(vjust = 0.5), # only this line has changed
        aes(x = group, y = val, label = val1)
    )

​

​