错误 CoordTern 需要以下缺失的美学 (tlr->xy)：z 在 Shiny 中使用 ggtern 时

Posted 2023-03-24

【中文标题】错误 CoordTern 需要以下缺失的美学 (tlr->xy)：z 在 Shiny 中使用 ggtern 时

【英文标题】：Error CoordTern requires the following missing aesthetics (tlr->xy) : z when using ggtern in Shiny

【发布时间】：2020-07-26 06:51:10

【问题描述】：

我正在尝试编写一个 Shiny 应用程序，该应用程序读取具有以下组成的文件 使用 ggtern 包绘制三个组件系统并绘制三元相图。

我可以在基本的 R 中做到这一点，但是当我尝试将它作为 Shiny 的一部分来实现时，我得到了一个我不知道如何修复的错误：

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

该应用程序由 fileInput 小部件和 renderUI 函数的三个 selectInput 小部件组成，以便用户可以从文件中为三元图的每个角选择变量。

我正在使用最新的库版本： ggplot2 3.3.0 和 ggtern 3.3.0

这是作为数据框的“.csv”文件的内容：

df <- data.frame("Comp1" = c(0.3, 0.5, 0.6, 0.75, 0.8),
                 "Comp2" = c(0.3, 0.25, 0.15, 0.15, 0.1),
                 "Comp3" = c(0.4, 0.25, 0.25, 0.1, 0.1),
                 "Value" = c(300, 500, 1200, 2500, 4500))

^{由reprex package (v0.2.1) 于 2020-04-13 创建}

下面是闪亮代码的代表：

#
# Ternary Phase Plot
#

library(shiny)
library(ggplot2)
library(ggtern)
#> --
#> Remember to cite, run citation(package = 'ggtern') for further info.
#> --
#> 
#> Attaching package: 'ggtern'
#> The following objects are masked from 'package:ggplot2':
#> 
#>     aes, annotate, ggplot, ggplot_build, ggplot_gtable,
#>     ggplotGrob, ggsave, layer_data, theme_bw, theme_classic,
#>     theme_dark, theme_gray, theme_light, theme_linedraw,
#>     theme_minimal, theme_void
library(DT)
#> 
#> Attaching package: 'DT'
#> The following objects are masked from 'package:shiny':
#> 
#>     dataTableOutput, renderDataTable

ui <- fluidPage(
  titlePanel("Ternary Phase Plot"),
  sidebarLayout(
    sidebarPanel(

      fileInput("file","Upload '.csv' file"),
      br(),
      uiOutput("vx"), # vx is coming from renderUI in server
      br(),
      uiOutput("vy"), # vy is coming from renderUI in server
      br(),
      uiOutput("vz") # vy is coming from renderUI in server
    ),

    mainPanel(
      plotOutput("plot", height = "800px"),
      DT::dataTableOutput("table")
    )
  )
)


server <- function(input, output, session) 
  # get the names of the variables from the data file and used them in the selectInput part of the renderUI function
  vars <- reactive(
  req(input$file)
  names(read.csv(input$file$datapath,
                 header = TRUE,
                 sep = ","))
  )
  # read the data file
  df <- reactive(
    req(input$file)
    read.csv(input$file$datapath,
                   header = TRUE,
                   sep = ",")
  )

  output$vx <- renderUI(
    selectInput("varx", "Select the 1st (L) component", choices = vars())
  )

  output$vy <- renderUI(
    selectInput("vary", "Select the 2nd (T) component", choices = vars())
  )

  output$vz <- renderUI(
    selectInput("varz", "Select the 3rd (R) component", choices = vars())
  )

  # render plot
  output$plot <- renderPlot(

    ggtern(df(), aes_string(x=input$varx, y=input$vary, z=input$varz)) + 
      geom_point(aes(fill=Value), color="black",shape=21, size=6) +
      labs(fill="Value")


  )

  # print dataframe in table to confirm it is read properly
  output$table <- DT::renderDataTable(
    df()
  )



# Run the application 
shinyApp(ui = ui, server = server)

【参考方案1】：

我从另一个堆栈溢出问题 (https://***.com/a/55102305/11234102) 中找到了我的问题的答案。它虽然有效 提供了答案以解决不同的问题。 ggtern 函数需要放在 print() 命令中。