框图到R中的错误图转换

Question

我们如何转换从

生成的箱形图

# Boxplot of MPG by Car Cylinders 
boxplot(mpg~cyl,data=mtcars, main="Car Milage Data", 
    xlab="Number of Cylinders", ylab="Miles Per Gallon")

以最小的努力

到错误图（第25和第75个分位数）？

Answer 1

@Keniajin的链接让你走在正确的轨道上，但你需要分位数的功能。这是一个ggplot解决方案：

require(ggplot2)

首先，我们创建函数来计算分位数25 en 75

Q25 <- function(x) {quantile(x, .25)}
Q75 <- function(x) {quantile(x, .75)}

然后我们使用stat_summary和这些函数制作绘图。请注意，如果您愿意，可以使用stderr的中位数，最小值，最大值替换该函数。

ggplot(data=mtcars, aes(x=cyl,y=mpg)) +
  stat_summary(fun.y=mean,fun.ymin=Q25, fun.ymax=Q75) +
  ggtitle("Car Milage Data") +
  xlab("Number of Cylinders") +
  ylab("Miles Per Gallon")