I'm having a problem with my Shiny/ggplot app. Here's the situation:
Here's the main section of code that I think needs tinkering:
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) +
The rest of the code is just formatting the plot, I don't believe it's relevant to this issue.
Thanks for any help you can provide!