r - 在 ggplot2 中正确使用 fun.data 和 stat_summary？

Question

来自 ?stat_summary。

fun.data : Complete summary function. Should take data frame as input and return data frame as output

我很难理解这一点。好像不是我的汇总函数 so.summary正在传递一个数据帧!

代码:

set.seed(0)
so.example <- data.frame(
  sampleID=rep(1:15)
  , sales=runif(15, 0, 1)*1000
  , revenue=runif(15, 0, 1)*10000
)

so.summary <- function(z) {
  print(z)
  data.frame(sales=median(z$sales), revenue=median(z$revenue))
}

ggplot(
  so.example
  , aes(x=sales, y=revenue)
  ) + geom_point() + stat_summary(fun.data=so.summary, geom='point', color='red')

输出:

[1] 2672.207
Error in z$sales : $ operator is invalid for atomic vectors

Answer 1

fun.data总结 y在每个 x .它采用 y 的向量值作为输入。

一个用例是将不同的汇总统计映射到不同的美学:

set.seed(0)
week <- floor(runif(30, 1, 5))
sales <- week * runif(30, 0, 1)*10000
so.example <- data.frame(week=week, sales=sales)

so.summary <- function(y) {
  return(data.frame(y=median(y), size=length(y), alpha=sd(y)/10000))
}

ggplot(
  so.example
  , aes(x=week, y=sales)
) + geom_point() + stat_summary(fun.data=so.summary, geom='point', colour='red')