好了，我更改了MyViewEvent函数，将数据集转换为一个嵌套框架，然后使用了type= prob的predict函数。然后我转置了X轴和Y轴，就像下面的代码：

observeEvent(input$printButton, {
  new_data <- data.frame(
    age = as.numeric(input$age),
    weight = as.numeric(input$weight),
    height = as.numeric(input$height),
    Tclass = NA
  )
   pred_probabilities_transposed <- t(pred_probabilities)
   class_names_df <- data.frame(Class = rownames(pred_probabilities_transposed))
   pred_probabilities_with_names <- cbind(class_names_df, pred_probabilities_transposed)
   colnames(pred_probabilities_with_names) <- c("Class", "Probability")
   pred_probabilities_with_names <- pred_probabilities_with_names %>%
     arrange(desc(Probability)) 
 
   output$variableValues <- renderTable({
     pred_probabilities_with_names
   }, rownames = FALSE)
})