R Plotly - 分解分位数图

Question

我使用歌手数据中的这段代码创建了一个包含多个箱线图的图（这是可重现的）：

library(tidyverse)
library(plotly)
library(lattice)
plot_ly(singer, y = ~height, color = ~voice.part, type = "box")

它创建了这个被语音部分分解的漂亮的箱线图：

现在，我遇到的问题是，我正在尝试做同样的事情，但使用分位数图，但无论我做什么，它最终仍然全部聚集在一起，就像这样：

哦，这是我使用的代码：

fvalfull <- (1:nrow(singer) - 0.5) / nrow(singer)
dffull <- tibble(smpl = singer$height, voice.part = singer$voice.part, fval = fvalfull)
plot2 <- ggplot(dffull, aes(sample = smpl)) + 
  geom_qq(distribution = qunif)
ggplotly(plot2, color = ~dffull$voice.part)

有什么方法可以让所有八个分位数图显示在同一个图中？我知道我只能制作八个单独的图，但我认为将它们全部放在同一个图中会更有趣，类似于箱形图。

谢谢！

Answer 1

我不确定这是否是您想要的，但我创建了一个分位数图，它在一个图中以不同的颜色显示了所有 voice.parts。您可以使用以下代码：

library(tidyverse)
library(plotly)
library(lattice)
p <- ggplot(dffull, aes(sample=smpl))+
  geom_qq(distribution = qunif, aes(colour=voice.part)) +
  xlim(c(0,1))

ggplotly(p)

输出：

R Plotly - 分解分位数图

R Plotly - Breaking down a Quantile Plot

r

ggplot2

plotly