add column in alldginn

covid_comp_script0_table.Rnw

@@ -460,15 +460,18 @@ dim(dginnbats)
 dim(dginnT)
 
 # genes in common
-dginnT$Gene.name[dginnT$Gene.name %in% dginnbats$Gene.name]
+common<-dginnT$Gene.name[dginnT$Gene.name %in% dginnbats$Gene.name]
+common
 length(dginnT$Gene.name[dginnT$Gene.name %in% dginnbats$Gene.name])
 
 # genes only in primates
-dginnT$Gene.name[(dginnT$Gene.name %in% dginnbats$Gene.name)==FALSE]
+onlyprimates<-dginnT$Gene.name[(dginnT$Gene.name %in% dginnbats$Gene.name)==FALSE]
+onlyprimates
 length(dginnT$Gene.name[(dginnT$Gene.name %in% dginnbats$Gene.name)==FALSE])
 
 # genes only in bats
-dginnbats$Gene.name[(dginnbats$Gene.name %in% dginnT$Gene.name)==FALSE]
+onlybats<-dginnbats$Gene.name[(dginnbats$Gene.name %in% dginnT$Gene.name)==FALSE]
+onlybats
 length(dginnbats$Gene.name[(dginnbats$Gene.name %in% dginnT$Gene.name)==FALSE])
 
 @
@@ -477,6 +480,13 @@ length(dginnbats$Gene.name[(dginnbats$Gene.name %in% dginnT$Gene.name)==FALSE])
 tab<-merge(dginnT, dginnbats, by="Gene.name", all.x=T, all.y=T)
 dim(tab)
 
+# add column "shared"/"only bats"/"only primates"
+tab$status<-""
+tab$status[tab$Gene.name %in% common]<-"shared"
+tab$status[tab$Gene.name %in% onlyprimates]<-"onlyprimates"
+tab$status[tab$Gene.name %in% onlybats]<-"onlybats"
+table(tab$status)
+
 write.table(tab, "covid_comp_alldginn.txt", sep="\t")
 @