1つの行に2つのグラフをプロットする方法は？

Question

私は光沢のあるアプリにプロットした複数の円グラフを持っており、同じ行に収まるように移動することはできません。 .cssファイル内の位置を変更するか、absolutePanel（）を使用してどちらかを動かすことができますが、どちらのオプションを選択しても、巨大な空白が残っています。私は私のアプリからコードを投稿することはできませんので、私は小規模な例を作りました。どんな助けもありがとう。私の実際のアプリでは、私は約5つのグラフを持っているので、空白の量は非常に大きく、私はそれを解決したい。それはあなたが以下のように列でfluidRow、セグメントそれを使用して試みることができる...男は初心者くさいイム

library(shiny) 
library(plotly) 


ui = fluidPage(
    plotlyOutput("graph1",width="40%",height="350px"), 
    column(width=12,offset=4,plotlyOutput("graph2",width="40%",height="350px")) 
) 
server = function(input, output,session) { 



    output$graph1<-renderPlotly({ 

    USPersonalExpenditure <- data.frame("Categorie"=rownames(USPersonalExpenditure), USPersonalExpenditure) 
    data <- USPersonalExpenditure[,c('Categorie', 'X1960')] 

    p <- plot_ly(data, labels = ~Categorie, values = ~X1960, type = 'pie') %>% 
     layout(title = 'Graph 1', 
      xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE), 
      yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE)) 

    }) 
    output$graph2<-renderPlotly({ 
    USPersonalExpenditure <- data.frame("Categorie" = rownames(USPersonalExpenditure), USPersonalExpenditure) 
    data <- USPersonalExpenditure[, c('Categorie', 'X1960')] 

    colors <- c('rgb(211,94,96)', 'rgb(128,133,133)', 'rgb(144,103,167)', 'rgb(171,104,87)', 'rgb(114,147,203)') 

    p <- plot_ly(data, labels = ~Categorie, values = ~X1960, type = 'pie', 
       textposition = 'inside', 
       textinfo = 'label+percent', 
       insidetextfont = list(color = '#FFFFFF'), 
       hoverinfo = 'text', 
       text = ~paste('$', X1960, ' billions'), 
       marker = list(colors = colors, 
           line = list(color = '#FFFFFF', width = 1)), 
       #The 'pull' attribute can also be used to create space between the sectors 
       showlegend = FALSE) %>% 
     layout(title = 'Graph 2', 
      xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE), 
      yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE)) 

    }) 
} 

# Run the application 
shinyApp(ui = ui, server = server) 

Answer 1

簡単な答えであるが、私と一緒に耐えるかもしれません。列のスペースは基底12です。したがって、の中の2つのcolumn(6,..)が2つに分割されます。下の例は4に分かれています。「底の空白」の問題はあなたが記述したものであるかどうか分からないので、これはあなたの後ろの修正ではないかもしれません。

ui = fluidPage(
fluidRow(
    column(3, 
      plotlyOutput("graph1") 
      ), 
    column(3, 
      plotlyOutput("graph2") 
      ), 
    column(3, 
      plotlyOutput("graph3") 
      ), 
    column(3, 
      plotlyOutput("graph4") 
      ) 
) 
)