ggtern 的三元图在 shiny 中不起作用

Question

我想在闪亮的应用程序中使用 ggtern() 的输出。然而，由于某些限制，它似乎失败了。

它应该是这样的：

这是实际闪亮的输出：

请在此处查看可重现的示例：

library(shiny)
library(ggtern)

ui <- fluidPage(
        mainPanel(
           plotOutput("ggtern")
        )
)
server <- function(input, output) {
    output$ggtern <- renderPlot({
        ggtern(data.frame(x=10, y=30, z=60), aes(x, y, z)) + geom_point()
    })
}
shinyApp(ui = ui, server = server)

我是不是忽略了什么？

Answer 1

将绘图函数放在 print 命令中：

 output$ggtern <- renderPlot({
        print(ggtern(data.frame(x=10, y=30, z=60), aes(x, y, z)) + geom_point())
    })

ggtern 的三元图在 shiny 中不起作用

ternary plot of ggtern not working in shiny

r

ggplot2

shiny

shiny-reactivity

ggtern