R 如果频率小于给定数字，则以绘图方式显示文本

我正在开发一个闪亮的应用程序，该应用程序的一部分显示一个生动的饼图

如果饼图中的值小于某个特定数字，是否有方法显示文本而不是饼图

我可以考虑使用ifelse，但我认为这不是一个可行的方法

 output$plot<-renderPlotly({
      plot_ly(selection, labels = ~Country, values = ~Freq, type = 'pie') %>%
        layout(title = paste0("Percentage of patients from"," ",selection$Country[selection$Country!='Rest of the countries']," ","v/s rest of the countries"),
               xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE),
               yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE))
    })

---

以下是一种方法：

library(shiny)
library(plotly)
shinyApp(
  ui = fluidPage(selectInput("select","Select:", choices=unique(mtcars$cyl), selected = c(6)),
                 uiOutput("plot1")),
  server = function(input, output) {
    data <- reactive({
      data <- mtcars[mtcars$cyl %in% input$select,]
    })
 output$plot1 <- renderUI({
   if(input$select < 6){
     print("Error")
   }else{
     plotlyOutput("plot2")
   }

 })

 output$plot2 <- renderPlotly({
   plot_ly(data(), x = ~mpg, y = ~hp, color = ~cyl)
 })

  }
)

库（闪亮）
图书馆（绘本）
shinyApp(
ui=fluidPage（选择输入（“选择”，“选择：”，选择=唯一（mtcars$cyl），选择=c（6）），
uiOutput（“plot1”），
服务器=功能（输入、输出）{
数据“饼图中的数值”是什么？这些数值是一个国家相对于世界其他国家的频率数值
library(shiny)
library(plotly)
shinyApp(
  ui = fluidPage(selectInput("select","Select:", choices=unique(mtcars$cyl), selected = c(6)),
                 uiOutput("plot1")),
  server = function(input, output) {
    data <- reactive({
      data <- mtcars[mtcars$cyl %in% input$select,]
    })
 output$plot1 <- renderUI({
   if(input$select < 6){
     print("Error")
   }else{
     plotlyOutput("plot2")
   }

 })

 output$plot2 <- renderPlotly({
   plot_ly(data(), x = ~mpg, y = ~hp, color = ~cyl)
 })

  }
)