r - ggtern 与 ggsave 或 ggpubr 不兼容

Question

每当我尝试将 ggtern 对象与 ggplot2:ggsave 或 ggarrange 一起使用时，都会收到此错误消息。我正在尝试将 ggtern 图与 ggpplot 结合起来。

library(ggtern)


DATA <- data.frame(A = runif(100), B = runif(100), C = runif(100))
plot <- ggtern(data = DATA, 
               mapping = aes(x = A, y = B, z = C)) + 
        geom_point() + ggtern::theme_bw(base_size = 30) + theme_arrowlarge()
plot

ggplot2::ggsave(plot,file=paste0('ternary plot','.png'),width=30,height=25,units='cm',dpi=600)

错误：CoordTern 需要以下缺失的美学（tlr->xy）：z

ggpubr::ggarrange(plot)

错误：CoordTern 需要以下缺失的美学（tlr->xy）：z

为什么会出现这些错误消息以及如何解决？