如何用计算值绘制Plotly箱线图？解决ggplot转ggplotly渲染异常问题

我来帮你解决这两个问题哈～

Plotly支持直接传入预计算的箱线图统计值（最小值、分位数、中位数、最大值等）来生成图形，不需要依赖原始数据集。下面是具体的实现步骤和代码示例：

• 先准备好包含分组变量和各统计值的数据框（比如你现有的df）
• 使用plot_ly()函数指定type='box'，通过y参数传入整理好的统计值列表，配合分组变量x，就能生成纯统计值驱动的箱线图。

代码示例：

# 你的原始数据框
throughput <- c(1, 2, 3, 4, 5)
response_time_min <- c(9, 19, 29, 39, 49)
response_time_10 <- c(50, 55, 60, 60, 61)
response_time_med <- c(100, 100, 100, 100, 100)
response_time_90 <- c(201, 201, 250, 200, 230)
response_time_max <- c(401, 414, 309, 402, 311)
df <- data.frame(throughput, response_time_min, response_time_10, response_time_med,response_time_90, response_time_max)

# 加载plotly包
library(plotly)

# 用预计算值绘制箱线图
fig <- plot_ly(df, x = ~factor(throughput), type = 'box') %>%
  add_boxplot(
    y = ~list(response_time_min, response_time_10, response_time_med, response_time_90, response_time_max),
    boxpoints = 'false',  # 不需要显示原始数据点时设置
    name = 'Response Time'
  ) %>%
  layout(
    xaxis = list(title = 'Throughput'),
    yaxis = list(title = 'Response Time')
  )

fig

你遇到的核心问题是：ggplot2中用stat="identity"手动指定统计值的箱线图，和ggplotly的兼容性很差。ggplotly更擅长转换基于原始数据生成的ggplot图形，对于这种手动映射统计参数的场景，它无法正确解析各个数值的对应关系。

给你两种可行的解决方案：

方案1：用Plotly原生代码重构箱线图（推荐） #

直接采用上面问题1中的Plotly原生代码生成图形，既能完美渲染，又能保留Plotly的交互特性，效果比转换ggplot图形更稳定。

方案2：模拟原始数据再转ggplotly #

如果你一定要保留ggplot2的工作流，可以基于现有统计值模拟一批原始数据，让ggplot2通过计算生成箱线图，这样ggplotly就能正确解析转换了：

library(ggplot2)
library(plotly)

# 定义函数：根据统计值模拟符合分布的原始数据
simulate_data <- function(min_val, q10, med, q90, max_val, n = 100) {
  data <- c(
    rep(min_val, 1),
    runif(9, min_val, q10),
    runif(40, q10, med),
    runif(40, med, q90),
    runif(9, q90, max_val),
    rep(max_val, 1)
  )
  return(data)
}

# 构建模拟数据集
sim_df <- data.frame(
  throughput = rep(df$throughput, each = 100),
  response_time = unlist(mapply(simulate_data, 
                                df$response_time_min, 
                                df$response_time_10, 
                                df$response_time_med, 
                                df$response_time_90, 
                                df$response_time_max))
)

# 用模拟数据生成ggplot箱线图
g <- ggplot(sim_df, aes(x = factor(throughput), y = response_time)) +
  geom_boxplot() +
  labs(x = 'Throughput', y = 'Response Time')

# 转换为ggplotly
ggplotly(g)

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