Backtrace: ▆ 1. ├─base (local) `<fn>`(x) 2. └─ggplot2:::print.ggplot(x) 3. ├─ggplot2::ggplot_build(x) 4. └─ggplot2:::ggplot_build.ggplot(x) 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$compute_aesthetics(d, plot) 14. └─ggplot2 (local) compute_aesthetics(..., self = self) 15. └─ggplot2:::scales_add_defaults(...) 16. └─base::lapply(aesthetics[new_aesthetics], eval_tidy, data = data) 17. └─rlang (local) FUN(X[[i]], ...) Run rlang::last_trace(drop = FALSE) to see 5 hidden frames. >

这是R语言中的错误信息，其中包含了函数调用的堆栈（backtrace），可以帮助我们定位代码中的错误。根据堆栈信息，可以看到错误发生在第13行，即调用了compute_aesthetics()函数，并且该函数的一个参数data中可能包含了不存在的变量。可以使用rlang::last_trace()函数来查看具体的错误位置和原因，然后修复代码中的错误即可。提示：在使用last_trace()函数时，可以加上参数drop=FALSE，这样会显示所有的堆栈信息。

相关问题

Backtrace: ▆ 1. └─cowplot::plot_grid(plotlist = plotlist, ncol = 1) 2. └─cowplot::align_plots(...) 3. └─base::lapply(...) 4. └─cowplot (local) FUN(X[[i]], ...) 5. ├─cowplot::as_gtable(x) 6. └─cowplot:::as_gtable.default(x) 7. ├─cowplot::as_grob(plot) 8. └─cowplot:::as_grob.ggplot(plot) 9. └─ggplot2::ggplotGrob(plot) 10. ├─ggplot2::ggplot_gtable(ggplot_build(x)) 11. │ └─ggplot2:::attach_plot_env(data$plot$plot_env) 12. │ └─base::options(ggplot2_plot_env = env) 13. ├─ggplot2::ggplot_build(x) 14. └─ggplot2:::ggplot_build.ggplot(x) 15. └─ggplot2:::by_layer(...) 16. ├─rlang::try_fetch(...) 17. │ ├─base::tryCatch(...) 18. │ │ └─base (local) tryCatchList(expr, classes, parentenv, handlers) 19. │ │ └─base (local) tryCatchOne(expr, names, parentenv, handlers[[1L]]) 20. │ │ └─base (local) doTryCatch(return(expr), name, parentenv, handler) 21. │ └─base::withCallingHandlers(...) 22. └─ggplot2 (local) f(l = layers[[i]], d = data[[i]]) 23. └─l$compute_aesthetics(d, plot) 24. └─ggplot2 (local) compute_aesthetics(..., self = self) 25. └─base::lapply(aesthetics, eval_tidy, data = data, env = env) 26. └─rlang (local) FUN(X[[i]], ...)

根据你提供的 `Backtrace` 信息，可以看出问题出在 `cowplot::plot_grid()` 函数中，具体是在运行 `cowplot::align_plots()` 函数时出现了问题。在 `align_plots()` 函数中，使用 `lapply()` 函数对 `plotlist` 中的每个元素应用了一个函数，但是这个函数中可能出现了一些错误。你需要检查一下自己的代码中是否有对 `plotlist` 进行了修改或者处理，导致其中的元素出现了错误，或者尝试使用 `rlang::last_trace()` 命令来查看更详细的错误信息，以便更好地定位问题所在。

Error in `mutate()`: ℹ In argument: `colour = case_when(...)`. Caused by error in `case_when()`: ! could not find function "case_when" --- Backtrace: ▆ 1. ├─pca.result %>% ... 2. ├─dplyr::mutate(...) 3. └─dplyr:::mutate.data.frame(...) 4. └─dplyr:::mutate_cols(.data, dplyr_quosures(...), by) 5. ├─base::withCallingHandlers(...) 6. └─dplyr:::mutate_col(dots[[i]], data, mask, new_columns) 7. └─mask$eval_all_mutate(quo) 8. └─dplyr (local) eval() Run rlang::last_trace(drop = FALSE) to see 3 hidden frames.

这是一个R语言的错误提示，提示在mutate()函数中传递给color参数的case_when()函数出现了问题。错误可能是由于R包版本不兼容或语法错误引起的。您可以使用rlang::last_trace(drop = FALSE)函数查看错误的详细信息，以确定问题的确切原因。其中的Backtrace信息可以展示函数的调用过程，可能有助于查找问题所在。