gpt4 book ai didi

r - 如何编写一个函数来创建用于 ggplot2 的自定义误差线?

转载 作者:行者123 更新时间:2023-12-04 10:45:31 25 4
gpt4 key购买 nike

Ggplot2 允许在绘图中添加误差线。为了为您计算误差线限制,它包装了 Hmisc 中的函数。例如,可以使用 mean_cl_boot 选项进行引导:

m <- ggplot(mtcars, aes(x=cyl, y=am)) + stat_summary(fun.y=mean,geom="point")
m2 <- m + stat_summary(fun.data = "mean_cl_boot", geom = "errorbar", conf.int=.95)
m2

但是,如果您需要编写自定义函数来计算误差线限制,该怎么办?应该如何编写函数以从 stat_summary 调用中调用?

最佳答案

这是一个使用来自 PropCIs 的 add4ci 函数提供置信区间的示例。你只需要让函数返回一个名为“y”、“ymin”和“ymax”的数字列表:

library(PropCIs)
add4ciForGgplot <- function(x,conf.int) {
numCorrect <- sum(x)
numTrials <- length(x)
CI <- add4ci(numCorrect,numTrials,conf.int)
triplet <- data.frame(numCorrect/numTrials, CI$conf.int[1], CI$conf.int[2])
names(triplet) <- c("y","ymin","ymax") #this is what ggplot is expecting
return (triplet)
}

m <- ggplot(mtcars, aes(x=cyl, y=am)) + stat_summary(fun.y=mean,geom="point")
mCustom <- m + stat_summary(fun.data = "add4ciForGgplot", geom = "errorbar", conf.int=.95)
mCustom

关于r - 如何编写一个函数来创建用于 ggplot2 的自定义误差线?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/6717675/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com