r - 在 Shiny 应用程序中，geom_text 对象的 hjust 参数未按预期工作

Question

我正在尝试创建一个交互式凹凸图来展示英超联赛球队在整个赛季中在桌子上上下的运动，以获得一个闪亮的应用程序。在情节中，我使用 geom_text 标记了每个团队的开始和结束位置，但是当尝试将起始位置标签文本与 hjust = 1 右对齐时，我得到一个古怪的结果，而 hjust = 0 适用于 left-对齐。

hjust = 1（右对齐）代码 + 奇数结果

geom_text_interactive(data = df %>% dplyr::filter(Matchday == md_start), 
                      aes(label = Team, x = md_start - .35, data_id = Team), 
                      fontface = "bold", size = 11, hjust = 1)

(hjust = 1) - 意外结果

hjust = 0（左对齐）代码

geom_text_interactive(data = df %>% dplyr::filter(Matchday == md_end), 
                      aes(label = Team, x = md_end + .35, data_id = Team), 
                      fontface = "bold", size = 11, hjust = 0)

(hjust = 0)

此问题仅在本地和 shinyapps.io 上运行闪亮的应用程序时出现，因为代码在 rstudio 中创建绘图时按预期工作。任何有关如何解决此问题的建议，或有关 ggplot 对象如何在闪亮中以不同方式工作的知识将不胜感激。