使用ggplotly的frame参数生成堆叠条形图时出现一元运算符错误

问题描述 #

使用ggplot绘制带Year变量滑块的堆叠条形图时显示正常，但调用ggplotly()转换为交互式图表时触发错误：

Error in -data$group : invalid argument to unary operator

复现代码及数据如下：

summary <- structure(list(Language = c("English", "English", "English", "English", "English", "English", "English", "English", "English", "English", "English", "English", "English", "German", "German", "German", "German", "German", "German", "German", "German", "German", "German", "German", "German", "German", "German"), category = structure(c(1L, 1L, 1L, 1L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 4L, 4L, 4L), levels = c("A", "B", "C", "D", "Langues et Litteratures", "Materiaux, Milieux et Chimie", "Mathématiques", "Mathematiques et Informatique", "Medecine", "Psychologie", "Science de l'ingénieur", "Science de la Terre", "Sciences de l'education", "SHS"), class = "factor"), Year = c(2000, 2001, 2002, 2003, 2002, 2000, 2001, 2002, 2003, 2000, 2001, 2002, 2003, 2000, 2001, 2002, 2003, 2000, 2001, 2003, 2000, 2001, 2002, 2003, 2001, 2002, 2003), n = c(20L, 39L, 41L, 53L, 1L, 3L, 12L, 8L, 22L, 2L, 11L, 17L, 18L, 44L, 29L, 38L, 46L, 1L, 3L, 3L, 2L, 1L, 2L, 4L, 1L, 3L, 3L)), class = "data.frame", row.names = c(NA, -27L))

library(ggplot2); library(plotly)

gg <- ggplot(summary) +
  aes(x = Language, y = n, fill = category, frame = Year) +
  geom_bar(position="stack", stat="identity")

print(gg)
ggplotly(gg)

报错原因 #

全局aes()中同时设置fill=category（堆叠分组）和frame=Year（动画分组），导致ggplotly在解析图层分组逻辑时出现冲突，无法正确处理堆叠条形图的分组运算，进而触发“一元运算符参数无效”的错误。

解决方案 #

方案1：使用plotly原生语法构建（推荐） #

直接用plotly的原生函数构建图表，避免ggplot与ggplotly的转换冲突，同时能更灵活控制动画细节：

library(plotly)
library(tidyr)

# 补全缺失的Year-Language-category组合，填充n=0避免堆叠异常
summary_full <- complete(summary, Year, Language, category, fill = list(n = 0))

# 构建堆叠条形图并添加年份滑块
plot_ly(summary_full, x = ~Language, y = ~n, color = ~category, frame = ~Year,
        type = 'bar', text = ~n, textposition = 'auto') %>%
  layout(barmode = 'stack',
         xaxis = list(title = "语言"),
         yaxis = list(title = "数量")) %>%
  animation_slider(currentvalue = list(prefix = "年份: "))

方案2：调整ggplot的aes参数位置 #

将frame=Year从全局aes()移至geom_bar()的局部aes()中，让ggplotly正确区分堆叠分组和动画分组：

library(ggplot2); library(plotly)

gg <- ggplot(summary) +
  aes(x = Language, y = n, fill = category) +
  geom_bar(aes(frame = Year), position="stack", stat="identity")

ggplotly(gg)

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