小编and*_*oax的帖子

我了解如何自定义散点图中的悬停文本plotly,但是框图不接受"text"属性.Warning message: 'box' objects don't have these attributes: 'text'.我有超过300个x轴变量,并且在两组(A或B)中有编号样本(1-50),我想在同一个框图中一起绘制,然后我想区分样本数和将光标移到异常值上时,通过悬停文本进行分组.我想要自定义数据标签而不是自动四分位标签.这可能与plotly箱形图有关吗？

library(plotly) 
library(magrittr)

plot_ly(melt.s.data, 
          x = ~variable, 
          y = ~value,
          type = 'box', 
          text = ~paste("Sample number: ", Sample_number, 
                       '<br>Group:', Group)) %>% 
        layout(title = "Individual distributions at each x")

这里有一些示例数据只显示了5个变量(但是当推断到我的300时,代码应该工作)...

#sample data
set.seed(456)
#Group A
sample.data_a <- data.frame(Class = "red", Group = "A",
                            Sample_number = seq(1,50,by=1), 
                            x1= rnorm(50,mean=0, sd=.5), 
                            x2= rnorm(50,mean=0.5, sd=1.5), 
                            x3= rnorm(50,mean=5, sd=.1), 
                            x4= rnorm(50,mean=0, sd=3.5),
                            x5= rnorm(50,mean=-6, sd=.005))
#Group B
sample.data_b <- data.frame(Class …