r - 绘图动画 map 不显示具有 NA 值的国家

Question

我在 plotly community forum 中发布了这个但绝对没有事件!希望你能在这里提供帮助:

我有 map 时间序列数据，有些国家没有数据，plotly 根本没有绘制它们。我可以勾勒出它们的轮廓，它们看起来不同，但似乎没有地方缺少数据(即我想要一个图例条目)。我怎样才能做到这一点？这是一个代表:

library(plotly)
library(dplyr)

data = read.csv('https://github.com/lc5415/COVID19/raw/master/data.csv')


l <- list(color = toRGB("grey"), width = 0.5)

g <- list(
  scope = 'world',
  countrycolor = toRGB('grey'),
  showframe = T,
  showcoastlines = TRUE,
  projection = list(type = 'natural earth')
)

map.time = data %>%
  plot_geo() %>% 
  add_trace(z = ~Confirmed, color = ~Confirmed, frame = ~Date, colors = 'Blues',
            text = ~Country, locations = ~Alpha.3.code, marker = list(line = l)) %>% 
  colorbar(title = 'Confirmed') %>%
  layout(
    title = 'Number of confirmed cases over time',
    geo = g
  ) %>% 
  animation_opts(redraw = F) %>%
  animation_slider(
    currentvalue = list(
      prefix = paste0("Days from ",
                      format(StartDate, "%B %dnd"),": "))) %>%
  plotly_build()

map.time

请注意，缺少数据的国家(例如俄罗斯)与所有其他国家的数据点一样多，问题不在于它们没有出现在传递给 plotly 的 dtaframe 中。

Answer 1

处理此问题的明显方法是为工具提示创建一个单独的标签列，为 NA 值读取“无数据”(否则为实际值)，然后将实际 NA 值设为 0。这将提供统一的外观到所有国家，但在某个国家/地区没有数据时会正确告诉您。

map.time = data %>%
  mutate_if(is.numeric, function(x) {x[is.na(x)] <- -1; x}) %>%
  plot_geo() %>% 
  add_trace(z = ~Confirmed, color = ~Confirmed, frame = ~Date, colors = 'Blues',
            text = ~Country, locations = ~Alpha.3.code, 
            marker = list(line = l)) %>% 
  colorbar(title = 'Confirmed') %>%
  layout(
    title = 'Number of confirmed cases over time',
    geo = g
  ) %>% 
  animation_opts(redraw = F) %>%
  animation_slider(
    currentvalue = list(
      prefix = paste0("Days from ",
                      format(StartDate, "%B %dnd"),": "))) %>%
  plotly_build()

给出: