当前位置:网站首页>venn图取交集
venn图取交集
2022-07-02 03:06:00 【youngleeyoung】
#交集
my_disease_markers_for_AM3=openxlsx::read.xlsx("G:/silicosis/sicosis/Supplementary Table.xlsx",
sheet = "Sheet1")
head(my_disease_markers_for_AM3)
library(dplyr)
disease_markers_for_AM3=list()
for (eachcolumn in colnames(my_disease_markers_for_AM3)) {
disease_markers_for_AM3[[paste0(eachcolumn)]]=my_disease_markers_for_AM3[,eachcolumn] %>%
na.omit() %>% unique()
}
head(disease_markers_for_AM3)
library(VennDiagram)#https://www.jianshu.com/p/b5a4c40c3a33
venn_list <- list(AM3_Silicosis = disease_markers_for_AM3[[1]],
MoAM_GSE184854 = disease_markers_for_AM3[[2]])
venn.diagram(venn_list, filename = 'venn2_for_humanPF-Silicosi-Bleomycin.png', imagetype = 'png',
fill = c('red', 'blue'), alpha = 0.50, cat.col = rep('black', 2),
col = 'black', cex = 1.3, fontfamily = 'serif',
cat.cex = 1.3, cat.fontfamily = 'serif')
getwd()
#继续以上述4个分组为例,组间交集元素获得
inter <- get.venn.partitions(venn_list)
for (i in 1:nrow(inter)) inter[i,'values'] <- paste(inter[[i,'..values..']], collapse = ', ')
write.table(inter[-c(5, 6)], 'venn4_inter.txt', row.names = FALSE, sep = '\t', quote = FALSE)
for (i in 1:nrow(inter)) inter[i,'values'] <- paste(inter[[i,'..values..']], collapse = ', ')
openxlsx::write.xlsx(inter[-c(5, 6)], 'venn4_inter.xlsx', row.names = FALSE, sep = ',', quote = FALSE)
边栏推荐
- 2022 hoisting machinery command examination paper and summary of hoisting machinery command examination
- 【无标题】
- 设置状态栏颜色
- PMP personal sprint preparation experience
- JDBC details
- 流线线使用阻塞还是非阻塞
- Après le mariage
- Verilog 状态机
- Soul app released the annual report on generation Z behavior: nearly 20% of young people love shopping in the vegetable market
- Force deduction daily question 540 A single element in an ordered array
猜你喜欢
MongoDB非關系型數據庫
结婚后
Feature query of hypergraph iserver rest Service
Ten minutes will take you in-depth understanding of multithreading - multithreaded teamwork: synchronous control
Use usedeferredvalue for asynchronous rendering
2022-2028 global wood vacuum coating machine industry research and trend analysis report
Leetcode question brushing (10) - sequential question brushing 46 to 50
高并发场景下缓存处理方案
[JS reverse series] analysis of a customs publicity platform
STM32__ 05 - PWM controlled DC motor
随机推荐
Actual battle of financial risk control - under Feature Engineering
PHP notes - use Smarty to set public pages (include, if, else, variable settings)
QT实现界面跳转
About DNS
What is the difference between an intermediate human resource manager and an intermediate economist (human resources direction)?
创业了...
Verilog 线型wire 种类
Verilog 过程赋值 区别 详解
Use the open source project [banner] to achieve the effect of rotating pictures (with dots)
[staff] the direction of the symbol stem and the connecting line (the symbol stem faces | the symbol stem below the third line faces upward | the symbol stem above the third line faces downward | the
What are the characteristics of common web proxy IP
Is bone conduction earphone better than traditional earphones? The sound production principle of bone conduction earphones is popular science
MMSegmentation系列之训练与推理自己的数据集(三)
QT environment generates dump to solve abnormal crash
2022-2028 global encryption software industry research and trend analysis report
Calculation of page table size of level 2, level 3 and level 4 in protection mode (4k=4*2^10)
After marriage
Mathematical calculation in real mode addressing
Framing in data transmission
[question 008: what is UV in unity?]