ggplot for pathway viz working in shiny