Dear community
I tried to run my ggplot() +geom_boxplot() code using nocht=TRUE, but probably
my term noch=TRUE is at the wrong position?
Error:
Error in `geom_boxplot()`:
! Problem while converting geom to grob.
ℹ Error occurred in the 1st layer.
Caused by error in `ans[ypos] <- rep(yes, length.out = len)[ypos]`:
! replacement has length zero
Run `rlang::last_trace()` to see where the error occurred.
Warning message:
In rep(yes, length.out = len) : 'x' is NULL so the result will be NULL
> rlang::last_trace()
<error/rlang_error>
Error in `geom_boxplot()`:
! Problem while converting geom to grob.
ℹ Error occurred in the 1st layer.
Caused by error in `ans[ypos] <- rep(yes, length.out = len)[ypos]`:
! replacement has length zero
---
Backtrace:
▆
1. ├─base (local) `<fn>`(x)
2. └─ggplot2:::print.ggplot(x)
3. ├─ggplot2::ggplot_gtable(data)
4. └─ggplot2:::ggplot_gtable.ggplot_built(data)
5. └─ggplot2:::by_layer(...)
6. ├─rlang::try_fetch(...)
7. │ ├─base::tryCatch(...)
8. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers)
9. │ │ └─base (local) tryCatchOne(expr, names, parentenv,
handlers[[1L]])
10. │ │ └─base (local) doTryCatch(return(expr), name, parentenv,
handler)
11. │ └─base::withCallingHandlers(...)
12. └─ggplot2 (local) f(l = layers[[i]], d = data[[i]])
13. └─l$draw_geom(d, layout)
14. └─ggplot2 (local) draw_geom(..., self = self)
15. └─self$geom$draw_layer(...)
16. └─ggplot2 (local) draw_layer(..., self = self)
17. └─base::lapply(...)
18. └─ggplot2 (local) FUN(X[[i]], ...)
19. ├─rlang::inject(self$draw_panel(data, panel_params,
coord, !!!params))
20. └─self$draw_panel(...)
21. └─ggplot2 (local) draw_panel(..., self = self)
22. └─base::lapply(...)
23. └─ggplot2 (local) FUN(X[[i]], ...)
24. └─self$draw_group(group, panel_params, coord,
...)
25. └─ggplot2 (local) draw_group(..., self = self)
26. ├─ggplot2:::data_frame0(...)
27. │ └─vctrs::data_frame(..., .name_repair =
"minimal")
28. │ └─rlang::list2(...)
29. └─base::ifelse(notch, data$notchlower, NA)
Run rlang::last_trace(drop = FALSE) to see 5 hidden frames.
Code:
MS1<- MS %>% filter(QI_A!="NA") %>% droplevels()
MS1$Jahr<-as.factor(MS1$Jahr)
MS1s <- MS1 %>%
group_by(MS1$Jahr, MS1$Bio) %>%
summarise(
y0 = quantile(QI_A, 0.05),
y25 = quantile(QI_A, 0.25),
y50 = mean(QI_A),
y75 = quantile(QI_A, 0.75),
y100 = quantile(QI_A, 0.95))
MS1s
colnames(MS1s)[1]<-"Jahr"
colnames(MS1s)[2]<-"Bio"
MS1s
p1<-ggplot(MS1s, aes(Jahr, fill = as.factor(Bio))) +
geom_boxplot(
aes(ymin = y0, lower = y25, middle = y50, upper = y75, ymax = y100),
stat = "identity", notch=TRUE
) +
theme(panel.background = element_blank())+
theme(axis.line = element_line(colour = "black"))+
theme(axis.text=element_text(size=18))+
theme(axis.title=element_text(size=20))+
ylab("Anteil BFF an LN [%]") +xlab("Jahr")+
scale_color_manual(values=c("red","darkgreen"), labels=c("ÖLN", "BIO"))+
scale_fill_manual(values=c("red","darkgreen"), labels= c("ÖLN", "BIO"))+
theme(legend.title = element_blank())+
theme(legend.text=element_text(size=20))
p1<-p1 + expand_limits(y=c(0, 80))
p1
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
