ggplot с отфильтрованными данными из таблицы данных (DT) и реактивными виджетами для выбора осей x и y

Я хотел бы использовать отфильтрованные данные из datatable для создания ggplot. Я также реализовал два виджета, которые после фильтрации данных позволят пользователю выбрать оси x и y для отображения. После настройки виджетов и тд у меня вылезла ошибка:

Error in `[.data.frame`(data_melt, filtered_data) : undefined columns selected

Я понятия не имею, почему это произошло.

мой пример данных:

              Rundheit      Diff Charge  Ord..Nr.      Block.Nr. 
1               0.24        0.20 754331      738         1                             
2               0.26        0.21 783345      738         2          
3               0.25        0.15 795656      738         3          
4               NA          0.14 798431      738         4          
5               NA          0.12 799651      738         5          
6               0.24        NA   805454      738         6      

Значения NA должны оставаться в моих данных

UI:

ui <-  dashboardPage(
  dashboardHeader(title = "WW"),
  dashboardSidebar(
    selectizeInput(inputId = "yaxis", 
                   label = "Y-axis (Diagramm)",
                   choices = list("Rundheit" = "Rundheit",
                                  "Diff" = "Diff"), 
                   selected = c("Rundheit"), multiple=TRUE),
    selectInput(inputId = "xaxis", 
                label = "X-axis (Diagramm)",
                choices = names(data_melt), 
                selected = "Block.Nr.")
  ),
  dashboardBody(
    fluidRow(
      tabBox(status = "primary", width = NULL, height = "1000px", 
        tabPanel(title="Tabelle filtern", div(style = 'overflow-y: scroll; max-height: 950px; position:relative;', 
                                                                 dataTableOutput("tabelle"))),
                    tabPanel("Diagramm", plotOutput("plot1")),
                    tabPanel("Histogramm", plotOutput("plot2"))))
  ))    

Сервер:

      server <-  function(input, output, session) {

    output$tabelle <- renderDataTable({    
    datatable(data[, c("Rundheit", "Diff", "Charge.", "Ord..Nr.", "Block.Nr.")], class = 'cell-border stripe', 
                       rownames=FALSE, filter="top", 
options = list(lengthChange = FALSE, columnDefs = list(list(width = '200px', targets = "_all"), list(bSortable = FALSE, targets = "_all"))), callback=JS("
                   //hide column filters for two columns
                    $.each([0, 1], function(i, v) {
                    $('input.form-control').eq(v).hide()});", 
                    "var tips = ['Rundheit', 'Diff', 'Charge',
                    'Ord..Nr.', 'Block.Nr.'],
                    header = table.columns().header();
                    for (var i = 0; i < tips.length; i++) {
                    $(header[i]).attr('title', tips[i]);}")) %>%
                formatStyle("Rundheit",  color = 'red', backgroundColor = 'lightyellow', fontWeight = 'bold')
    })

    output$plot1 <- renderPlot({
                filtered_data <- input$tabelle_rows_all
                data_filt <- data_melt[filtered_data]    


            ggplot(data=data_filt, aes_string(x = input$xaxis, y = input$yaxis), environment = environment())+ geom_line(aes(group=1), size=1) +
                        theme(axis.text.y=element_text(size=15), axis.text.x=element_text(size=15), axis.title.x = element_text(size=18, face="bold"),axis.title.y = element_text(size=18, face="bold"))
             })
}


shinyApp(ui = ui, server = server)

Кто-нибудь знает, почему это не работает, и как я могу определить столбцы тогда.

Я видел сообщение: http://Using%20filtered%20datatables%20in%20shiny

Однако для кода:

[filtered_data, "name of the column"]

не работает, используя, например:

data_filt <- data_melt[filtered_data, ]

Error in seq.int(0, to0 - from, by) : 'to' cannot be NA, NaN or infinite

А также

Error in seq.default(from = best$lmin, to = best$lmax, by = best$lstep) : 
  'from' must be of length 1

так же как:

data_filt <- data_melt[filtered_data, input$xaxis]

и выдает ошибку (в зависимости от типа столбца):

Error : ggplot2 doesn't know how to deal with data of class factor
Error : ggplot2 doesn't know how to deal with data of class numeric

и мне также нужно реализовать input$yaxis... Поэтому я попробовал:

data_filt <- data_melt[filtered_data, c(input$xaxis, input$yaxis)]

Чем я получил ошибку

Error in seq.default(from = best$lmin, to = best$lmax, by = best$lstep) : 
  'from' must be of length 1

Просто для информации я немного поиграл с этим кодом, и даже указав имя столбца, он выдает ошибку, и я даже не могу указать более одного

Я пробовал такие вещи, как:

[filtered_data, "Rundheit")

[filtered_data, c("Rundheit", "Diff")]

Большое спасибо за любые идеи