R ggplot stat_summary一貫性のない結果

Question

ggplotを使用してmtcarデータフレームに平均mpgをプロットします。 と変数で分類された平均値を表す各シリンダクラスのいくつかの点が得られます。

library(ggplot2) 
ggplot(mtcars, aes(cyl, mpg)) + geom_point(aes(color = factor(vs)), stat = "summary", fun.y = "mean") 

私は（下）+ geom_pointを追加することにより、生データの上にこれらの平均をオーバーレイした場合の平均値は、彼らが最初に上記したものとは異なります。私は間違って何をしていますか？なぜ手段が一貫していないのですか？

ggplot(mtcars, aes(cyl, mpg)) + geom_point() + geom_point(aes(color = factor(vs)), stat = "summary", fun.y = "mean") 

Answer 1

どのように恥ずかしい。私はY軸のスケールを見ていませんでした。ありがとうございました。 stat_summaryに矛盾はありません。