Kindly bear with me, if my question sounds too basic for you all - as am just few hours old for shiny. I am trying creating multiple plots (2 X 3) in the same page, but am not able to do so after repeated attempts.
ui.R
shinyUI(fluidPage(
mainPanel(
plotOutput("distPlot")
plotOutput("simpPlot")
)
))
server.R
shinyServer(function(input,output) {
x <- round(yoy.monthly(tsdb("in.iip") ), 2)
output$distPlot <- renderPlot({
plot(x, col = "darkblue", xlab = "", ylab = "Y-o-Y Change (Per cent)", main = "IIP", lwd = 3)
grid()
})
output$simpPlot <- renderPlot({
y <- round(yoy.monthly(tsdb("in.cpi.iw")), 2)
plot(y, col = "darkgreen", xlab = "", ylab = "Y-o-Y Change (Per cent)", main = "CPI-IW", lwd = 3)
grid()
})
})
Treat x and y as typical numeric vector.
So, this is how i want the plots to be generated:
Plot 1 Plot 2 Plot 3
Plot 4 Plot 5 Plot 6