Commit a5aeb3c5 authored by Kosmas Hench's avatar Kosmas Hench
Browse files

version: revision R1

parent 89b22387
Loading
Loading
Loading
Loading
+126 −97

File changed.

Preview size limit exceeded, changes collapsed.

+8 −8
Original line number Diff line number Diff line
@@ -81,24 +81,24 @@ create_K_plot <- function(searchLG,gfffile,xr,searchgene,secondary_genes,searchs
          panel.border = element_blank()
    );

 if(muskID=='a'){
 if(muskID=='A'){
   p11$layers[[4]]$data$label <- c("italic(sox10)","italic(rnaseh2a)")
 } else if(muskID=='b'){
 } else if(muskID=='B'){
     p11$layers[[4]]$data$label <- c("italic(casz1.3)","italic(casz1.2)","italic(casz1.1)")
   } else if(muskID=='c'){
   } else if(muskID=='C'){
     p11$layers[[4]]$data$label <- c('italic(hoxc10a)',"italic(hoxc11a)","italic(hoxc12a)","italic(hoxc13a)","italic(calcoco1)")
   }else if(muskID=='e'){
   }else if(muskID=='E'){
     p11$layers[[4]]$data$label <- c("italic(polr1d)","italic(ednrb)")
   } else if(muskID=='f'){
   } else if(muskID=='F'){
     p11$layers[[4]]$data$label <- c("italic(foxd3)","italic(alg6)","italic(efcab7)")
   }  else if(muskID=='d'){
   }  else if(muskID=='D'){
       p11$layers[[4]]$data$label <- c("italic(hcfc1)","italic(hcfc1[2])","italic(hcfc1[1])",'italic(paste(sws2a,"\u03B2"))',
                                       'italic(paste(sws2a,"\u03B1"))',"italic(sw2b)","italic(lws)",
                                       "italic(gnl3l)","italic(tfe3)","italic(mdfic2)","italic(cxxc1[3])",
                                       "italic(cxxc1[1])",'italic(mbd1)','italic(ccdc120)')
   }else if(muskID=='g'){
   }else if(muskID=='G'){
     p11$layers[[4]]$data$label <- c("italic(lgals3bpb)","italic(mpnd)","italic(sh3gl1)","italic(rorb)")
   }else if(muskID=='h'){
   }else if(muskID=='H'){
     p11$layers[[4]]$data$label <- c("italic(alg2)","italic(sec61b)","italic(nr4a3)",
                                        "italic(stx17)","italic(erp44)","italic(invs)")
   }
Loading