分析两个数值向量的交集并创建饼图

发布于 2025-01-16 22:41:23 字数 431 浏览 3 评论 0原文

我有两个带有数值的向量：

v.typA <- c(1,2,110,111,20,22,46,80,89,100,210,320,999,1000)            # length = 14
v.typB <- c(1,2,10,11,20,22,40,44,60,66,80,88,100,210,320,430,540,666)  # length = 18

现在我想创建一个饼图，它以百分比形式可视化这两个向量的唯一值和重复项。我正在考虑这样的事情：

我该怎么做？

原文

I'm having two vectors with numeric values:

v.typA <- c(1,2,110,111,20,22,46,80,89,100,210,320,999,1000)            # length = 14
v.typB <- c(1,2,10,11,20,22,40,44,60,66,80,88,100,210,320,430,540,666)  # length = 18

Now I want to create a pie chart, which visualizes the unique values and duplicates of these two vectors in percentage. I'm thinking of something like this:

How can I do this?

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

夏日落 2025-01-23 22:41:23

你心里有这样的想法吗？

library(dplyr)
library(ggplot)

v.typA <- c(1,2,110,111,20,22,46,80,89,100,210,320,999,1000)      
v.typB <- c(1,2,10,11,20,22,40,44,60,66,80,88,100,210,320,430,540,666)
vec <- c(v.typA,v.typB)

df <- tibble(var = c("Unique", "Duplicated"),
             val = c(length(unique(vec)), length(vec) - length(unique(vec)))) %>% 
  arrange(desc(var)) %>%
  mutate(prop = val / sum(val) *100) %>%
  mutate(ypos = cumsum(prop)- 0.5*prop )

ggplot(df, aes(x="", y=prop, fill=var)) +
  geom_bar(stat="identity", width=1, color="white") +
  coord_polar("y", start=0) +
  theme_void() + 
  theme(legend.position="none") +
  geom_text(aes(y = ypos, label = paste0(var,", ", prop,"%")), color = "white", size=6) +
  scale_fill_brewer(palette="Set1")

Do you have something like this in mind?

library(dplyr)
library(ggplot)

v.typA <- c(1,2,110,111,20,22,46,80,89,100,210,320,999,1000)      
v.typB <- c(1,2,10,11,20,22,40,44,60,66,80,88,100,210,320,430,540,666)
vec <- c(v.typA,v.typB)

df <- tibble(var = c("Unique", "Duplicated"),
             val = c(length(unique(vec)), length(vec) - length(unique(vec)))) %>% 
  arrange(desc(var)) %>%
  mutate(prop = val / sum(val) *100) %>%
  mutate(ypos = cumsum(prop)- 0.5*prop )

ggplot(df, aes(x="", y=prop, fill=var)) +
  geom_bar(stat="identity", width=1, color="white") +
  coord_polar("y", start=0) +
  theme_void() + 
  theme(legend.position="none") +
  geom_text(aes(y = ypos, label = paste0(var,", ", prop,"%")), color = "white", size=6) +
  scale_fill_brewer(palette="Set1")

回复收藏 0 原文

~没有更多了~