Shinyコントロールウィジェットのラベルに対応するピクセルを削除するにはどうすればよいですか？

Question

プロットの目的では、次の2つのウィジェットをグループとして配置し、最初のウィジェットの下の空白を削除する必要があります。どんな助けでも大歓迎です。

library(shiny) 
plotvars <- c("Cars","Book stores") 
ui <- fluidPage(
    sidebarPanel(
     selectInput('plot1xvar', 'Plot 1 - X & Y Variables', plotvars,plotvars[1]), 
     selectInput('plot1yvar', '', plotvars,plotvars[2]) 
    ), 
    mainPanel() 
) 
server <- shinyServer(function(input,output){}) 
shinyApp(ui, server) 

PSは：など、：（インラインブロックすなわち、ディスプレイを）私は、単一のブロックに2つのウィジェットを保ち、ドロップダウンリストに、フォントサイズ、フォントサイズを変更するためのリンクに出くわしましたそれに関してはそうではありません。

Answer 1

これは、ラベルを削除し、余白を変更します。

library(shiny) 
    plotvars <- c("Cars","Book stores") 
    ui <- fluidPage(
      tags$head(
        tags$style(
          HTML(
            ".form-group{ 
              margin-bottom: 0px; 
            } 
            .selectize-control{ 
              margin-bottom: 0px; 
            }" 
          ) 
        ) 
      ), 
      sidebarPanel(
        selectInput('plot1xvar', 'Plot 1 - X & Y Variables', plotvars,plotvars[1]), 
        selectInput('plot2yvar', label = NULL, plotvars,plotvars[2]) 
      ), 
      mainPanel() 
    ) 
    server <- shinyServer(function(input,output){}) 
    shinyApp(ui, server)