r - 数据框列名中单词之间的空格会导致 Shiny 的应用程序出现问题

Question

我想通过每次提供其他变量作为输入来显示摘要并可视化回归模型。虽然代码有效，但我更改了 iris 的列名通过在它们之间创建空格来创建数据集，现在我因为这个而出错 Error in parse: <text>:1:3: unexpected symbol

     library(shiny)
        library(shinydashboard)
        library(shinydashboardPlus)
        library(shinyWidgets)
        library(dplyr)
        library(ggiraph)
        library(ggiraphExtra)
        library(plyr)
        shinyApp(
          ui = dashboardPagePlus(
            header = dashboardHeaderPlus(title = "Social Media Metrics", titleWidth = 320
                                         
            ),
            sidebar = dashboardSidebar(width = 320,
                                       
                                       uiOutput("value"),
                                       uiOutput("value2")
                                       
            ),
            body = dashboardBody(
              verbatimTextOutput("plot"),
              ggiraphOutput("plot2"),
              plotOutput("plot3")
            )
            
            
          ),
          server = function(input, output) {
            
            colnames(iris)[1:4]<-c("f f","s s","d d","f f f")
            
            output$value<-renderUI({
              
              pickerInput(
                inputId = "val"
                ,
                label = "DEPENDENT" 
                ,
                choices = colnames(iris)[-5] #all rows of selected column
                ,
                multiple = F, options = list(`actions-box` = TRUE)
                
              )
              
              
            })
            output$value2<-renderUI({
              
              pickerInput(
                inputId = "val2"
                ,
                label = "INDEPENDENT" 
                ,
                choices = colnames(iris)[-5] #all rows of selected column
                ,
                multiple =T, options = list(`actions-box` = TRUE)
                
              )
            })
            
            
            
            model <- eventReactive(c(input$val,input$val2),{
              req(c(input$val,input$val2))
              lm(as.formula(paste(input$val," ~ ",paste(input$val2,collapse="+"))),data=iris)
            })
            
            output$plot <- renderPrint({
              summary(model())
            })
            output$plot2 <- renderggiraph({
              ggPredict(model(),se=TRUE,interactive=TRUE)
            })
            output$plot3<-renderPlot({
ggplot(iris,aes(y=input$val,x=input$val2))+geom_point()+geom_smooth(method="lm")
})

            
            
            
          }
        )

Answer 1

如果模型变量包含空格，您应该使用反引号来定义它们:

lm(as.formula(paste0("`",input$val,"` ~ ",paste0("`",input$val2,"`",collapse="+"))),data=iris)

这使模型工作。
但是，这不能与 ggpredict 一起正常工作。因为反引号没有保存在模型本身中:

查看 ggpredict的来源表明在不修改函数代码的情况下似乎很难克服这个困难，请参见导致上述错误的第 15 行示例:

temp = paste0("aes(y=", yname, ",x=", xname)