跨面面板以相同的 x 值更改直方图箱的 alpha？

Question

我展示了不同类型数据集中每个位置的变体数量：实验数据、自然数据和菌落形态数据。我想让分面内不在同一位置的箱子半透明，alpha = .5，并且在分面之间位置相同的箱子具有完整的 alpha = 1。每个 bin 代表一个位置。因此，如果在实验、自然和菌落形态类型中的位置 40200 处有一个 bin，我希望该条的 alpha 为 1，而所有其他条的 alpha 为 .5.

这是我的代码：

ggplot(dps_plot, aes(position, fill= variant)) + geom_histogram(position = "stack", binwidth= 10) + theme_bw()+ facet_wrap(~type, dir = "v") + ggtitle("dps biofilm") + theme_bw() + theme(text=element_text(size=20)) + ylim(0, 4)

我试过了

ggplot(dps_plot, aes(position, fill= variant)) + geom_histogram(position = "stack", binwidth= 100, alpha = ifelse(length(unique(position)) > 1, 1, 0.5)) + theme_bw()+ facet_wrap(~type, dir = "v") + ggtitle("fas biofilm") + theme_bw() + theme(text=element_text(size=20)) + ylim(0, 15)

但是根本不管用