1

我想使用fun.dataggplot2 中的选项。我要做的是一个图表，显示在调查问题中选择超过 4 分的人的百分比（加权）。

如果我想做同样的图形但不加重人的重量，我会这样做：

ggplot(database, aes(x,y)) + 
  geom_point(stat='summary', fun.y=function1)

在哪里：

function1 <- function(x){
  value=sum(x>=4)/sum(x)
  names(value)='y'
  value
}

但是对于称重的情况，我该怎么做呢？我尝试了这个选项，但没有奏效：

ggplot(database, aes(x,y)) + 
  geom_point(stat='summary', fun.data=function2)

在哪里：

function2 <- function(base){
  value=sum((x>=4)*base$weight)/sum(base$weight)
  result=c(value, value, value)
  names(result)=c('y','ymax', 'ymin')
  result
}

但是，它不识别base$weight. 为什么？

4

0 回答 0