向 Plotly 子图添加注释

编程问答 2022-06-01

问题描述

我正在尝试在 R 中以情节方式执行以下操作。我有一系列 5 个数据集（每个数据集都描述了一些似然曲线）。我希望绘制这些曲线中的每一条（作为散点图），但是由于图形的比例非常大，我还希望在该曲线的顶部插入第二个图形以显示可能性在最右侧的收敛情节（inset graph）。我能够做到这一点——但是，当我现在尝试使用 R 中的 subplot 命令使所有 5 个图形（以及它们相关的放大图形的相关插图）出现在一个窗格上时，所有注释都消失了，尽管我这样做在每个子图中获取 5 个不同的数据集。有人可以帮我吗？

这是我的代码当前结构的粗略示例

    fig      = list()
    for (i in 1:length(KG_super_pop_names)) {
      #First read in the RDS data
      results  = readRDS(sprintf("./analysis/results/%s_inference_results",KG_super_pop_names[[i]]))
      ll       = results$log_likelihood
      ll_graph <- plot_ly()
      ll_graph  <- add_trace(ll_graph,x =~(1:length(ll)),y = ~ll)
      ll_graph  <- add_trace(ll_graph,x =~seq(from = .8*length(ll),to = length(ll)),y = ~ll[(.8*length(ll)):length(ll)],xaxis='x2',yaxis='y2',mode='markers')
      ll_graph  <- layout(ll_graph,xaxis2 = list(domain = c(0.6,0.8),anchor='y2'),yaxis2 = list(domain = c(0.2,0.3),anchor='x2'))
      fig[[i]] = plotly_build(ll_graph)
    }
figure_plots = subplot(fig[[1]],fig[[2]],fig[[3]])

感谢您的帮助

解决方法

暂无找到可以解决该程序问题的有效方法，小编努力寻找整理中！

如果你已经找到好的解决方法，欢迎将解决方案带上本链接一起发送给小编。

小编邮箱:dio#foxmail.com (将#修改为@）

annotationsannotationsinsetsplotlyrr