r - 凡例に stat_summary の結果を含める

Question

私は次のプロットを持っていますが、プロットのどこかに入れたいと思います - できれば凡例に、平均、std.dev、尖度などの記述統計を含めます.??

Answer 1

annotateと を使用して、次のようにすることができますcapture.output。

library(ggplot2)
data("iris")
m <- loess(Petal.Length ~ Sepal.Length, data = iris)
out <- capture.output(print(summary(m)))
out2 <- paste0(out[-1], "", collapse = "\n")

ggplot(iris, aes(Sepal.Length, Petal.Length)) +
  geom_point() +
  geom_smooth() + 
  annotate("text", label = out2, x = 4, y = 5, size = 6, hjust = 0)

以下の結果をご覧ください。