设置图例和甜甜圈图

Question

我与 Plotly 合作，并试图制作一个甜甜圈情节。 下面你可以看到我的数据。

library(plotly)
library(reshape2)
library(dplyr)

df<-data.frame(city=c("NYC-The written history of New York City began with the first European explorer, the Italian Giovanni da Verrazzano in 1524. European settlement began with the Dutch in 1608.",
                      "Seattle-Seattle is a seaport city on the West Coast of the United States. It is the seat of King County, Washington. ",
                      "Boston",
                      "LA",
                      "Miami",
                      "Washington"),
               value=c(100,200,300,400,500,600))

df <-melt(df)

fig<-df %>% 
  plot_ly(labels = ~city, values = ~value)
fig <- fig %>% add_pie(hole = 0.6)
fig <- fig%>% layout(title = "Comparison between of the cities ")

fig

数据有点具体，因为它包含大约 170 个字符的列。 当我制作甜甜圈情节时，由于人物的原因，图例太大，图表太小。 下面你可以看到这个甜甜圈图的样子。

那么任何人都可以帮助我如何使这个图例更小，图表更大和相同的标题（使用相同的字体）？

Answer 1

您可以在大图例文本中添加一些\n输入并更改font大小，如下所示：

library(plotly)
library(reshape2)
library(dplyr)

df<-data.frame(city=c("NYC-The written history of New York City began with the first European explorer, \n the Italian Giovanni da Verrazzano in 1524. \n European settlement began with the Dutch in 1608.",
                      "Seattle-Seattle is a seaport city on the West Coast of the United States. \n It is the seat of King County, Washington. ",
                      "Boston",
                      "LA",
                      "Miami",
                      "Washington"),
               value=c(100,200,300,400,500,600))

df <-melt(df)

fig<-df %>% 
  plot_ly(labels = ~city, values = ~value)
fig <- fig %>% add_pie(hole = 0.6)
fig <- fig%>% layout(title = "Comparison between of the cities ",
                     legend = list(font=list(size = 7)))

fig

输出：