在 R 统计中的 ggplot2 中的每个箱线图中标记两个胡须的末端

Question

我的问题如下：在 R 包中 ggplot2 - boxplots - 如何标记胡须末端的两个点（上部和下部），例如用“x”标记，最后得到一个箱线图并且在晶须的最上端有两个额外的“x”标记，另一个将在下晶须的最下端。

我在互联网上搜索了很多答案，但找不到。我只能通过使用 stat_summary 和使用平均函数数据在箱线图上添加“x”标记。

另外两点怎么做？

要在同一页面上，请使用 R 的mtcars 数据库并将mpg 的boxplot 作为y 轴，将cyl 作为x 轴。根据数据框mtcars，Yu 最终会得到 3 个箱线图。

根据 R

The upper end defined as Q3+1.5*IQR
The lower end defined as Q1-1.5*IQR
Note: IQR = Q3 - Q1

Answer 1

您只需要使用stat_summary 计算箱线图的端点并将它们相加。例如

##Load the library
library(ggplot2)
data(mpg)

##Create a function to calculate the points
##Probably 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
  if(length(x) == 1){return(x)} # will deal with abnormal marks at the periphery of the plot if there is one value only
  ##Trim upper and lower
  up = max(x[x < upper])
  lo = min(x[x > lower])
  return(c(lo, up))
}

使用stat_summary 将其添加到您的情节中：

ggplot(mpg, aes(x=drv,y=hwy)) + geom_boxplot() + 
  stat_summary(geom="point", fun.y= get_tails, colour="Red")

另外，您对端点的定义并不完全正确。有关更多详细信息，请参阅我的 answer 到另一个问题。