在ggplot中使用geom_violin进行对数刻度图的问题

Question

我在为数据集绘制小提琴图时遇到问题。我已经为此目的使用了ggplot2。小提琴图本身看起来还不错，但是每个豆的平均值始终位于它们实际应出现的位置下方。所有数据点都是0-1范围内的数字。

这是R中的可复制代码：

df = data.frame(x = rep(1, 100), y = runif(100, min=0, max=1))

d <- ggplot(df, aes(x,y)) + 
  geom_violin()
d +
  stat_summary(fun.y=mean, geom="point", shape=23, size=2) + 
  scale_y_continuous(breaks = seq(0,1,0.1), trans = "log10")

如果查看该图，将会看到平均值标记为〜0.4，而实际平均值为0.49。