如何在 R 中将带有 plotly 的饼图水平居中？

Question

我是 plotly 的新手，试图弄清楚如何让饼图在整个 plot 区域的中心对齐。

library(dplyr)
library(plotly)

data_for_plot <-
  mtcars %>%
  count(cyl)

> data_for_plot

##   cyl  n
## 1   4 11
## 2   6  7
## 3   8 14


plot_ly(data_for_plot, labels = ~cyl, values = ~n, type = 'pie', hole = 0.05 ,textposition = 'outside',textinfo = 'percent') %>%
  layout(title = list(text = "my nice title is here", xanchor = "center"),
         showlegend = F,
         xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = TRUE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = TRUE)) %>%
  layout(paper_bgcolor = "pink")

所以我得到了这个饼图，它没有居中：

我假设在layout()内部我需要一些引用饼图本身的东西，用xanchor = "center"分配它。 但是我对此进行了研究，但找不到答案。

---

我的尝试更新 - 2020-01-18

---

我已经测试了layout()中的大多数属性，但仍然找不到可以与xanchor = "center"一起使用的东西。 我还检查了plotly 的参考指南，但到目前为止无济于事。

Answer 1

似乎解决方案涉及在layout()中设置margin属性。 解决方案是基于这个提示，参考这篇文章。 使用以下代码将其实现到R ：

plot_ly(data_for_plot, labels = ~cyl, values = ~n, type = 'pie', hole = 0.05 ,textposition = 'outside',textinfo = 'percent') %>%
  layout(title = list(text = "my nice title is here", xanchor = "center"),
         showlegend = F,
         margin = list(l = 20, r = 20),
         xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = TRUE),
         yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = TRUE)) %>%
  layout(paper_bgcolor = "pink")