ggplotly и geom_text vjust / hjust - как добиться этого состояния c заговор? - PullRequest
Новая
       35

ggplotly и geom_text vjust / hjust - как добиться этого состояния c заговор?

1 голос
/ 29 марта 2020

Я создал следующий сюжет, который меня очень порадовал, когда он стал c - однако я хотел сделать его интерактивным, чтобы, когда люди наводят курсор на вас, вы могли видеть времена года (как это сделал pudding.cool *) 1001 * здесь . Статистический график c У меня есть:

static plot using geom_point and geom_text

Код для достижения этого: 

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)
        )

Однако, когда Я превращаю его в Plotly, он начинает выглядеть так:

plotly representation of the code

Я уже пытался использовать стиль, поэтому код для вышеприведенного сюжета выглядит так: 

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

Я довольно новичок в R. Я рад использовать пакет, отличный от ggplotly, если это необходимо.

...