Проблемы с созданием ggplot 3D с помощью plot_gg

Question

Я сделал ggplot случаев COVID в марте 2020 года в штатах США, но когда я пытаюсь запустить функцию plot_gg, ​​она отображается как плоское изображение. Мне кажется, что я не говорю функции, какой должна быть переменная высоты (в данном случае - count), но все, что я пробую, либо не работает, либо полностью портит карту.

# Libraries
library(leaflet)
library(tidyverse)
library(ggmap)
library(leaflet.extras)
library(htmltools)
library(ggplot2)
library(maps)
library(mapproj)
library(mapdata)
library(rayshader)
library(viridis)

# US States
s <- map_data('state')
ggplot(s, aes(x=long, y=lat, group = group, fill = region)) +
  geom_polygon(color='black') +
  coord_map('polyconic') +
  guides(fill = F)

#COVID DAta -USA
c <- read.csv(file.choose(), header = T)
usa <- c %>% filter(country  == 'United States')
usa <- usa %>% group_by(province)%>%
  summarise(count=n())%>%
  arrange(desc(count))

#Merge Data
usa$province<- tolower(usa$province)
data <- merge(s, usa,
              by.x = 'region',
              by.y = 'province')

#ggplot 
 gg_usa = ggplot(data, aes(x=long, y=lat,
      group=group,
      fill=count)) +
  geom_polygon(color='grey') +
  coord_map('polyconic') +
  scale_fill_gradient2(low='white', high='purple') +
  theme_void() +
  ggtitle('COVID CASES MARCH 2020')


#Plot3d
plot_gg(gg_usa, multicore = TRUE, width = 6, height = 4)

введите описание изображения здесь