为什么还在破坏我的传奇故事？

Question

我的确有类似的行为Why is ggplotly ruining my legends from ggplot?，但未能修复它。

图例由ggplotly()更改，我如何防止或编辑该图例？

格格图：

​

​

巧妙地：

​

代码：

library(fitdistrplus)
set.seed(123)
X <- rpois(20,3)
fit.p.mme <- fitdist(data = X, distr = "pois", method = "mme")
fit.p.mle <- fitdist(data = X, distr = "pois", method = "mle")

g1 <- cdfcomp(list(fit.p.mme, fit.p.mle), addlegend = TRUE, legendtext = c("P MME", "P MLE"), plotstyle = "ggplot")
g1 <- g1 + theme_gray()
g1
g1 %>% ggplotly()

尝试在g1$data$ind中编辑标签，但没有成功。

Answer 1

您可以在Plotly中手动更改名称。

为了找出名字来自哪里，我构建了这个地块，并运行lapply输出名称和图例组。在巧妙的，离散的颜色分配将得到自己的跟踪。因此，在构建跟踪时，跟踪的名称通常是图例中的名称。

我也不需要先给ggplotly()打电话。

g2 <- plotly_build(g1)

invisible(
  lapply(1:length(g2$x$data),
         function(j) {
           message(paste0(j, " ", g2$x$data[[j]]$name, " & ",
                          g2$x$data[[j]]$legendgroup))
         })
)

#   1  & 
#   2  & 
#   3  & 
#   4  & 
#   5 (pois,1) & (pois,1)
#   6 (pois.1,1) & (pois.1,1)

所以有6条痕迹，这些是它们的名字(少了我粘贴在里面的符号)。

您可以直接更改这些名称。

g2$x$data[[5]]$name <- "P MME"
g2$x$data[[5]]$legendgroup <- "P MME"
g2$x$data[[6]]$name <- "P MLE"
g2$x$data[[6]]$legendgroup <- "P MLE"

如果你想要以y轴为中心的图例与情节背景颜色，你也可以在这里做。

g2$x$layout$legend$y <- .5  # if you want to move the legend to the middle
g2$x$layout$legend$bgcolor <- g2$x$layout$plot_bgcolor # to use the same bg color

g2 # let's see it

​

​

肯定不一样，但更接近了。