facet_wrap：使用 x_free scale 但只有 2 個不同的帶日期的 x 軸

Question

我在兩個不同時期的測量中在三個站點上執行。 現在我想使用 facet_wrap 顯示結果。 在這里，我想要有 2 列（第一行第一句，第二行第二句）並且每個站點連續。 為了在各自的圖表中只包含各自的日期，我使用 x_free，從而生成所需的圖表。 現在我想刪除上圖中的 X 軸標簽，以便日期僅在最后一張圖中可見。

我的數據如下所示：在此處輸入圖片描述

我的情節代碼是這樣的：

test_data$date <- as.Date(test_data$date )

Boxes <- ggplot(test_data, aes(date, number_bats)) + 
  geom_col(aes(date,number_bats)) +
  facet_wrap(~Box, ncol = 2, scales = "free_x")

print(Boxes)

結果圖如下所示：在此處輸入圖片描述

我現在如何刪除前兩個圖表中的日期，但將其保留在最后一個圖表中？ 謝謝你的幫助！

Answer 1

我發現這個 package“ggh4x”有一個擴展面 function（facet_grid2 和 facet_wrap2），它解決了我的問題。