facet_wrap 条形图上的条形宽度相等

我有一个如下所示的数据框：

category = c(rep("house", 2), rep("apartment", 4), rep("condo", 3))
sample = paste("ID", seq(1:9), sep='')
group = c(rep(1,9), rep(2,9))
value = c(0.990000, 0.608143, 0.451284, 0.500343, 0.482670, 0.358965, 0.393272, 0.300472, 0.334363, 0.001000, 0.391857, 0.548716, 0.499657, 0.517330, 0.641035, 0.606728, 0.699528, 0.665637)
data = as.data.frame(cbind(category, sample, group, value))

我想使用变量“类别”来facet_wrap堆积条形图，如下所示：

ggplot(data, aes(x=sample, y=value, fill=group)) + 
  geom_bar(stat="identity", width=1) +
  facet_wrap(facet ~ ., scales="free_x")

每个类别中的样本数量不均匀，但 ggplot 自动使每个条形图具有相同的宽度，这意味着图上的条形图的宽度不同，如下所示：

有没有办法强制 ggplot 使条形图保持相同的宽度，以便每个条形图的整体宽度在各个图中都不同？

感谢您的任何提示！

Try facet_grid

ggplot(data, aes(x = sample, y = value, fill = group)) + 
    geom_bar(stat = "identity", width = 1, col = "black") +
    facet_grid(. ~ category, scales = "free", space = "free")