R语言ggiraphExtra包ggRadar开启interactive后无法修改分组颜色

当ggRadar启用interactive=TRUE参数时，函数会在内部直接生成带交互属性的图形元素，硬编码了默认颜色映射，后续追加的scale_color_manual、scale_fill_manual不会覆盖已经生成的交互元素样式，因此自定义配色失效。

提供两种可直接复用的方案：

方案1：先调整静态图配色，再手动转交互式（最稳定） #

跳过ggRadar自带的交互转换逻辑，先把静态图的配色、样式调整到位，再用ggiraph包的girafe函数手动转成交互式对象，完全保留自定义配置：

library(ggiraphExtra)
library(RColorBrewer)
library(ggplot2)
library(ggiraph)

# 预处理：分组变量转为因子，生成自定义色板
mtcars$cyl <- as.factor(mtcars$cyl)
mycolors <- colorRampPalette(brewer.pal(3, "Paired"))(3)

# 生成配置好配色的静态雷达图
p_static <- ggRadar(mtcars, aes(colour = cyl, fill=cyl), 
                    rescale = TRUE, legend.position = "left",  
                    interactive = FALSE, use.label = TRUE) +
  scale_color_manual(values = mycolors) +
  scale_fill_manual(values = mycolors)

# 手动转为交互式对象
p_interactive <- girafe(ggobj = p_static)

# 查看效果
p_interactive

方案2：调用ggRadar时直接传入自定义色板 #

如果要使用ggRadar自带的interactive=TRUE参数，可以把自定义色板直接传给函数内置的palette参数，函数生成交互元素时会直接使用指定配色：

library(ggiraphExtra)
library(RColorBrewer)
library(ggplot2)

# 预处理：分组变量转为因子，生成自定义色板
mtcars$cyl <- as.factor(mtcars$cyl)
mycolors <- colorRampPalette(brewer.pal(3, "Paired"))(3)

# 生成带自定义配色的交互式雷达图
p_interactive <- ggRadar(mtcars, aes(colour = cyl, fill=cyl), 
                         rescale = TRUE, legend.position = "left",  
                         interactive = TRUE, use.label = TRUE,
                         palette = mycolors)

# 查看效果
p_interactive

内容的提问来源于stack exchange，提问作者chapau