在R中使用带有计数和百分比的Plotly打开饼图/甜甜圈图
在R中使用带有计数和百分比的Plotly打开饼图/甜甜圈图
提问于 2019-06-10 09:21:41
我正试着用圆圈圈图来巧妙地使用R。我试过格格图，但它不能给我我所需要的效果。下面是一个示例数据集：
library(dplyr)
testfile <- tibble(personID = 1:10,
status = c("bad", "good", "bad", "bad", "bad", "bad", "bad", "bad", "bad", "good"),
department = c("sales", "sales", "marketing", "sales", "marketing", "management", "management", "sales", "sales", "sales"))此图表将在PowerPoint中结束，因此不需要响应。相反，我需要饼图说，不滚动它，%，属于每种状态和计数。另外，在饼图的中心，我希望它表示“好”类别中的%。
到目前为止，这是我的代码。它在没有滚动的情况下显示百分比，但没有计数，并且在中间没有百分比。
library(plotly)
p <- testfile %>%
group_by(status) %>%
summarize(count = n()) %>%
plot_ly(labels = ~status, values = ~count) %>%
add_pie(hole = 0.6) %>%
layout(title = "Ratio of Good to Bad", showlegend = F,
xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = TRUE),
yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = TRUE))另外，如果您能够按部门演示如何使用facet_wrap，这将非常有帮助。我一直让它说空！
谢谢!
回答 1
Stack Overflow用户
回答已采纳
发布于 2019-06-10 09:54:47
如果您希望在饼/甜甜圈图的中间有一个文本，您可以添加一个注解。
values <- testfile %>%
group_by(status) %>%
summarize(count = n())
good <- values %>% filter(status == 'good')
p <- layout(p, annotations=list(text=paste(good$count / sum(values$count) * 100, "%", sep=""), "showarrow"=F))为了更改饼图的每个片段中显示的标签，您可以使用text。
p <- plot_ly(values, labels = ~status, values = ~count, text = ~count)
完整代码
library(dplyr)
library(plotly)
testfile <- tibble(personID = 1:10,
status = c("bad", "good", "bad", "bad", "bad", "bad", "bad", "bad", "bad", "good"),
department = c("sales", "sales", "marketing", "sales", "marketing", "management", "management", "sales", "sales", "sales"))
values <- testfile %>%
group_by(status) %>%
summarize(count = n())
good <- values %>% filter(status == 'good')
p <- plot_ly(values, labels = ~status, values = ~count, text = ~count) %>%
add_pie(hole = 0.6) %>%
layout(title = "Ratio of Good to Bad", showlegend = F,
xaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = TRUE),
yaxis = list(showgrid = FALSE, zeroline = FALSE, showticklabels = TRUE))
p <- layout(p, annotations=list(text=paste(good$count / sum(values$count) * 100, "%", sep=""), "showarrow"=F))
p页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/56530842
复制相关文章
![intel(r)wireless-ac9462异常//笔记本电脑网络无法连接？？？吐血后总结 ：一次解决，史上最全，N种方案[通俗易懂]](https://ask.qcloudimg.com/http-save/yehe-8223537/7c6301238c00a3478f27ed7c73a1eac0.jpeg)
相似问题
如何让Intel Centrino无线-n 2230在11.10上工作？
Intel Centrino无线n-1000问题
Ubuntu 14.04上Centrino Wireless-N 2230的无线问题
Intel centrino n-2230与FRU 04w 3765的驱动程序
Intel Centrino Centrino Advanced-N 6235弱无线接收
添加站长 进交流群
领取专属 10元无门槛券
AI混元助手 在线答疑
关注 腾讯云开发者公众号
洞察 腾讯核心技术
剖析业界实践案例
腾讯云开发者
