r语言 - 如何在 Shiny 中使用单选按钮以不同的方式处理数据?

Question

我正在尝试使用 Shiny 创建一个应用程序，我想以不同的方式处理每个单选按钮的数据，为每个单选按钮选项创建不同的绘图。

我拥有并工作的代码是这样的：

library(shiny)
library(ggplot2)
library(tidyverse)
library(dplyr)
library(caret)
library(wakefield)
#Create dummy dataset named datos
X <- r_sample_factor(c("low", "high"), n=232)
MAMAMA<-r_sample_factor(c("C/C", "C/G", "G/G"), n=232)
MEMEME<-r_sample_factor(c("C/C", "C/T", "T/T"), n=232)
MIMIMI<-r_sample_factor(c("A/A", "A/T", "T/T"), n=232)
datos<-data.frame(X,MAMAMA,MEMEME,MIMIMI)
#Data partition
set.seed(12345)
inTrain <- createDataPartition(y=datos$X, p=0.66666666666666667, list=FALSE)
datos_train<-datos[inTrain,]
datos_test<-datos[-inTrain,]
class_train<-datos[inTrain,1]
class_test<-datos[-inTrain,1]
#Define ui
ui <- fluidPage(
titlePanel("This is a title"),
sidebarLayout(
sidebarPanel(
radioButtons("algorithm",
"Select one algorithm to visualize its output",
choices= c("Random Forest" = "rf",
"Artificial Neural Network" = "mlp",
"Support Vector Machine" = "svmRadial") )
),
mainPanel(
tabsetPanel(type="tabs",
tabPanel("Prediction", verbatimTextOutput("confucio")),
tabPanel("Plot", plotOutput("plot")),
tabPanel("Confussion Matrix", verbatimTextOutput("matrix"))
)
#From select variable model
#tableOutput("table"),
#plotOutput("myPlot")
)
)
)
server <- function(input, output, session) {
output$confucio<-renderPrint(train(X~., datos_train, 
method=input$algorithm,
trControl= trainControl(method='cv', number=5)))
output$plot <- renderPlot({
plot(train(X~., datos_train, method=input$algorithm, trControl= trainControl(method='cv', number=5)))
})

output$matrix<-renderPrint({ confusionMatrix(
predict(
train(X~., datos_train, method=input$algorithm, trControl= trainControl(method='cv', number=5)), datos_test)
, class_test)
})
}
# Run the application 
shinyApp(ui, server)

但是，对于输出 $plot，我想为每个单选按钮可能性做不同的绘图。我试过这个，但它不起作用。

output$plot <- renderPlot({
if(input$algorithm == "Random Forest"){
model<-train(X~., datos_train, method="rf", trControl= trainControl(method='cv', number=5))
plot(model$finalModel, main="Random Forest") 
} 
if(input$algorithm == "Artificial Neural Network"){
model<-train(X~., datos_train, method="mlp", trControl= trainControl(method='cv', number=5))
plotnet(model, main="Artificial Neural Network")
}
if(input$algorithm == "Support Vector Machine"){
model<-train(X~., datos_train, method="svmRadial", trControl= trainControl(method='cv', number=5))
plot(model, main="Support Vector Machine")
} 
})

Answer 1

您需要使用if条件下radioButtons的"原始"名称，而不是您为选项提供的新名称：

output$plot <- renderPlot({
if(input$algorithm == "rf"){
model<-train(X~., datos_train, method="rf", trControl= trainControl(method='cv', number=5))
plot(model$finalModel, main="Random Forest") 
} 
if(input$algorithm == "mlp"){
model<-train(X~., datos_train, method="mlp", trControl= trainControl(method='cv', number=5))
plotnet(model, main="Artificial Neural Network")
}
if(input$algorithm == "svmRadial"){
model<-train(X~., datos_train, method="svmRadial", trControl= trainControl(method='cv', number=5))
plot(model, main="Support Vector Machine")
} 
})