如何解决R中的维恩图显示字符标签
我对 R 非常陌生,正在尝试使用包含所有分类变量的数据创建一个 4 维维恩图。
例如,如果我有下面的数据,并且我想在 R 中创建一个维恩图来在 A 和 B 的交叉点显示单词“你好”而不是计数和百分比,我该怎么做?我在创建下面的列表后使用了代码 ggvennDigram(x)
,它给了我计数而不是实际的数据标签。
x=list()
x$A=as.character(c("hello"))
x$B=as.character(c("hello","how","are"))
x$C=as.character(c("how","You"))
x$D=as.character(c("me","her","they"))
解决方法
默认情况下图形不能被标记。这是带有一些 hack 的解决方案。 (修改自 Venn Diagram with Item labels)
library(VennDiagram)
library(stringr)
library(purrr)
# Generate plot
v <- venn.diagram(x,fill = c("orange","blue","red","green"),filename=NULL)
# Calculate overlap site
overlaps <- calculate.overlap(x)
overlaps <- overlaps[str_sort(names(overlaps),numeric = TRUE)] # sort base on numeric value
# Apply name to global variable
# Index of venn diagram start at calculate.overlaps + 8. You have to find the index value by yourself for (3,5,6,7,.. venn)
walk2(seq(overlaps) +8,seq(overlaps),function(x,y) {v[[x]]$label <<- paste0(overlaps[[y]],collapse = "\n")})
# Draw plot
grid.draw(v)
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。