gpt4 book ai didi

r - 使用 ggplot_build () 手动设置后,如何在 ggplot 箱形图中自定义凹口?

转载 作者:行者123 更新时间:2023-12-01 22:29:12 26 4
gpt4 key购买 nike

我有一个与 this one 相关的问题关于如何在 ggplot boxplot 中自定义凹口。问题的作者回复了自己,并用 ggplot_build() 给出了提示,但不幸的是我无法使用它。

所以我的问题是:一旦您使用ggplot_build()手动设置了凹口限制,如何重用它来自定义自己的箱形图?

这是我的数据

vib = c(3.94,-0.61,0.03,0.46)
pla = c(0.784444444, 1.11,-1.98,-1.39)

df = data.frame(value = c(vib, pla),
group = c(rep("vibration", times = 4), rep("placebo", times = 4)))

p <- ggplot(df, aes(x = group, y = value)) + geom_boxplot(notch=TRUE)

gg <- ggplot_build(p)

gg$data[[1]]$notchlower[1]<-sort(vib)[qbinom(c(.25, .975), length(vib), .5)][1]
gg$data[[1]]$notchlower[2]<-sort(pla)[qbinom(c(.25, .975), length(pla), .5)][1]

gg$data[[1]]$notchupper[1]<-sort(vib)[qbinom(c(.25, .975), length(vib), .5)][2]
gg$data[[1]]$notchupper[2]<-sort(pla)[qbinom(c(.25, .975), length(pla), .5)][2]

gg$data[[1]]

ggplot(gg$data[[1]], aes(x = x)) +
geom_boxplot(aes(ymin = ymin, lower = lower, middle = middle, upper = upper, ymax = ymax),
stat = "identity",
notch = TRUE)

以及由此产生的警告消息

Error in ifelse(notch, data$notchlower, NA) : replacement has length zero
In addition: Warning message:
In rep(yes, length.out = length(ans)) :
'x' is NULL so the result will be NULL

我做错了什么?非常感谢

最佳答案

使用ggplot_gtable反转操作,而不是再次将其输入ggplot:

gg$data[[1]]$notchlower[1:2]<- c(-1,0)
gg$data[[1]]$notchupper[1:2]<- c(0.5, 1)

plot(ggplot_gtable(gg))

enter image description here

关于r - 使用 ggplot_build () 手动设置后,如何在 ggplot 箱形图中自定义凹口?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/43388034/

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