`空格=”；免费的不消除ggplot方面的死区 库（tidyverse） 图书馆（比例尺） dat% 聚集（key=“variable”，value=“value”）%%>% 变异（ind=as.factor（rep（1:5,3））） ggplot（dat，aes（变量，值，填充=ind））+ 几何图形栏（position=“fill”，stat=“identity”）+ 连续缩放（标签=缩放：：百分比格式（））+ 平面网格（~variable，space=“free”）+ 主题（axis.title.x=element_blank（）， axis.text.x=元素_blank（）， axis.ticks.x=元素_blank（）

我希望

facet\u grid（）

中的

space=“free”

参数能够消除下面每个facet中的死空间。例如，方面“A”不应显示存在空“B”和空“C”列的空间

如何从三个方面消除这个死角？我只希望每个facet显示一列，facet中的另外两个空白列不应被伪打印

---

我认为您只需要

scales=“free”

，就像

facet\u网格（~variable，scales=“free”）

中一样，给出

我相信这是因为：

空间-如果默认为“固定”，则所有面板的大小都相同。如果 “自由y”其高度将与y的长度成比例 规模如果“free_x”，则其宽度将与 x标度；或者，如果“自由”，高度和宽度都会变化这个 除非适当的刻度也发生变化，否则设置无效。

因此，

scales=“free”

对于

space

产生效果是必要的，但仅凭scales一项，我们就已经实现了这种情况下所需的功能

library(tidyverse)
library(scales)
dat <- read.table(text = "A B C
                          1   23  234 324
                          2   34  534 12
                          3   56  324 124
                          4   34  234 124
                          5   123 534 654",
                  sep = "", 
                  header = TRUE) %>% 
  gather(key = "variable", value = "value") %>% 
  mutate(ind = as.factor(rep(1:5, 3)))

ggplot(dat, aes(variable, value, fill = ind)) + 
  geom_bar(position = "fill", stat = "identity") +
  scale_y_continuous(labels = scales::percent_format()) + 
  facet_grid(~variable, space = "free") + 
  theme(axis.title.x = element_blank(),
        axis.text.x = element_blank(),
        axis.ticks.x = element_blank())