Как установить градиентную цветовую шкалу в сюжет / блеск - PullRequest
Новая
       11

Как установить градиентную цветовую шкалу в сюжет / блеск

0 голосов
/ 11 марта 2019

Я пытаюсь сделать интерактивную графическую вкладку в своем блестящем приложении, которая показывает процент точек в каждой среде обитания на разных высотах прилива.Проблема заключается в том, что всякий раз, когда пользователь выбирает другой тег, изменяется цветовая шкала процента.Есть ли способ сохранить эту последовательность?

Код для моей фигуры здесь: 

output$tide = renderPlotly({
habitat_tides %>%
  filter(veg_class != "Natural Pond (non-vegetated)") %>% 
  filter(veg_class != "Sparsely Vegetated Talus") %>% 
  filter(tag == input$tag) %>% 
  mutate(tide = factor(tide, levels = c("L", "M", "H"))) %>%
  group_by(tag) %>% 
  count(veg_class, tide) %>%
  mutate(total = sum(n),
         pcnt = n / total *100) %>%
  ggplot(height = 500) +
  geom_point(aes(veg_class, tide, size = pcnt, color = pcnt)) +
  theme_bw() +
  theme(axis.text.x = element_text(angle = 45, vjust = 0.5),
        text = element_text(size=10)) +
  scale_color_gradientn(name = "Percent",
                      colors = brewer.pal(4, "Blues")) +
  labs(title = input$tag, x = "Habitat Type", y = "Tide Height") 
  })
...