错误：Alpha 必须为 1 或长度为 x。（在我的代码中使用 renderPlotly）

Posted 2023-02-16

【中文标题】错误：Alpha 必须为 1 或长度为 x。（在我的代码中使用 renderPlotly）

【英文标题】：Error: Alpha must be 1 or either of length x.(Using renderPlotly in my code)

【发布时间】：2021-10-02 00:09:00

【问题描述】：

当我使用renderPlotly 运行此代码时。它给了我错误，但没有渲染它工作正常。你能帮我用 renderPlotly 修复这段代码吗？提前致谢。

 output$tot_finalized_claims1 <- renderPlotly(
    req(input$yearSelectInput)
    
    #filter df to be used in graph
    claims1 <- newly_formatted_logResults %>% filter(YEAR == input$yearSelectInput) %>% filter(PEND == "CMI") %>% select(YEAR,MONTH_NUM,PEND, TOTAL_FINALIZE,TOTAL)
    data_pcode <- summarize(group_by(claims1,MONTH_NUM), actual_auto = round(sum(as.numeric(TOTAL_FINALIZE),na.rm = TRUE)/sum(as.numeric(TOTAL),na.rm = TRUE),digits = 2))
    data_pcode <- data.frame(data_pcode)
    
    ggplot(data = data_pcode,aes(x = MONTH_NUM, y = actual_auto )) +
      geom_point() + geom_line() + # add the points and lines
       stat_QC(method = "XmR"      # specify QC charting method
               auto.label = T,      # Use Autolabels
              label.digits = 2,    # Use two digit in the label
              show.1n2.sigma = T   # Show 1 and two sigma lines
      )+
      labs(x = "Months",y = "Automation Rate",title = paste("Actual automations by CMI Pend code"))+
      geom_text(aes(label=paste(actual_auto ,"%")), position=position_dodge(width=0.95), vjust=-0.5)+
      scale_x_continuous(breaks = 1:12,labels = c("Jan","Feb","Mar","Apr","May","Jun","Jul","Aug","Sep","Oct","Nov","Dec"))+
      scale_y_continuous(breaks = seq(0.0, 1.0, 0.1))
      
  ) #end tot finalized plot summary

【问题讨论】：

您能否提供问题所需的ui 和server 代码，以便完全重现问题以及必要时提供的数据？

嗨，欢迎来到堆栈溢出。根据 Ronak 的建议，您能否提供一个可重复的示例，以便其他人更容易帮助您。考虑看看this 和这个***.com/questions/5963269/…。

非常感谢大家。我通过将 qic 和 ggplot 结合在一起得到了解决方案，并且成功了。

【参考方案1】：

除了你甚至没有使用plotly 函数来创建情节之外，如果你想生成情节输出，你必须记住两件事：

在服务器部分 renderPlotly 而不是 renderPlot 在 UI 部分 plotlyOutput 而不是 plotOutput

你可以试试这段代码看看它是如何工作的：

library(shiny)
library(ggplot2)
library(ggthemes)
library(plotly)

ui <- fluidPage(  
  titlePanel("Plotly"),
  sidebarLayout(
    sidebarPanel(),
    mainPanel(
      plotlyOutput("plot2"))
    ))

server <- function(input, output) 
  
  output$plot2 <- renderPlotly(
    ggplotly(
      ggplot(data = mtcars, aes(x = disp, y = cyl)) + 
        geom_smooth(method = lm, formula = y~x) + 
        geom_point() + 
        theme_gdocs())
  )


shinyApp(ui, server)

【讨论】：

非常感谢大家。我通过将 qic 和 ggplot 结合在一起得到了解决方案，并且成功了。