r - 使用数据中提供的 alpha 值

Question

我想使用 alpha 级别的显式值。

head(D)

    x  y group  alpha
  1 1 18     A   0.40   <~~~~
  2 2 18     A   0.44
  3 3 18     A   0.47
  4 1 18     A   0.51
  5 2 21     B   0.55
  6 3 21     B   0.58
  ...

但是， ggplot 正在缩放 alpha 级别。我可以使用 scale_alpha_continuous(range = range(D$alpha)) 覆盖它，但这在以编程方式创建图形时会变得很麻烦。
有没有直接的方法告诉 ggplot 不要缩放 alpha？ (而不是告诉它缩放到什么范围)

可重现的例子

library(ggplot)
library(gridExtra)
(D <- data.frame(x=rep(1:3, 4), y=rep((6:8)*3, each=4), group=rep(c("A","B", "C"), each=4),  alpha=round(seq(.4, .8, length.out=12), 2)))

P <- ggplot(data=D, aes(x=x, y=y, alpha=alpha)) + geom_bar(stat="identity", fill="blue") + theme(legend.position="bottom") + facet_grid(group ~. )

### Adding  scale_alpha_continuous
P.manually_scaled <- P + scale_alpha_continuous(range=range(D$alpha))

grid.arrange( P + ggtitle("INCORRECT")
             , P.manually_scaled + ggtitle("CORRECT")
             , ncol=2)

Answer 1

如果您有实际的 alpha、颜色、...、值，那么您应该使用 ..identity()秤。这会告诉 ggplot()分配 alpha 值，因为它们在您的数据框中，而不是缩放它们。

ggplot(data=D, aes(x=x, y=y, alpha=alpha)) + 
         geom_bar(stat="identity", fill="blue") + 
         facet_grid(group ~. ) +
         scale_alpha_identity()