时间戳

首页 > 解决方案 > 我怎样才能在闪亮时向左对齐？

r - 我怎样才能在闪亮时向左对齐？

问题描述

嗨，感谢您阅读我

我正在制作一个闪亮的条形图，我希望它从左侧显示，中间没有空格，也就是说，我想删除以下空格并让图表从那里开始：

在此处输入图像描述

有没有办法做到这一点？我的代码如下：

library(shiny)
library(dplyr)
library(echarts4r)

shinyApp(
  ui = fixedPage(
    column(12, align="center", offset = 0,
           echarts4rOutput(
             "grafico", width = 1500, height = 350
           )
    )
    
  ),
  server = function(input, output){
    
    
    output$grafico <- renderEcharts4r({
      mtcars |>
        tibble::rownames_to_column("model") |> 
        mutate(total = mpg + qsec) |>
        arrange(desc(total)) |>
        e_charts(model) |>
        e_bar(mpg, stack = "grp") |>
        e_bar(qsec, stack = "grp")
      
    })
    
  }
)

标签： rshinyecharts4r

解决方案

这是一种丑陋的修复，但它有效：（请注意，我将 fixedPage 更改为流体页面。我还添加了一个 div 来封装你的 echarts4rOutput）

library(shiny)
library(dplyr)
library(echarts4r)

shinyApp(
  ui = fluidPage(
    fluidRow(
      column(
        12,
        tags$div(
          style = "margin-left: -75px", offset = 0,
          echarts4rOutput(
            "grafico", width = 1080, height = 350
          )
        )
      )
    )
  ),
  server = function(input, output){


output$grafico <- renderEcharts4r({
  mtcars |>
    tibble::rownames_to_column("model") |> 
    mutate(total = mpg + qsec) |>
    arrange(desc(total)) |>
    e_charts(model) |>
    e_bar(mpg, stack = "grp") |>
    e_bar(qsec, stack = "grp")
  
})



 }
)

推荐阅读