將ggplotly與ggplot一起使用

Question

我有一個使用ggplotly生成兩個交互式圖表的腳本。 然后，我嘗試使用ggplot生成非交互式的附加圖表。 即使我引入Sys.sleep（）暫停，它們也拒絕繪制。

為什么不能在同一腳本中將交互式Javescript ggplotly圖與非交互式ggplot圖混合在一起？ 關於這個問題，我找不到任何答案。

更新：這是我正在使用的代碼的迷你版本。 實際上，它在RStudio中不起作用。 第二個圖似乎寫在第一個圖的頂部。 無論最后創建什么圖，似乎都會覆蓋前一個圖。 如果我刪除對“ ggplotly”的調用並僅打印ggplot構造，一切都很好。 相反，如果我對兩個圖表都使用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)

Answer 1

ggplot圖表顯示的“問題”顯示在“繪圖”窗格中，ggplotly圖表顯示在“查看器”窗格中。 問題解決了。