ggplot2 中的分面網格在列之間留下空白

Question

我正在使用使用facet_grid結構的 ggplot 在ggplot中創建 plot 。 但由於某種原因，當我制作 plot 時，它會在每個玩家的列之間顯示這些差距：

我希望左上角的“網格”僅顯示 ARI/% Team Receiving 的 8 個條形，而右上角的網格顯示 KC/% Team Receiving 的 3 個條形，依此類推。 作為參考，這里是 dataframe 以及 plot 本身的代碼：

test <- structure(list(posteam = c("ARI", "ARI", "ARI", "ARI", "ARI", 
"KC", "KC", "ARI", "KC", "ARI", "ARI", "ARI", "ARI", "KC", "ARI", 
"KC", "KC", "ARI"), player_name = c("A. Green", "A. Wesley", 
"C. Edmonds", "C. Edmonds", "C. Kirk", "C. Edwards-Helaire", 
"D. Williams", "D. Hopkins", "D. Gore", "E. Benjamin", "J. Conner", 
"K. Murray", "M. Williams", "M. Hardman", "R. Moore", "T. Kelce", 
"T. Hill", "Z. Ertz"), ep_type = c("% Team Receiving Expected Fantasy Points", 
"% Team Receiving Expected Fantasy Points", "% Team Receiving Expected Fantasy Points", 
"% Team Rushing Expected Fantasy Points", "% Team Receiving Expected Fantasy Points", 
"% Team Rushing Expected Fantasy Points", "% Team Rushing Expected Fantasy Points", 
"% Team Receiving Expected Fantasy Points", "% Team Rushing Expected Fantasy Points", 
"% Team Rushing Expected Fantasy Points", "% Team Rushing Expected Fantasy Points", 
"% Team Rushing Expected Fantasy Points", "% Team Receiving Expected Fantasy Points", 
"% Team Receiving Expected Fantasy Points", "% Team Receiving Expected Fantasy Points", 
"% Team Receiving Expected Fantasy Points", "% Team Receiving Expected Fantasy Points", 
"% Team Receiving Expected Fantasy Points"), pct_team_ep = c(0.182936486668621, 
0.1274987856876, 0.110899393183845, 0.364654483810259, 0.185969658295152, 
0.484933781664591, 0.436542306199132, 0.232476349208523, 0.263790577219152, 
0.108924993390151, 0.552044927156214, 0.14942611850254, 0.102823738401866, 
0.130902414601717, 0.123696799895897, 0.214270739393065, 0.259129290426641, 
0.219092993255652)), row.names = c(NA, -18L), class = c("tbl_df", 
"tbl", "data.frame"))


ggplot()+
  geom_col(data = test,
           aes(x = pct_team_ep, y = reorder_within(ep_type, player_name, pct_team_ep), fill = posteam),
           show.legend = FALSE, position = "identity")+
  facet_grid(ep_type ~ posteam, scales = "free")+
  theme(axis.text.y = element_blank())

當我運行代碼時，我也會收到這個錯誤，我認為這與 plot 的reorder_within()部分有關。

關於如何解決這個問題的任何建議？

Answer 1

我不確定使用ep_type ~ posteam時是否可以。 你可以做的是使用ep_type~. 這將刪除空欄，但僅不顯示“postteam”的標題，因此您可以為它添加一個圖例，如下所示：

library(ggplot2)
library(tidytext)
ggplot()+
  geom_col(data = test,
           aes(x = pct_team_ep, y = reorder_within(ep_type, player_name, pct_team_ep), fill = posteam),
           show.legend = TRUE, position = "identity")+
  facet_grid(ep_type ~ ., scales = "free", space = "free", drop = TRUE)+
  theme(axis.text.y = element_blank()) 

^{由代表 package (v2.0.1) 於 2022 年 8 月 16 日創建}