Как настроить фон в полярных координатах с помощью ggplot2?

Question

Можно ли настроить изображение в качестве фона при построении полярных координат с помощью ggplot?Я хочу загрузить локальное изображение в качестве фона рисунка ， Есть ли другой способ?

Я знаю, что функция ggbackground в пакете ggimage поддерживает пользовательские изображения в качестве фона. Однако клиенты, использующие Power BIих публикация на сервере не поддерживает пакет ggimage. Annotation_custom в ggplot поддерживает только декартовы координаты.

library(ggimage)
library(tidyverse)
library(jpeg)
setwd("C:\\Users\\zhuang\\Downloads")
g<-readJPEG("QQ05.jpg")
g <- rasterGrob(g, interpolate=TRUE)

df<-read.csv("data.csv") %>% na.omit()  
p<-ggplot(df, 
       aes(x=spdl,y=bl,
           fill=factor(spdl)))+
  geom_bar(color="white",width=1,
           stat="identity",position="stack", 
           size=1.2)+
  coord_polar(theta = "x",start=2)+
  #annotation_custom(g, xmin=-Inf, xmax=Inf, ymin=-Inf, ymax=Inf)+
  theme(axis.title.x=element_blank(),  
        axis.text.x=element_blank(),
        axis.ticks.x=element_blank())+
  scale_fill_manual(
    values =alpha(c("#7FFF00","#00FF7F","#6495ED","#00BFFF",
                    "#7FFF00","#7FFF00","#7FFF00","#7FFF00","#7FFF00"),1))+
  theme_bw(1)+ylim(-40,120)+
  theme_void()+  
  theme(legend.position = "none")

img <- "QQ05.jpg"  
ggbackground(p, img)

Когда я использую annotation_custom, я получаю сообщение об ошибке следующим образом. Ошибка: annotation_custom работает только с декартовыми координатами

Однако, когда я использую функцию ggbackground, я могу добиться эффекта.