闪亮 - 对齐图线轴

时间:2017-06-03 07:26:21

标签: r shiny plotly

我有一个闪亮的应用程序,有2个条形图和一个热图,他们有相同的x轴(年),我希望年份在所有的情节中对齐,但我不知道如何做到这一点。下面是我的UI代码:

ui = fluidPage(
        titlePanel("Global Terrorism, is it getting worse?"),
            tabsetPanel(
                 tabPanel("Plot", fluid = TRUE,
               sidebarLayout(
                 sidebarPanel(radioButtons(
                        inputId="radio",
                            label="Variable Selection Type:",
                             choices=list(
                              "All Countries",
                              "Select a Country"
                              ),
                         selected="All Countries")


                    ,conditionalPanel(
                        condition = "input.radio != 'All Countries'",
                        selectInput("Country", "Select Country", choices = sort(unique(mydat$Country)), selected = "Iraq"),
                        sliderInput("freq", "Minimum Frequency:",min = 1,  max = 50, value = 15),
                            sliderInput("max", "Maximum Number of Words:", min = 1,  max = 100,  value = 100)
                    ), width=2),

        mainPanel(fluidRow(
            column(8,  plotlyOutput("trendbarPlot", height = "200px",width = 845)),
            column(8,  plotlyOutput("trendheatrPlot", height = "300px",width = 845)),
            column(2,  plotOutput("WordCloud", height = "200px",width = 400)),          
            column(8, plotlyOutput("trendstakbarPlot", height = "200px",width = 895))  
                 )
                 )



               )
      ),
      tabPanel("Map", fluid = TRUE,
               sidebarLayout(
                 sidebarPanel(sliderInput("year", "Select Year:", min = 1968, max = 2009, value = 2009, sep='')),

        mainPanel(
                   htmlOutput("Attacks")
                 )


               )
      )
    )

enter image description here

0 个答案:

没有答案