R plotly - 如何在圆环图中使标签和图例更大？

Question

我正在使用以下代码制作甜甜圈图

data <- data.frame(
  category=c("Successful", "Unsuccessful", "Pending"),
  amount=c(45, 26, 23)
)

# Make the plot
df <- data
fig <- df %>% plot_ly(labels = ~category, values = ~amount, marker = list(colors = c('#00aa7f', '#ff0000','#ccccc7')))
fig <- fig %>% add_pie(hole = 0.55) 
fig

这会产生一个漂亮的甜甜圈图 - 但我觉得图例和 label 太小了。

When I edit my code with the following: Nothing happens

df <- data
fig <- df %>% plot_ly(labels = ~category, values = ~amount, marker = list(colors = c('#00aa7f', '#ff0000','#ccccc7', size = 10)))
fig <- fig %>% add_pie(hole = 0.55) 
fig

当我尝试此代码时-字体很大，尽管我尝试对其进行调整-大小并没有减小。

# Make the plot
df <- data
fig <- df %>% plot_ly(labels = ~category, values = ~amount, marker = list(colors = c('#00aa7f', '#ff0000','#ccccc7')), size = 10)
fig <- fig %>% add_pie(hole = 0.55) 
fig

我究竟做错了什么？

Answer 1

label 的大小可以通过textfont中的add_pie参数进行更改。 可以使用 arguments hoverlabel和legend在layout function 内调整图例大小和悬停文本大小。

fig <- df %>% plot_ly(labels = ~category,
                      values = ~amount, 
                      marker = list(colors = c('#00aa7f', '#ff0000','#ccccc7')))
fig <- fig %>% 
  add_pie(hole = 0.55,
          textfont = list(size = 18))  %>%
  layout(legend = list(font = list(size = 18)),
         hoverlabel = list(font = list(size = 18)))
fig