如何使用 Rstudio flexdashboard 创建饼图？答案

【问题标题】：How to create a pie chart with Rstudio flexdashboard?如何使用 Rstudio flexdashboard 创建饼图？
【发布时间】：2018-10-23 11:20:03
【问题描述】：

我是 Rstudio 的新手，我正在努力弄清楚如何使用“flexdashboard”创建仪表板

这是我的数据集

```    Country       Refugees   
    1 Belgium         508645
    2 France         2874490
    3 Germany       10893516
    4 Ireland         142555
    5 Italy           538407
    6 Netherlands    1900518
    7 Portugal          7918
    8 Spain            89946
    9 United Kingdom 3766855

enter image description here

我正在尝试创建一个饼图，这是我输入的内容，但它不起作用。在尝试了许多变化之后，我始终没有弄清楚如何让它发挥作用。

```{r message=FALSE, warning=FALSE, include=FALSE}

library(flexdashboard)
library(plotly)

totalref <- read.csv("F:/HU/ANLY 512/Dashboarding Lab/total.xls", header = TRUE)

plot_ly(totalref, labels= ~totalref$Country, values= ~totalref$Total, type= 'pie')
 layout (title='Persons of Concern in 9 European Countries',
    xaxis = list(showgrid=FALSE, zeroline=FALSE, showticklabels=FALSE),
    yaxis = list(showgrid=FALSE, zeroline=FALSE, showticklabels=FALSE))

```

我想我可能走错了路，所以任何建议都将不胜感激。

【问题讨论】：

当您遇到错误并想寻求 SE 帮助时，您必须在问题中包含您收到的错误消息。否则，不清楚您要克服什么问题。

标签： r plotly flexdashboard r-plotly

【解决方案1】：

这是我的评论：

在plot_ly() 调用中删除totalref$ 并直接使用列名。
您的示例数据中没有Total 列，也许您要使用的是Refugees？
如果您使用include=FALSE，将评估代码块，但不会显示代码及其输出。因此，如果您不希望显示代码，但希望显示绘图，请将其删除并替换为 echo=FALSE。
layout() 函数的第一个参数是绘图本身，因此您的代码中似乎缺少管道运算符%>%。

使用您提供的示例数据，这一行：

totalref <- read.table(header = T, text = 
"Country        Refugees   
'Belgium'         508645
'France'         2874490
'Germany'       10893516
'Ireland'         142555
'Italy'           538407
'Netherlands'    1900518
'Portugal'          7918
'Spain'            89946
'United Kingdom' 3766855")

plot_ly(totalref, labels = ~ Country, values = ~ Refugees, type = 'pie',
        textposition = 'inside', textinfo = 'label+percent') %>%
    layout (title='Persons of Concern in 9 European Countries',
            showlegend = TRUE)

对我来说很好。结果如下：

textposition = 'inside', textinfo = 'label+percent'：在图表内显示标签和百分比；
showlegend = TRUE 显示图例。

【讨论】：

谢谢。当我尝试使用控制台时它正在工作，但是当我尝试编织到 flex_dashboard 时，我给了我一条错误消息，并且所有观察结果都从通用环境中的相关数据集中删除。这就是为什么我很困惑。我不知道如何编织到 flex_dashboard。
你到底得到了什么错误？在我这边，它可以正常工作，没有任何错误。您能否尝试使用我添加到答案中的虚拟数据。