r - 来自 ggpol 的 facet_share 创建了太大的边距

Question

我使用facet_share. 使用函数示例很容易重现它们，只需对示例稍作修改。

library(ggplot2)
library(ggpol)
df <- data.frame(age = sample(1:20, 1000, replace = TRUE), 
                 gender = c("M","F"), levels = c("M", "F"))

# Get the count per age and sex
df$count <- 1
df$age = paste(df$age, "some long string that is too long") # Added long labels
df <- aggregate(count ~ gender + age, data = df, length)

# For the horizontally shared axis, if we want to mirror the axes,
# we have to multiply the first panel by -1, and use coord_flip().
df_h <- df 
df_h$count = ifelse(df_h$gender == "F", df_h$count * -1, df_h$count)

p <- ggplot(df_h, aes(x = factor(age), y = count, fill = gender)) + 
  geom_bar(stat = "identity") +
  facet_share(~gender, dir = "h", scales = "free", reverse_num = TRUE) + 
  coord_flip() +
  labs(x = "Age", y = "Count") + 
  theme(legend.position = "bottom")

p

产生：

特别关注左边距，它的大小似乎与标签文本的大小成比例。

我的实际标签要大得多，使边距更加荒谬。

有人有解决办法吗？

标签： rggplot2

Answer 1

最简单的方法是创建更有意义和简洁的标签......其他选项包括

• 使用一些更基本的 ggplot 方法重新创建 facet_share 外观。
• changeggpol::facet_share的行为并绘制类似“NULL”而不是 NA 的东西。
• 或者这里是减少 ggplotGrob 对象中列宽的解决方案：

library(ggplot2)
library(ggpol)
library(gtable)
library(grid)

p <- 
ggplot(df_h, aes(x = factor(age), y = count, fill = gender)) + 
  geom_col() +
  coord_flip()+
  facet_share(~ gender, dir = "h", scales = "free", reverse_num = TRUE) +
  labs(x = "Age", y = "Count") + 
  theme(legend.position = "bottom")

gp <- ggplotGrob(p)

#gp$layout #helps you to understand the gtable object 
#gtable_show_layout(gp) #helps you to understand the gtable object 
gp$widths[4] <- unit(0, 'cm') # you can modify this to your liking

grid.newpage()
grid.draw(gp)

^{由reprex 包（v0.3.0）于 2020 年 3 月 6 日创建}