将 ggplotly 与 ggplot 一起使用答案

【问题标题】：Using ggplotly with ggplot将 ggplotly 与 ggplot 一起使用
【发布时间】：2019-11-29 06:21:52
【问题描述】：

我有一个使用 ggplotly 生成几个交互式图表的脚本。然后，我尝试使用 ggplot 生成非交互式的附加图表。即使我引入 Sys.sleep() 暂停，他们也拒绝绘图。

为什么不能在同一个脚本中将交互式 Javescript ggplotly 图与非交互式 ggplot 图混合在一起？我找不到关于这个问题的任何答案。

更新：这是我正在使用的代码的迷你版。实际上，它在 RStudio 中不起作用。第二个情节似乎写在第一个情节之上。最后创建的任何绘图似乎都会覆盖先前的绘图。如果我删除对“ggplotly”的调用并只打印 ggplot 结构，一切都很好。它与对 ggplotly 的调用有关。相反，如果我对两个图表都使用 ggplotly，一切都很好。似乎他们没有混合。

library("ggplot2")
library("plotly")
test_data <- data.frame(A = c(1,5,7,4,2),
                        B = c(3,3,6,8,4),
                        C = c(6,2,9,4,5))

my_dates <- as.Date(c("2010-01-01", "2010-02-01",
                      "2010-03-01", "2010- 4-01",
                      "2010-05-01"))

xts_data <- xts(test_data, order.by = my_dates)
p <- autoplot(xts_data, facets = NULL) +
  guides(color = guide_legend(override.aes = list(size = 2))) +
  geom_line(size = 1)
print(ggplotly(p))

new_df <- data.frame(P = c(70, 70, 70),
                     Category = c("A", "B", "C"),
                     Value = c(5, 15, 10))
p <- ggplot(data = new_df, aes(
      x = Category, y = Value)) +
      geom_bar(position = position_dodge(), stat = "identity")
 print(p)

【问题讨论】：

不知道，对我有用。您可能想要添加更多详细信息：它是在闪亮的应用程序中，还是来自命令行或 Rstudio，您使用哪些命令行进行绘图，最小的可重现示例等。
请阅读this。正如我所说——它对我有用。细节决定成败！你提到了一个脚本——什么脚本？你如何执行它？命令是什么？你能把你的脚本简化成几行，然后在这里发布吗？
好的。在 RStudio 中运行时它不起作用。我只得到第二个情节，这似乎是在第一个情节之上。
我在运行多次测试后得出的结论是，不能在同一段代码中混合使用 ggplots 和 plotly plots。所有地块要么是一种类型，要么是另一种类型。欢迎发表评论或提出不同意见。

标签： r ggplot2 plotly ggplotly

【解决方案1】：

我遇到的“问题”是 ggplot 图表显示在 Plot 窗格中，而 ggplotly 图表显示在 Viewer 窗格中。问题解决了。

【讨论】：