Блог

Привет и спасибо, что прочитали меня

Я работаю над блестящей гистограммой, и я хотел бы, чтобы она отображалась слева без промежутка между ними, то есть я хотел бы удалить следующий пробел, и чтобы диаграмма начиналась оттуда:

Есть ли способ сделать это? Мой код выглядит следующим образом:

 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")
      
    })
    
  }
)
 

Это своего рода уродливое исправление, но оно работает: (имейте в виду, я изменил страницу Fixed на страницу Fluid. Я также добавил 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")
  
})



 }
)