Question

我尝试绘制多个x轴，并发亮。

问题是我无法在图表下显示变量名（城市和月份）。

我能做的情节

我想在图表下方显示变量名。我的数据表 datatable

月，城市，抢劫，意外，出生，死亡

1966-01纽约41 15 10 3

1966-02纽约39 26 8 3

1966-03纽约50 12 5 3

1966-04纽约40 32 10 3

1966-05纽约43 11 15 1

1966-06纽约38 5 8 3

1966-07纽约44 30 11 2

1966-08纽约35 19 13 2

1966-09纽约39 33 7 2

1966-10纽约35 25 11 2

1966-11年纽约29 24 13 3

1966-12纽约49 29 8 2

1966-01费城50 11 10 2

1966-02费城59 14 12 2

1966-03费城63 63 15 1

1966-04费城32 25 9 2

1966-05费城39 12 15 1

1966-06费城47 20 6 3

1966-07费城53 22 8 1

1966-08费城60 31 10 2

1966-09费城57 18 8 2

1966-10费城52 23 11 4

1966-11年的费城70 30 15 2

1966-12年的费城90 27 6 3

1966年1月，加利福尼亚州74 28 10 2

1966-02加利福尼亚州62 22 8 2

1966-03加利福尼亚55 26 5 1

1966-04加利福尼亚州84 16 10 1

1966-05加利福尼亚州94 25 15 2

1966-06加利福尼亚州70 29 8 2

1966-07加利福尼亚州108 17 11 1

1966-08加利福尼亚州139 20 13 2

1966-09加利福尼亚州120 21 8 1

966-10加利福尼亚州97 19 15 2

1966-11加利福尼亚州126 24 6 0

1966-12加利福尼亚州149 29 8 2

mycode

library(shiny)
library(plotly)

data <- data.frame(Month,Cities,Accident,Robberies,Born,Dead)

ui <- fluidPage(
    titlePanel("BABABA BABANANA"),
    sidebarLayout(   
        sidebarPanel(
            selectInput("var_y1", 
                        label = "Choose a Y1-axis ",
                        choices = c("ACC","ROB","born","dead"), 
                        selected = "ACC"),  
            br(),
            actionButton("close", "Click to disconnect")
        ),
        mainPanel(      
            textOutput("min_max")            
        )
    ),
    hr(),       
    fluidRow(
        column(4, verbatimTextOutput("value")),
        column(4, verbatimTextOutput("range"))
    )
)

server <- function(input, output) {

    observeEvent(input$close, {
        stopApp()
    })

    output$selected_var <- renderPlotly({ 
      xaxis <- list(title = 'Cities & Month','tickvals'= seq(1, length(data$Cities)),
              'ticktext' = paste(data$Month,data$Cities, sep='<br />'),
              'tickmode' = 'array',autotick = F)              
       yaxis <- list(title = 'number of person' )       
      r <- plot_ly(data, x=seq(1, length(data$Cities)),y = ~Accident,name = 'Accident/Month', type = 'scatter', mode = 'lines+markers', line = list(shape = "spline"))%>%
        layout(title = 'Accident of 3Cities',xaxis = xaxis,yaxis = yaxis)                           
      s <- plot_ly(data,x=seq(1, length(data$Cities)),y = ~Robberies,name = 'Robberies/Month', type = 'scatter', mode = 'lines+markers', line = list(shape = "spline")) %>%
         layout(title = 'Robberies of 3Cities',xaxis  = xaxis,yaxis = yaxis) 
           if(input$var_y1 == "ACC"){
            r
           }
           else if(input$var_y1 == "ROB"){
            s
           }   
        })     
}  
# Run the app ----cc
shinyApp(ui = ui, server = server)

我想将其传递给下一步非常感谢

多个x轴未显示变量名称

0 个答案: