如何重新组织R表中的图表？

我使用R Shiny将数据可视化为使用Plotly包的一些饼图。问题是我想重新调整饼图的大小并在水平方向上不垂直地进行导航，图片如下所示。如何重新组织R表中的图表？

我会感谢帮助专家！

下面是代码

#UI part 
dashboardBody(
fluidRow(
    plotlyOutput("PieDistribution"), 
    plotlyOutput("PieHealth") 
) 

#server part 
output$PieDistribution <- renderPlotly({ 
plot_ly(PD, labels = ~PD$VP, values = ~PD$V1, type = 'pie', 
     textposition = 'inside', 
     textinfo = 'percent', 
     insidetextfont = list(color = '#FFFFFF'), 
     hoverinfo = 'text', 
     text = ~paste(PD$VP), 
     marker = list(colors = colors, 
         line = list(color = '#FFFFFF', width = 1))) %>% 
    layout(title = 'Project Distribution by Vice President', 
     xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE), 
     yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE), 
     showlegend = FALSE, 
     legend = list(x = 50, y = 0.5)) 
    }) 

output$PieHealth <- renderPlotly({ 
plot_ly(PD2, labels = ~PD2$HealthName, values = ~PD2$V1, type = 'pie', 
     textposition = 'inside', 
     textinfo = 'percent', 
     insidetextfont = list(color = '#FFFFFF'), 
     hoverinfo = 'text', 
     text = ~paste(PD2$HealthName), 
     marker = list(colors = c('#229954', '#d32f2f','#ffc107'), 
         line = list(color = '#FFFFFF', width = 1))) %>% 
    layout(title = "Project Health", 
     xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE), 
     yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = FALSE), 
     showlegend = FALSE) 
})

Image of the pie charts

来源

2017-06-21 Joonhyuk James Heo

在UI创建fluidrow中新列。例如：

fluidRow(column(6, 
    plotlyOutput("PieDistribution")), 
column(6, 
    plotlyOutput("PieHealth")) 
)

来源

2017-06-21 21:33:32

如何重新组织R表中的图表？

回答

相关问题