尝试将我的传单居中，但我希望图例保持左对齐

Question

我已经搜索过谷歌和堆栈溢出，但没有发现以前提出过这个问题。 基本上我想将我的 leafletOutput 居中并使用以下代码完成此操作：

UI <-fluidPage(
fluidRow(width=12, align="center",
(leafletOutput("Map2", width=1450, height=700)))
)

除此之外，它以我的传奇为中心，这使它看起来非常奇怪。 所以我想将图居中，但将图例保留在右下角（确实如此），但文本左对齐（它居中对齐）。

我也尝试过这个：

fluidRow(width=12, align="center",
(leafletOutput("Map2", width=1450, height=700, div(style="text-align: left;")))

然而，这个左对齐整个图像，基本上覆盖了fluidRow中的align =“center”。

我也尝试在服务器中运行它：

addLegend(div(style="text-align: left;"), pal=pal,values =~MerchCoOrds$merchant_state, opacity=1, title="State of Transaction",
position="bottomright")

但文本保持居中对齐。

这是我当前的服务器代码：

server <- function(input, output, session) {
output$Map2 <- renderLeaflet({
      leaflet(MerchCoOrds) %>% addTiles() %>%
      addCircleMarkers(data=MerchCoOrds, lng=~MerchLongitude, lat=~MerchLatitude, col = ~pal(MerchCoOrds$merchant_state), 
                       stroke = FALSE, fillOpacity = 1.0, 
                       popup=~paste("<h3>Merchant ID:</h3>",MerchCoOrds$merchant_id, "<h3>Transaction ID:</h3>", 
                                    MerchCoOrds$transaction_id, sep=" "), 
                       label=labels) %>%
      addLegend(pal=pal,values =~MerchCoOrds$merchant_state, opacity=1, title="State of Transaction",
                position="bottomright") %>%
      addControl(title, position="topright")
    })
}

我确信有一种使用标签或 div 的方法。

Answer 1

试试这个：

UI <- fluidPage(
    fluidRow(width=12, align="center",
        leafletOutput("Map2", width=1450, height=700),
        tags$style(HTML("#Map2 .info {text-align:left;}"))
    )
)

我对工具提示文本也有同样的问题，因为它有几行，并设法使其左对齐：

tags$style(HTML("#NameOfLeafletOutput .leaflet-tooltip {text-align:left;}")),

而我的传单地图保持居中。

Answer 2

好的，我可以使用 UI 中的这个简单代码调整来修复它。 我将

fluidRow

更改为

absolutePanel

并删除了

align="centre"

并添加了

left = "12%"

absolutePanel(left = "12%", width=12, 
      (leafletOutput("Map2", width=1450, height=700))

我确信一定有一个更好、更可持续的解决方案，所以如果有人有更好的解决方案，请发布它，因为这更多的是一种解决方案，而不是解决方案。

谢谢