Loading 0_data/0_img/model-cairo.svg +126 −97 File changed.Preview size limit exceeded, changes collapsed. Show changes 0_data/0_scripts/F3.plot_fun.R +8 −8 Original line number Diff line number Diff line Loading @@ -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 0_data/0_scripts/S17.facet_reverse.R→0_data/0_scripts/S05.facet_reverse.R +0 −0 File moved. View file 0_data/0_scripts/S17.functions.R→0_data/0_scripts/S05.functions.R +0 −0 File moved. View file 0_data/0_scripts/S07.functions.R→0_data/0_scripts/S08.functions.R +0 −0 File moved. View file Loading
0_data/0_img/model-cairo.svg +126 −97 File changed.Preview size limit exceeded, changes collapsed. Show changes
0_data/0_scripts/F3.plot_fun.R +8 −8 Original line number Diff line number Diff line Loading @@ -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
0_data/0_scripts/S17.facet_reverse.R→0_data/0_scripts/S05.facet_reverse.R +0 −0 File moved. View file