R ggplot stat_summaryを使用してメジアンと四分位をプロットするには？

Question

この統計サマリープロットの下限と上限を25％四分位と75％四分位に変更する方法はありますか？

ggplot(data = diamonds) + stat_summary(
mapping = aes(x = cut, y = depth), 
fun.ymin = min, 
fun.ymax = max, 
fun.y = median 

）

Answer 1

ggplot(data = diamonds) + stat_summary(
    mapping = aes(x = cut, y = depth), 
    fun.ymin = function(z) { quantile(z,0.25) }, 
    fun.ymax = function(z) { quantile(z,0.75) }, 
    fun.y = median) 

Answer 2

Rewritting G5Wの溶液、STAT関数の代わりにGEOM関数を使用：

ggplot(data = diamonds) + 
    geom_pointrange(mapping = aes(x = cut, y = depth), 
        stat = "summary", 
        fun.ymin = function(z) {quantile(z,0.25)}, 
        fun.ymax = function(z) {quantile(z,0.75)}, 
        fun.y = median)