grid.arrange要顯示多個面_包裹圖-如何使面板寬度一致？

Question 1

我有一些數據被分為25個類別和6個父組，每個父組的類別數量不均勻（3到5）。對于每個父組，我使用facet_wrap根據類別創建單獨的面板，然后使用grid.arrange將父組圖顯示在一起。問題在于，由于每個父組中的類別數量不同，打印寬度會自動調整大小。是否有辦法手動設置打印寬度或創建空面板，以便寬度一致？

這里有簡單的娛樂活動：

library(dplyr)
library(gridExtra)

x <- c(1, 2, 3, 4, 1, 2)
y <- c(3, 3, 3, 3, 3, 3)
category <- c("category a", "category b", "category c", "category d", "category e", "category f")
group <- c("group one", "group one", "group one", "group one", "group two", "group two")
df <- data.frame(x, y, category, group)

group_one <- df %>% filter(group=="group one")
g1 <- ggplot(group_one, aes(x=x, y=y)) +
  geom_point() +
  facet_wrap(~category, nrow=1) +
  labs(title="Group One")

group_two <- df %>% filter(group=="group two")
g2 <- ggplot(group_two, aes(x=x, y=y)) +
  geom_point() +
  facet_wrap(~category, nrow=1) +
  labs(title="Group Two")

grid.arrange(g1, g2)

下面是上面代碼產生的結果-注意面板寬度不均勻。如何使兩組面板的寬度與第一組面板的寬度相同，且右側有空白？

如果有一個更簡單的方法來創建這種類型的情節安排與子目根據組，我很樂意聽到它！謝謝

Question 2

一種選擇是利用patchwork包。在您的示例代碼中，您可以

library(patchwork)

g1 / (g2 + plot_spacer())

作為一種更具普遍性的方法，您可以

把你的情節列在一個列表里
制作一個包含每組類別數的向量
在繪圖列表上循環，為每個繪圖添加一個間隔，并使用plot_layout設置每個子繪圖和間隔的寬度，以便面板對齊。

為了使示例更有趣，我添加了第三組：

library(dplyr)
library(ggplot2)
library(forcats)
library(stringr)

x <- c(1, 2, 3, 4, 1, 2, 1:3)
y <- c(3, 3, 3, 3, 3, 3, 1:3)
category <- c("category a", "category b", "category c", "category d", "category e", "category f", "category d", "category e", "category f")
group <- c("group one", "group one", "group one", "group one", "group two", "group two", "group three", "group three", "group three")
df <- data.frame(x, y, category, group)

p <- df %>% 
  # Set order of group
  mutate(group = forcats::fct_inorder(group)) %>% 
  split(.$group) %>% 
  purrr::imap(function(.data, .title) {
    ggplot(.data, aes(x=x, y=y)) +
      geom_point() +
      facet_wrap(~category, nrow=1) +
      labs(title = stringr::str_to_title(.title))  
  })

# Make a vector containing number of categories per group
ncat <- df %>% 
  group_by(group) %>% 
  summarise(n = n_distinct(category)) %>% 
  tibble::deframe()
ncat_max <- max(ncat)

library(patchwork)

p <- purrr::imap(p, function(x, y) {
  ncat <- ncat[[y]]
  n_spacer <- ncat_max - ncat
  # Add spacer to each plot and set widths
  x + plot_spacer() + plot_layout(ncol = 2, widths = c(ncat, n_spacer))
})

wrap_plots(p, nrow = length(p))

Answer 1

一種選擇是利用patchwork包。在您的示例代碼中，您可以

library(patchwork)

g1 / (g2 + plot_spacer())

作為一種更具普遍性的方法，您可以

把你的情節列在一個列表里
制作一個包含每組類別數的向量
在繪圖列表上循環，為每個繪圖添加一個間隔，并使用plot_layout設置每個子繪圖和間隔的寬度，以便面板對齊。

為了使示例更有趣，我添加了第三組：

library(dplyr)
library(ggplot2)
library(forcats)
library(stringr)

x <- c(1, 2, 3, 4, 1, 2, 1:3)
y <- c(3, 3, 3, 3, 3, 3, 1:3)
category <- c("category a", "category b", "category c", "category d", "category e", "category f", "category d", "category e", "category f")
group <- c("group one", "group one", "group one", "group one", "group two", "group two", "group three", "group three", "group three")
df <- data.frame(x, y, category, group)

p <- df %>% 
  # Set order of group
  mutate(group = forcats::fct_inorder(group)) %>% 
  split(.$group) %>% 
  purrr::imap(function(.data, .title) {
    ggplot(.data, aes(x=x, y=y)) +
      geom_point() +
      facet_wrap(~category, nrow=1) +
      labs(title = stringr::str_to_title(.title))  
  })

# Make a vector containing number of categories per group
ncat <- df %>% 
  group_by(group) %>% 
  summarise(n = n_distinct(category)) %>% 
  tibble::deframe()
ncat_max <- max(ncat)

library(patchwork)

p <- purrr::imap(p, function(x, y) {
  ncat <- ncat[[y]]
  n_spacer <- ncat_max - ncat
  # Add spacer to each plot and set widths
  x + plot_spacer() + plot_layout(ncol = 2, widths = c(ncat, n_spacer))
})

wrap_plots(p, nrow = length(p))

grid.arrange要顯示多個面_包裹圖-如何使面板寬度一致？

熱門問答

如何直接用某個key的值更新pg的json數組數據？

如何為同一個組件Reactjs使用不同的動態段塞url？

“索引”8“超出了堆棧重載數組的有效范圍“0到1”。我該怎么解決這個問題？對不起，我是初學者

嘗試將xplot ticks更改為每12小時一次

在視圖之間傳遞實體時出現問題（CoreData）

什么是空的！在C#中？

如何在C#項目中集成XNA 4.0并開始游戲開發

使用Python和ReportLab庫，如何將圖片插入到PDF文件中

mysql錯誤initialize specified but the data

在C++項目中使用依賴注入設計模式有什么好處

Unable to find the wrapper "chrome-extension"

屬性 'content' 綁定到標簽 'InputItem'失敗