在Deducer包的对话框中输入一个函数

Question

我想知道如何输入以下功能，这是一个非常有用的功能，用于将R（get_tails函数）下ggplot2中的箱形图的胡须的末端标记到Deducer包的对话框中。提示，对话框在几何元素下 - 点 - 例如x = drv y = hwy（为了再现性），摘要，选项更改为自定义，在那里你会找到一个对话框来输入一个函数

#Load the library
library(ggplot2)
library(Deducer)

data(mpg)

#Create a function to calculate the points

#a built-in function that does this

get_tails = function(x) {
    q1 = quantile(x)[2]
    q3 = quantile(x)[4]
    iqr = q3 -q1
    upper = q3+1.5*iqr
    lower = q1-1.5*iqr

    #Trim upper and lower
    up = max(x[x < upper])
    lo = min(x[x > lower])
    return(c(lo, up)
}

library(ggplot2)
ggplot(mpg, aes(x=drv,y=hwy)) + geom_boxplot( width=0.5) + 
    stat_summary(geom="point", fun.y= get_tails, pch=4, size=3, colour="red")

这将给出这个结果（这只是mpg数据集的一个可重现的例子）：

！[两个胡须末端带有'x'标记的箱形图] [1]

请问如何在Deducer包中输入这么好的功能。提前谢谢。