Commit 146c79d1 authored by Kosmas Hench's avatar Kosmas Hench
Browse files

complete plotting scripts

parent 181e3da6

0_data/0_scripts/S11.getIHH12.R

+12 −13
Original line number Original line Diff line number Diff line 
getIHH12 <- function(searchLG,xr){

getIHH12 <- function(searchLG,xr){

  np <- read.csv(paste('./iHH12/',searchLG,'/iHH12.nig.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  np <- read.csv(paste('../../2_output/08_popGen/09_iHH12/selscan_merge_10kb/',searchLG,'/iHH12.nig.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='nig')

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='nig')

  nu <- read.csv(paste('./iHH12/',searchLG,'/iHH12.pue.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  nu <- read.csv(paste('../../2_output/08_popGen/09_iHH12/selscan_merge_10kb/',searchLG,'/iHH12.pue.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='pue')

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='pue')

  pu <- read.csv(paste('./iHH12/',searchLG,'/iHH12.uni.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  pu <- read.csv(paste('../../2_output/08_popGen/09_iHH12/selscan_merge_10kb/',searchLG,'/iHH12.uni.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='uni')

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='uni')

  

  

  data_iHH12 <- rbind(np,nu,pu) %>% mutate(POS=(BIN_START+BIN_END)/2,window='bolditalic(iHH[12])')

  data_iHH12 <- rbind(np,nu,pu) %>% mutate(POS=(BIN_START+BIN_END)/2,window='bolditalic(iHH[12])')

  

  

  npB <- read.csv(paste('./iHH12/',searchLG,'/iHH12.nigbel.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  npB <- read.csv(paste('../../2_output/08_popGen/09_iHH12/selscan_merge_10kb/',searchLG,'/iHH12.nigbel.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='nig',group='bel')

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='nig',group='bel')

  nuB <- read.csv(paste('./iHH12/',searchLG,'/iHH12.puebel.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  nuB <- read.csv(paste('../../2_output/08_popGen/09_iHH12/selscan_merge_10kb/',searchLG,'/iHH12.puebel.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='pue',group='bel')

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='pue',group='bel')

  puB <- read.csv(paste('./iHH12/',searchLG,'/iHH12.unibel.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  puB <- read.csv(paste('../../2_output/08_popGen/09_iHH12/selscan_merge_10kb/',searchLG,'/iHH12.unibel.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='uni',group='bel')

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='uni',group='bel')

  

  

  npH <- read.csv(paste('./iHH12/',searchLG,'/iHH12.puehon.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  npH <- read.csv(paste('../../2_output/08_popGen/09_iHH12/selscan_merge_10kb/',searchLG,'/iHH12.puehon.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='nig',group='hon')

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='nig',group='hon')

  nuH <- read.csv(paste('./iHH12/',searchLG,'/iHH12.puehon.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  nuH <- read.csv(paste('../../2_output/08_popGen/09_iHH12/selscan_merge_10kb/',searchLG,'/iHH12.puehon.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='pue',group='hon')

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='pue',group='hon')

  puH <- read.csv(paste('./iHH12/',searchLG,'/iHH12.unihon.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  puH <- read.csv(paste('../../2_output/08_popGen/09_iHH12/selscan_merge_10kb/',searchLG,'/iHH12.unihon.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='uni',group='hon')

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='uni',group='hon')

  

  

  npP <- read.csv(paste('./iHH12/',searchLG,'/iHH12.nigboc.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  npP <- read.csv(paste('../../2_output/08_popGen/09_iHH12/selscan_merge_10kb/',searchLG,'/iHH12.nigboc.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='nig',group='pan') 

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='nig',group='pan') 

  nuP <- read.csv(paste('./iHH12/',searchLG,'/iHH12.pueboc.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  nuP <- read.csv(paste('../../2_output/08_popGen/09_iHH12/selscan_merge_10kb/',searchLG,'/iHH12.pueboc.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='pue',group='pan')

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='pue',group='pan')

  puP <- read.csv(paste('./iHH12/',searchLG,'/iHH12.uniboc.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  puP <- read.csv(paste('../../2_output/08_popGen/09_iHH12/selscan_merge_10kb/',searchLG,'/iHH12.uniboc.selscan-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='uni',group='pan')

    select(BIN_START,BIN_END,AVGihh12) %>% mutate(run='uni',group='pan')

  

  

  data_iHH12_pw <- rbind(npB,nuB,puB,npH,nuH,puH,npP,nuP,puP) %>%

  data_iHH12_pw <- rbind(npB,nuB,puB,npH,nuH,puH,npP,nuP,puP) %>%

    mutate(POS=(BIN_START+BIN_END)/2,window='bolditalic(ind~iHH[12])')

    mutate(POS=(BIN_START+BIN_END)/2,window='bolditalic(ind~iHH[12])')

  

  

  

  return(list(data_iHH12_pw=data_iHH12_pw,data_iHH12=data_iHH12))

  return(list(data_iHH12_pw=data_iHH12_pw,data_iHH12=data_iHH12))

}
 
}
 
 No newline at end of file

0_data/0_scripts/S11.getPI.R

+12 −12
Original line number Original line Diff line number Diff line 
getPI<- function(searchLG,xr){

getPI<- function(searchLG,xr){

  np <- read.csv(gzfile(paste('./pi/',searchLG,'/dxy.nig.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  np <- read.csv(gzfile(paste('../../2_output/08_popGen/02_pi/10kb/',searchLG,'/pi.nig.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig')

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig')

  nu <- read.csv(gzfile(paste('./pi/',searchLG,'/dxy.pue.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  nu <- read.csv(gzfile(paste('../../2_output/08_popGen/02_pi/10kb/',searchLG,'/pi.pue.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue')

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue')

  pu <- read.csv(gzfile(paste('./pi/',searchLG,'/dxy.uni.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  pu <- read.csv(gzfile(paste('../../2_output/08_popGen/02_pi/10kb/',searchLG,'/pi.uni.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='uni')

    select(BIN_START,BIN_END,PI) %>% mutate(run='uni')

  

  

  data_pi <- rbind(np,nu,pu) %>% mutate(POS=(BIN_START+BIN_END)/2,window='bolditalic(pi)')

  data_pi <- rbind(np,nu,pu) %>% mutate(POS=(BIN_START+BIN_END)/2,window='bolditalic(pi)')

  

  

  npB <- read.csv(gzfile(paste('./pi/',searchLG,'/dxy.nigbel.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  npB <- read.csv(gzfile(paste('../../2_output/08_popGen/02_pi/10kb/',searchLG,'/pi.nigbel.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig',group='bel')

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig',group='bel')

  nuB <- read.csv(gzfile(paste('./pi/',searchLG,'/dxy.puebel.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  nuB <- read.csv(gzfile(paste('../../2_output/08_popGen/02_pi/10kb/',searchLG,'/pi.puebel.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue',group='bel')

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue',group='bel')

  puB <- read.csv(gzfile(paste('./pi/',searchLG,'/dxy.unibel.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  puB <- read.csv(gzfile(paste('../../2_output/08_popGen/02_pi/10kb/',searchLG,'/pi.unibel.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='uni',group='bel')

    select(BIN_START,BIN_END,PI) %>% mutate(run='uni',group='bel')

  

  

  npH <- read.csv(gzfile(paste('./pi/',searchLG,'/dxy.nighon.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  npH <- read.csv(gzfile(paste('../../2_output/08_popGen/02_pi/10kb/',searchLG,'/pi.nighon.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig',group='hon')

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig',group='hon')

  nuH <- read.csv(gzfile(paste('./pi/',searchLG,'/dxy.puehon.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  nuH <- read.csv(gzfile(paste('../../2_output/08_popGen/02_pi/10kb/',searchLG,'/pi.puehon.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue',group='hon')

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue',group='hon')

  puH <- read.csv(gzfile(paste('./pi/',searchLG,'/dxy.unihon.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  puH <- read.csv(gzfile(paste('../../2_output/08_popGen/02_pi/10kb/',searchLG,'/pi.unihon.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='uni',group='hon')

    select(BIN_START,BIN_END,PI) %>% mutate(run='uni',group='hon')

  

  

  npP <- read.csv(gzfile(paste('./pi/',searchLG,'/dxy.nigboc.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  npP <- read.csv(gzfile(paste('../../2_output/08_popGen/02_pi/10kb/',searchLG,'/pi.nigboc.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig',group='pan') 

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig',group='pan') 

  nuP <- read.csv(gzfile(paste('./pi/',searchLG,'/dxy.pueboc.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  nuP <- read.csv(gzfile(paste('../../2_output/08_popGen/02_pi/10kb/',searchLG,'/pi.pueboc.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue',group='pan')

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue',group='pan')

  puP <- read.csv(gzfile(paste('./pi/',searchLG,'/dxy.uniboc.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  puP <- read.csv(gzfile(paste('../../2_output/08_popGen/02_pi/10kb/',searchLG,'/pi.uniboc.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='uni',group='pan')

    select(BIN_START,BIN_END,PI) %>% mutate(run='uni',group='pan')

  

  

  data_pi_pw <- rbind(npB,nuB,puB,npH,nuH,puH,npP,nuP,puP) %>%

  data_pi_pw <- rbind(npB,nuB,puB,npH,nuH,puH,npP,nuP,puP) %>%

0_data/0_scripts/S11.getPIpw.R

+12 −13
Original line number Original line Diff line number Diff line 
getPIpw<- function(searchLG,xr){

getPIpw<- function(searchLG,xr){

  np <- read.csv(gzfile(paste('./pi_pw/',searchLG,'/dxy.pue-nig.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  np <- read.csv(gzfile(paste('../../2_output/08_popGen/03_pi_pw/10kb/',searchLG,'/pi-pw.pue-nig.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-pue')

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-pue')

  nu <- read.csv(gzfile(paste('./pi_pw/',searchLG,'/dxy.nig-uni.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  nu <- read.csv(gzfile(paste('../../2_output/08_popGen/03_pi_pw/10kb/',searchLG,'/pi-pw.nig-uni.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-uni')

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-uni')

  pu <- read.csv(gzfile(paste('./pi_pw/',searchLG,'/dxy.uni-pue.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  pu <- read.csv(gzfile(paste('../../2_output/08_popGen/03_pi_pw/10kb/',searchLG,'/pi-pw.uni-pue.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue-uni')

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue-uni')

  

  

  data_pi <- rbind(np,nu,pu) %>% mutate(POS=(BIN_START+BIN_END)/2,window='bolditalic(pi~pw)')

  data_pi <- rbind(np,nu,pu) %>% mutate(POS=(BIN_START+BIN_END)/2,window='bolditalic(pi~pw)')

  

  

  npB <- read.csv(gzfile(paste('./pi_pw/',searchLG,'/dxy.puebel-nigbel.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  npB <- read.csv(gzfile(paste('../../2_output/08_popGen/03_pi_pw/10kb/',searchLG,'/pi-pw.puebel-nigbel.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-pue',group='bel')

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-pue',group='bel')

  nuB <- read.csv(gzfile(paste('./pi_pw/',searchLG,'/dxy.nigbel-unibel.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  nuB <- read.csv(gzfile(paste('../../2_output/08_popGen/03_pi_pw/10kb/',searchLG,'/pi-pw.nigbel-unibel.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-uni',group='bel')

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-uni',group='bel')

  puB <- read.csv(gzfile(paste('./pi_pw/',searchLG,'/dxy.unibel-puebel.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  puB <- read.csv(gzfile(paste('../../2_output/08_popGen/03_pi_pw/10kb/',searchLG,'/pi-pw.unibel-puebel.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue-uni',group='bel')

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue-uni',group='bel')

  

  

  npH <- read.csv(gzfile(paste('./pi_pw/',searchLG,'/dxy.puehon-nighon.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  npH <- read.csv(gzfile(paste('../../2_output/08_popGen/03_pi_pw/10kb/',searchLG,'/pi-pw.puehon-nighon.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-pue',group='hon')

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-pue',group='hon')

  nuH <- read.csv(gzfile(paste('./pi_pw/',searchLG,'/dxy.nighon-unihon.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  nuH <- read.csv(gzfile(paste('../../2_output/08_popGen/03_pi_pw/10kb/',searchLG,'/pi-pw.nighon-unihon.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-uni',group='hon')

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-uni',group='hon')

  puH <- read.csv(gzfile(paste('./pi_pw/',searchLG,'/dxy.unihon-puehon.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  puH <- read.csv(gzfile(paste('../../2_output/08_popGen/03_pi_pw/10kb/',searchLG,'/pi-pw.unihon-puehon.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue-uni',group='hon')

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue-uni',group='hon')

  

  

  npP <- read.csv(gzfile(paste('./pi_pw/',searchLG,'/dxy.pueboc-nigboc.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  npP <- read.csv(gzfile(paste('../../2_output/08_popGen/03_pi_pw/10kb/',searchLG,'/pi-pw.pueboc-nigboc.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-pue',group='pan') 

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-pue',group='pan') 

  nuP <- read.csv(gzfile(paste('./pi_pw/',searchLG,'/dxy.nigboc-uniboc.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  nuP <- read.csv(gzfile(paste('../../2_output/08_popGen/03_pi_pw/10kb/',searchLG,'/pi-pw.nigboc-uniboc.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-uni',group='pan')

    select(BIN_START,BIN_END,PI) %>% mutate(run='nig-uni',group='pan')

  puP <- read.csv(gzfile(paste('./pi_pw/',searchLG,'/dxy.uniboc-pueboc.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

  puP <- read.csv(gzfile(paste('../../2_output/08_popGen/03_pi_pw/10kb/',searchLG,'/pi-pw.uniboc-pueboc.',searchLG,'-10kb-1kb.windowed.pi.gz',sep='')),sep='\t') %>% 

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue-uni',group='pan')

    select(BIN_START,BIN_END,PI) %>% mutate(run='pue-uni',group='pan')

  

  

  data_pi_pw <- rbind(npB,nuB,puB,npH,nuH,puH,npP,nuP,puP) %>%

  data_pi_pw <- rbind(npB,nuB,puB,npH,nuH,puH,npP,nuP,puP) %>%

    mutate(POS=(BIN_START+BIN_END)/2,window='bolditalic(pw~pi~pw)')

    mutate(POS=(BIN_START+BIN_END)/2,window='bolditalic(pw~pi~pw)')

  

  

  

  return(list(data_piPW_pw=data_pi_pw,data_piPW=data_pi))

  return(list(data_piPW_pw=data_pi_pw,data_piPW=data_pi))

}
 
}
 
 No newline at end of file

0_data/0_scripts/S11.getXPEHH.R

+12 −13
Original line number Original line Diff line number Diff line 
getXPEHH <- function(searchLG,xr){

getXPEHH <- function(searchLG,xr){

  np <- read.csv(paste('./xpEHH/',searchLG,'/xpEHH.pue-nig-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  np <- read.csv(paste('../../2_output/08_popGen/10_xpEHH/selscan_merge_10kb/',searchLG,'/xpEHH.pue-nig-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-pue')

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-pue')

  nu <- read.csv(paste('./xpEHH/',searchLG,'/xpEHH.nig-uni-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  nu <- read.csv(paste('../../2_output/08_popGen/10_xpEHH/selscan_merge_10kb/',searchLG,'/xpEHH.nig-uni-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-uni')

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-uni')

  pu <- read.csv(paste('./xpEHH/',searchLG,'/xpEHH.pue-uni-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  pu <- read.csv(paste('../../2_output/08_popGen/10_xpEHH/selscan_merge_10kb/',searchLG,'/xpEHH.pue-uni-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='pue-uni')

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='pue-uni')

  

  

  data_xpEHH <- rbind(np,nu,pu) %>% mutate(POS=(BIN_START+BIN_END)/2,window='bolditalic(xpEHH)')

  data_xpEHH <- rbind(np,nu,pu) %>% mutate(POS=(BIN_START+BIN_END)/2,window='bolditalic(xpEHH)')

  

  

  npB <- read.csv(paste('./xpEHH/',searchLG,'/xpEHH.puebel-nigbel-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  npB <- read.csv(paste('../../2_output/08_popGen/10_xpEHH/selscan_merge_10kb/',searchLG,'/xpEHH.puebel-nigbel-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-pue',group='bel')

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-pue',group='bel')

  nuB <- read.csv(paste('./xpEHH/',searchLG,'/xpEHH.nigbel-unibel-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  nuB <- read.csv(paste('../../2_output/08_popGen/10_xpEHH/selscan_merge_10kb/',searchLG,'/xpEHH.nigbel-unibel-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-uni',group='bel')

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-uni',group='bel')

  puB <- read.csv(paste('./xpEHH/',searchLG,'/xpEHH.puebel-unibel-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  puB <- read.csv(paste('../../2_output/08_popGen/10_xpEHH/selscan_merge_10kb/',searchLG,'/xpEHH.puebel-unibel-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='pue-uni',group='bel')

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='pue-uni',group='bel')

  

  

  npH <- read.csv(paste('./xpEHH/',searchLG,'/xpEHH.puehon-nighon-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  npH <- read.csv(paste('../../2_output/08_popGen/10_xpEHH/selscan_merge_10kb/',searchLG,'/xpEHH.puehon-nighon-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-pue',group='hon')

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-pue',group='hon')

  nuH <- read.csv(paste('./xpEHH/',searchLG,'/xpEHH.nighon-unihon-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  nuH <- read.csv(paste('../../2_output/08_popGen/10_xpEHH/selscan_merge_10kb/',searchLG,'/xpEHH.nighon-unihon-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-uni',group='hon')

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-uni',group='hon')

  puH <- read.csv(paste('./xpEHH/',searchLG,'/xpEHH.puehon-unihon-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  puH <- read.csv(paste('../../2_output/08_popGen/10_xpEHH/selscan_merge_10kb/',searchLG,'/xpEHH.puehon-unihon-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='pue-uni',group='hon')

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='pue-uni',group='hon')

  

  

  npP <- read.csv(paste('./xpEHH/',searchLG,'/xpEHH.pueboc-nigboc-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  npP <- read.csv(paste('../../2_output/08_popGen/10_xpEHH/selscan_merge_10kb/',searchLG,'/xpEHH.pueboc-nigboc-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-pue',group='pan') 

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-pue',group='pan') 

  nuP <- read.csv(paste('./xpEHH/',searchLG,'/xpEHH.nigboc-uniboc-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  nuP <- read.csv(paste('../../2_output/08_popGen/10_xpEHH/selscan_merge_10kb/',searchLG,'/xpEHH.nigboc-uniboc-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-uni',group='pan')

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='nig-uni',group='pan')

  puP <- read.csv(paste('./xpEHH/',searchLG,'/xpEHH.pueboc-uniboc-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

  puP <- read.csv(paste('../../2_output/08_popGen/10_xpEHH/selscan_merge_10kb/',searchLG,'/xpEHH.pueboc-uniboc-',searchLG,'-10kb-1kb.txt',sep=''),sep='\t') %>% 

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='pue-uni',group='pan')

    select(BIN_START,BIN_END,AVGxxEHH) %>% mutate(run='pue-uni',group='pan')

  

  

  data_xpEHH_pw <- rbind(npB,nuB,puB,npH,nuH,puH,npP,nuP,puP) %>%

  data_xpEHH_pw <- rbind(npB,nuB,puB,npH,nuH,puH,npP,nuP,puP) %>%

    mutate(POS=(BIN_START+BIN_END)/2,window='bolditalic(pw~xpEHH)')

    mutate(POS=(BIN_START+BIN_END)/2,window='bolditalic(pw~xpEHH)')

  

  

  

  return(list(data_xpEHH_pw=data_xpEHH_pw,data_xpEHH=data_xpEHH))

  return(list(data_xpEHH_pw=data_xpEHH_pw,data_xpEHH=data_xpEHH))

}
 
}
 
 No newline at end of file

0_data/0_scripts/S11.plot_fun.R

+84 −31

File changed.

Preview size limit exceeded, changes collapsed.