В R использование geom_sf + frame и передача его в plotly :: ggplotly дает мне ошибку переходов, что я пропустил?

Question

Я пытаюсь создать карту хороплета с переходами ( кадров ) квартальных данных по безработице.Карта ggplot2 выглядит хорошо, но переходы между кадрами в графике - нет.Они должны просто изменить цвет (основываясь на изменении значения этого состояния в новом квартале), но процесс рендеринга каждого кадра состоит из слияния состояний (по цвету) или чего-то подобного.

Я не смогнайти решение.Есть какие-нибудь подсказки по этому поведению и возможному решению?

Я следую (в основном) этому хорошему прохождению: https://moderndata.plot.ly/learning-from-and-improving-upon-ggplotly-conversions/

Используя sf 0.8-1;plotly 4.9.0, ggplot2 3.2.0

Мой код:

library(sf) # m shapefiles
library(ggplot2) # graphics
library(plotly) # dynamic graphics
library(dplyr) # data-wrangling tidyverse
library(geobr) # download shapesfiles from Brazil (ibge)
library(sidrar) # download data (sidra)
library(rmapshaper) #  data-wrangling shapefiles
library(lubridate) # for dates

# download shapefiles from Brazilian States (UF) - IPEA geobr::
ufs <- geobr::read_state(code_state="all", year=2018)

# simplify the shapes rmapshaper::ms_simplify 
ufs <- rmapshaper::ms_simplify(ufs)

# download data from SIDRA - unemployment by state X quarter X gender
d <-sidrar::get_sidra(api = "/t/6396/n3/all/v/4099/p/all/c2/all/d/v4099%201")

# renaming columns
d <- d %>%  dplyr::mutate(date = `Trimestre (Código)`,
                          UF = `Unidade da Federação (Código)`)

# dates as dates
d$date <-lubridate::yq(d$date)

# selecting some quarters and only the total of both genders
d1 <- d %>%  dplyr::filter(Sexo == "Total" , date <= "2013-01-01") %>% 
             dplyr::select(UF, date, Valor)
d1$UF <- as.numeric(d1$UF)

# Joining geodata with unemployment rate, by = "uf"
ufs2 <- dplyr::full_join(ufs, d1, by = c("code_state" = "UF" ))

# plot map
m0<-ggplot2::ggplot(ufs2) +
                    geom_sf(mapping = aes(fill = Valor, frame = date))

# map plotly::
m <- plotly::ggplotly(m0) %>%  
             style(hoverlabel = list(bgcolor = "white"), hoveron = "fill")
m

Пока проблемный результат:

Большое спасибо заранее!

Answer 1

Я думаю, что это может сработать, если вы удалите данные x / y из фреймов, как это сделано в этом сообщении в блоге, поэтому что-то вроде:

gg <- p %>%
  ggplotly() %>%
  style(hoverlabel = list(bgcolor = "white"), hoveron = "fill") %>%
  plotly_build()

# remove x/y data from every trace
gg$x$frames <- lapply(
  gg$x$frames, function(f) { 
    f$data <- lapply(f$data, function(d) d[!names(d) %in% c("x", "y")])
    f 
  })
gg