R ggplotly和geom_text vjust/hjust-如何实现此静态绘图？

我已经创建了下面的情节，当它是静态的时候，我非常满意。但是，我想让它具有交互性，这样当人们在上面悬停时，你可以看到季节（如pudding.cool）。静态情节我有：

实现这一目标的代码是：

character_sentiment_season_adj %>%
  mutate(sent_dummy = ifelse(sentimentc < 0, "More Negative", "More Positive")) %>%
  mutate(character = reorder(character, avg_sentiment)) %>%
  ggplot(aes(character, sentimentc, hoverinfo = season)) +
  geom_point(colour = "#666666", size = 4, fill = "#f2f2f2", shape = 21) +
  coord_flip() +
  geom_hline(yintercept = 0, alpha = 0.2) +
  geom_point(aes(character, avg_sentiment, color=avg_sentiment), shape = 21, colour = "#262626", fill = "#ff9933", size = 4) + 
  geom_text(aes(label = character), 
                  size = 3, 
                  data = subset(character_sentiment_season_adj, sentimentc == max_sentiment),
            hjust = -0.5,
            vjust = 0.3) +
  labs(title = "How negative are The Office (US) characters?",
       subtitle = "Sentiment of each character based on bing sentiment scores") +
  theme(axis.title.x = element_blank(),
        axis.title.y = element_blank(),
        axis.text.y = element_blank(),
        axis.text.x = element_blank(),
        axis.ticks = element_blank(),
        axis.line = element_blank(),
        panel.background = element_rect(fill = "white"),
        plot.title = element_text(hjust = 0.5, face = "bold"),
        plot.subtitle = element_text(hjust = 0.5),
        plot.caption = element_text(size = 6)
        )

我是R的新手。如果有必要，我很乐意使用ggplotly以外的软件包

ggplotly(p,
         tooltip = "season") %>% style(textposition = "right")