位置减淡用于es填充和位置叠加用于es颜色

Question

我想用条形图绘制此数据框：

df <- data.frame(x = rep(c("x1", "x2"), each = 4L), 
                 f = rep(c("f1", "f2"), each = 2L, times = 2L),
                 c = rep(c("c1", "c2"), 4L),
                 y = c(rbind(seq(0.1, 0.4, by = 0.1), 1 - seq(0.1, 0.4, by = 0.1))))

当颜色值不同时，我想避开条形以获取不同的填充值，但还要将它们堆叠以保留相同的填充值。

library(ggplot2)
ggplot(df, aes(x = x, 
               y = y, 
               fill = f, 
               color = c)) + 
  geom_col(position = "dodge")

因此，在这种情况下，所有条形图都将堆叠为1，并带有明显的“颜色”。

您对我如何实现这一目标有任何想法吗？我想避免刻面。

谢谢！