Селектор ввода обновляет только один набор данных в ggplot2

Question

У меня проблема с моим приложением Shiny/ggplot. Вот ситуация:

• На блестящей странице есть только один выпадающий список выбора
• График использует 2 набора данных, один из которых является geom_segment, другой geom_point
• Поле выбора ввода должно применить фильтр к наборам данных (используя тот же столбец)
• Когда я меняю раскрывающийся список, только первый набор данных повторно фильтруется

Вот основной раздел кода, который, я думаю, нуждается в корректировке:

output$chart <- renderPlot({
  graph2 <- ggplot()
    graph2 + 
    geom_segment(data = subset(segment.data, subset = segment.data$jobLevel == input$level), 
                 aes(x = start.time, y = empID, xend = end.time, yend = empID, color = combined.leave.types),size = 1, alpha = .8) +
    geom_point(data = subset(point.data, subset = point.data$jobLevel == input$level), 
                 aes(x = time.sent, y = empID), size = .8, alpha = .5, inherit.aes = FALSE) + 

Остальная часть кода просто форматирует сюжет, я не думаю, что он имеет отношение к этой проблеме.

Спасибо за любую помощь, вы можете предоставить!