EvalAdmix: Difference between revisions

From software
Jump to navigation Jump to search
No edit summary
No edit summary
 
(32 intermediate revisions by 2 users not shown)
Line 1: Line 1:
evalAdmix allows to evaluate the results of an admixture analysis. It takes as input the genotype data (either called genotypes in plink files or genotype likelihoods beagle files) used in the admixture analysis and the frequency
'''IMPORTANT''': version 0.95 (updated on 30/06/2021) fixes a bug in the implementation for genotype data, which caused displacement of genotypes between samples when a site had missing data. When all sites have some missingness this would result in the last samples from the analyses having a correlation of nan with all other samples; but might have some more subtle effects whenever there is some level of missingness. If you have analyses from previous versions based on genotype data with any missingness might be a good idea to re-run them after updating. The bug did not affect the genotype likelihoods implementation so if you based the analyses on genotype likelihoods you do not need to worry. If you applied it to gentoype data without any missingness you also do not need to worry.
and admixture propotions (P and Q files) generated.


The output is a pairwise correlation of residuals matrix between individuals The correlation will be 0 in case of a good fit of the data to the admixture model. When something is wrong, individuals from the same population will be positively correlated; and individuals from different populationts but that share one or more ancestral populations as admixture sources will have a negative correlation. Positive correlation between a pair of individuals might also be due to relatedness.
evalAdmix allows to evaluate the results of an admixture analysis (i.e. the result of applying [https://genome.cshlp.org/content/19/9/1655.long ADMIXTURE], [https://web.stanford.edu/group/pritchardlab/structure.html STRUCTURE], [http://www.popgen.dk/software/index.php/NgsAdmix NGSadmix] and similar). It only needs the input genotype data used for the previous admixture analysis and the output of that analysis (admixture proportions and ancestral population frequencies). The genotype input data can either be called genotypes in [https://www.cog-genomics.org/plink/1.9/formats#bed binary plink format] or genotype likelihoods in [http://www.popgen.dk/angsd/index.php/Genotype_Likelihoods#Beagle_format beagle format].


The output is a pairwise correlation of residuals matrix between individuals. The correlation will be close to 0 in case of a good fit of the data to the admixture model. When individuals do not fit the model, individuals with similar demographic histories (i.e. usually individuals from the same population) will be positively correlated; and individuals with different histories but that are modelled as sharing one or more ancestral populations as admixture sources will have a negative correlation. Positive correlation between a pair of individuals might also be due to relatedness.




[[File:evalAdmix.png|thumb]]
 
[[File:evalAdmix.jpg|thumb|550px]]




Line 14: Line 15:
evalAdmix can be installed from [https://github.com/GenisGE/evalAdmix github]  
evalAdmix can be installed from [https://github.com/GenisGE/evalAdmix github]  


<pre>  
<pre>git clone https://github.com/GenisGE/evalAdmix.git
git clone https://github.com/GenisGE/evalAdmix.git
cd evalAdmix
cd evalAdmix
make
make
Line 21: Line 21:


==Quick start==
==Quick start==
:<code> ./evalAdmix -beagle inputBeagleFile.gz  -fname myoutfiles.fopt.gz -qname myoutfiles.qopt -P 10  </code>
:<code> ./evalAdmix -beagle inputBeagleFile.gz  -fname myoutfiles.fopt.gz -qname myoutfiles.qopt -o evaladmixOut.corres -P 10  </code>
:<code> ./evalAdmix -plink inputPlinkPrefix  -fname myoutfiles.fopt.gz -qname myoutfiles.qopt -P 10  </code>
:<code> ./evalAdmix -plink inputPlinkPrefix  -fname inputPlinkPrefix.K.P -qname inputPlinkPrefix.K.Q -o evaladmixOut.corres -P 10  </code>


* '''-beagle''' beagle file of genotype likelihoods
* '''-beagle''' beagle file of genotype likelihoods
* '''-plink''' binary plink file prefix with genotype data
* '''-plink''' binary plink file prefix with genotype data
* '''-fname''' file with ancestral frequencies
* '''-fname''' file with ancestral frequencies (space delimited, rows are sites and columns ancestral populations)
* '''-qname''' file with admixture proportions
* '''-qname''' file with admixture proportions (space delimited, rows are individuals and columns ancestral populations)
* '''-o''' prefix of output file names
* '''-o''' prefix of output file names
* '''-P''' Number of threads used
* '''-P''' Number of threads used
Line 37: Line 37:
<pre>
<pre>
Arguments:
Arguments:
-plink path to binary plink file (excluding the .bed)
Required:
-beagle path to beagle file containing genotype likelihoods (alternative to -plink)
-plink path to binary plink file (excluding the .bed)
-fname path to ancestral population frequencies file
or
-qname path to admixture proportions file
      -beagle path to beagle file containing genotype likelihoods (alternative to -plink)
-o name of the output file
Setup:
-fname path to ancestral population frequencies file
-P 1 number of threads
      -qname path to admixture proportions file
-autosomeMax 23 autosome ends with this chromsome
-nIts 5 number of iterations to do for frequency correction; if set to 0 calculates correlation without correction (fast but biased)
Optional:     
-useSites 1.0 proportion of sites to use to calculate correlation of residuals
-misTol 0.05 tolerance for considering site as missing when using genotype likelihoods. Use same value as used in NGSadmix to keep compatibility when using genotype likelihoods (-beagle)
      -o name of the output file
-minMaf 0.05 minimum minor allele frequency to keep site. Use same value as used in NGSadmix to keep compatibility when using genotype likelihoods (-beagle)
     
Setup (optional):
      -P 1 number of threads
      -autosomeMax 23 autosome ends with this chromsome
      -nIts 5 number of iterations to do for frequency correction; if set to 0 calculates correlation without correction (fast but biased)
      -useSites 1.0 proportion of sites to use to calculate correlation of residuals
      -useInds filename    path to tab delimited file with first column containing all individuals ID and second column with 1 to include individual in analysis and 0 otherwise (default all individuals are included)
      -misTol 0.05 tolerance for considering site as missing when using genotype likelihoods. Use same value as used in NGSadmix to keep compatibility when using genotype likelihoods (-beagle)
      -minMaf 0.05 minimum minor allele frequency to keep site. Use same value as used in NGSadmix to keep compatibility when using genotype likelihoods (-beagle)
</pre>
</pre>


==Input File==
==Input Files==


===Plink===
===Plink===
Line 72: Line 81:
You can also use bcftools' [https://samtools.github.io/bcftools/bcftools.html] 'query' option for generating a .beagle file from a .vcf file.
You can also use bcftools' [https://samtools.github.io/bcftools/bcftools.html] 'query' option for generating a .beagle file from a .vcf file.


==Output Files==
==Output File==
The analysis performed by evalAdmix produces 1 file, containing a tab delimited N times N symmetric correlation matrix, where column i in line j contains the correlation of residuals between individual i and j, and the diagonal values (self-correlation) are set to NA:
The analysis performed by evalAdmix produces one file, containing a tab delimited N times N symmetric correlation matrix, where column i in line j contains the correlation of residuals between individual i and j, and the diagonal values (self-correlation) are set to NA:


NA      0.008609        -0.006919      0.002731        0.020224<br />
NA      0.008609        -0.006919      0.002731        0.020224<br />
Line 84: Line 93:


=== Genotype data ===
=== Genotype data ===
Download the input file containing genotype in binary plink format
Download the input file containing genotypes in binary plink format
<pre>
<pre>
wget http://pontus.popgen.dk/albrecht/open/admixTjeck/plink/admixTjeck2.bed
wget https://popgen.dk/albrecht/open/admixTjeck/plink/admixTjeck2.bed
wget http://pontus.popgen.dk/albrecht/open/admixTjeck/plink/admixTjeck2.bim
wget https://popgen.dk/albrecht/open/admixTjeck/plink/admixTjeck2.bim
wget http://pontus.popgen.dk/albrecht/open/admixTjeck/plink/admixTjeck2.fam
wget https://popgen.dk/albrecht/open/admixTjeck/plink/admixTjeck2.fam
</pre>
</pre>


Run ADMIXTURE to obtain admixture proprotions
Run ADMIXTURE [http://software.genetics.ucla.edu/admixture/] to obtain admixture proprotions
 
<pre>admixture admixTjeck2.bed 3 -j20</pre>
 
::Genotypes file prefix admixTjeck2.bed
::Number of Ancestral Populations K = 3
::Number of CPU threads = 20


<pre>admixture admixTjeck2.bed 3</pre>


Run evalAdmix
Run evalAdmix
<pre>./evalAdmix -plink admixTjeck2 -fname admixTjeck2.3.P -qname admixTjeck2.3.Q -P 20 </pre>
<pre>./evalAdmix -plink admixTjeck2 -fname admixTjeck2.3.P -qname admixTjeck2.3.Q -P 20 </pre>
::Genotypes file prefix admixTjeck2 (-plink admixTjeck2).
::Ancestral Populations frequency file admixTjeck2.3.P (-fname admixTjeck2.3.P).
::Admixture proportions file admixTjeck2.3.Q (-qname admixTjeck2.3.Q).
::Computer cores = 20 (-P 20).




Plot results in R
Plot results in R
[[File:evalAdmixK3.Q.png|thumb|frame|admixture proportions]]
[[File:evalAdmixK3.cor.png|thumb|frame|evalAdmix correlations]]
<pre>
<pre>
source("visFuns.R")
# read population labels and estimated admixture proportions
# read population labels and estimated admixture proportions
pop<-read.table("admixTjeck2.fam")
pop<-read.table("admixTjeck2.fam")
q<-read.table("admixTjeck2.3.Q")
q<-read.table("admixTjeck2.3.Q",stringsAsFactors=T)


palette(c("#A6CEE3","#1F78B4","#B2DF8A","#33A02C","#FB9A99","#E31A1C","#FDBF6F","#FF7F00","#CAB2D6","#6A3D9A","#FFFF99","#B15928","#1B9E77","#999999"))


# order according to population and plot the ADMIXTURE reults
# order according to population and plot the ADMIXTURE reults
ord<-order(pop[,2])
ord<-orderInds(pop = as.vector(pop[,2]), q = q)
barplot(t(q)[,ord],col=2:10,space=0,border=NA,xlab="Individuals",ylab="Demo2 Admixture proportions for K=3")
text(tapply(1:nrow(pop),pop[ord,2],mean),-0.05,unique(pop[ord,2]),xpd=T)
abline(v=cumsum(sapply(unique(pop[ord,2]),function(x){sum(pop[ord,2]==x)})),col=1,lwd=1.2)


#make barplot
plotAdmix(q,ord=ord,pop=pop[,2])


r<-read.table("output.corres.txt")


# Plot correlation of residuals
mypalette <- colorRampPalette(colors = c("blue", "green", "red"), space="Lab")(10)   
mylegend <- as.raster(mypalette, ncol=1)[10:1,]


layout(matrix(1:2,ncol=2), width = c(4,1),height = c(1,1))
r<-as.matrix(read.table("output.corres.txt"))
par(mar=c(5,4,4,0))
image(as.matrix(r)[ord,ord], col=mypalette,
      yaxt="n",xaxt="n", zlim=c(-0.25,0.25),useRaster=T,
      main="Correlation of residuals",
      oldstyle=T,cex.main=1)
text(tapply(1:nrow(pop),pop[ord,2],mean)/length(pop[ord,2]),-0.1,unique(pop[ord,2]),xpd=T)
text(-0.1,tapply(1:nrow(pop),pop[ord,2],mean)/length(pop[ord,2]),unique(pop[ord,2]),xpd=T)
abline(v=cumsum(sapply(unique(pop[ord,2]),function(x){sum(pop[ord,2]==x)}))/length(pop[ord,2]),col=1,lwd=1.2)
abline(h=cumsum(sapply(unique(pop[ord,2]),function(x){sum(pop[ord,2]==x)}))/length(pop[ord,2]),col=1,lwd=1.2)
par(mar=c(5,0.5,4,2))
plot(c(0,1),c(0,1),type = 'n', axes = F,xlab = '', ylab = '', main = '')
rasterImage(mylegend, 0, 0.25, 0.4,0.75)
text(x=0.8, y = c(0.25,0.5, 0.75), labels = c(-0.25, 0, 0.25),cex=0.8)


# Plot correlation of residuals
plotCorRes(cor_mat = r, pop = as.vector(pop[,2]), ord=ord, title="Evaluation of 1000G admixture proportions with K=3", max_z=0.1, min_z=-0.1)


</pre>
</pre>
=== Low depth sequencing data ===
=== Low depth sequencing data ===
Download the input file containing genotype likelihoods in beagle format
Download the input file containing genotype likelihoods in beagle format
Line 154: Line 163:
Run evalAdmix
Run evalAdmix
<pre>./evalAdmix -beagle Demo2input.gz -fname myoutfiles.fopt.gz -qname myoutfiles.qopt -P 20 </pre>
<pre>./evalAdmix -beagle Demo2input.gz -fname myoutfiles.fopt.gz -qname myoutfiles.qopt -P 20 </pre>
::Input file = input.gz
 
::Ancestral Populations frequency file myoutfiles.fopt.gz
::Genotype likelihoods file Demo2input.gz (-beagle Demo2input.gz).
::Ancestral Populations frequency file myoutfiles.fopt.gz (-fname myoutfiles.fopt.gz).
::Admixture proportions file  myoutfiles.qopt(-qname myoutfiles.qopt).
::Computer cores = 20 (-P 20).  
::Computer cores = 20 (-P 20).  


Plot results in R
Plot results in R
<pre>
<pre>
source("visFuns.R")
# read population labels and estimated admixture proportions
# read population labels and estimated admixture proportions
pop<-read.table("Demo2pop.info",as.is=T)
pop<-read.table("Demo2pop.info",as.is=T)
Line 165: Line 177:


# order according to population and plot the NGSadmix reults
# order according to population and plot the NGSadmix reults
ord<-order(pop[,1])
ord<-orderInds(pop = as.vector(pop[,1]), q = q)
barplot(t(q)[,ord],col=2:10,space=0,border=NA,xlab="Individuals",ylab="Demo2 Admixture proportions for K=3")
barplot(t(q)[,ord],col=2:10,space=0,border=NA,xlab="Individuals",ylab="Demo2 Admixture proportions for K=3")
text(tapply(1:nrow(pop),pop[ord,1],mean),-0.05,unique(pop[ord,1]),xpd=T)
text(sort(tapply(1:nrow(pop),pop[ord,1],mean)),-0.05,unique(pop[ord,1]),xpd=T)
abline(v=cumsum(sapply(unique(pop[ord,1]),function(x){sum(pop[ord,1]==x)})),col=1,lwd=1.2)
abline(v=cumsum(sapply(unique(pop[ord,1]),function(x){sum(pop[ord,1]==x)})),col=1,lwd=1.2)


r<-read.table("output.corres.txt")
r<-read.table("output.corres.txt")
image(as.matrix(r))
 
# Plot correlation of residuals
 
plotCorRes(cor_mat = r, pop = as.vector(pop[,1]), ord = ord, title="Evaluation of 1000G admixture proportions with K=3", max_z=0.1, min_z=-0.1)


</pre>
</pre>
Line 177: Line 192:
==Citation==
==Citation==


evalAdmix has a pre-print


[https://doi.org/10.1101/708883 Evaluation of Model Fit of Inferred Admixture Proportions]
[https://doi.org/10.1111/1755-0998.13171 Evaluation of Model Fit of Inferred Admixture Proportions]

Latest revision as of 18:57, 4 March 2024

IMPORTANT: version 0.95 (updated on 30/06/2021) fixes a bug in the implementation for genotype data, which caused displacement of genotypes between samples when a site had missing data. When all sites have some missingness this would result in the last samples from the analyses having a correlation of nan with all other samples; but might have some more subtle effects whenever there is some level of missingness. If you have analyses from previous versions based on genotype data with any missingness might be a good idea to re-run them after updating. The bug did not affect the genotype likelihoods implementation so if you based the analyses on genotype likelihoods you do not need to worry. If you applied it to gentoype data without any missingness you also do not need to worry.

evalAdmix allows to evaluate the results of an admixture analysis (i.e. the result of applying ADMIXTURE, STRUCTURE, NGSadmix and similar). It only needs the input genotype data used for the previous admixture analysis and the output of that analysis (admixture proportions and ancestral population frequencies). The genotype input data can either be called genotypes in binary plink format or genotype likelihoods in beagle format.

The output is a pairwise correlation of residuals matrix between individuals. The correlation will be close to 0 in case of a good fit of the data to the admixture model. When individuals do not fit the model, individuals with similar demographic histories (i.e. usually individuals from the same population) will be positively correlated; and individuals with different histories but that are modelled as sharing one or more ancestral populations as admixture sources will have a negative correlation. Positive correlation between a pair of individuals might also be due to relatedness.



Download and Installation

evalAdmix can be installed from github

git clone https://github.com/GenisGE/evalAdmix.git
cd evalAdmix
make

Quick start

./evalAdmix -beagle inputBeagleFile.gz -fname myoutfiles.fopt.gz -qname myoutfiles.qopt -o evaladmixOut.corres -P 10
./evalAdmix -plink inputPlinkPrefix -fname inputPlinkPrefix.K.P -qname inputPlinkPrefix.K.Q -o evaladmixOut.corres -P 10
  • -beagle beagle file of genotype likelihoods
  • -plink binary plink file prefix with genotype data
  • -fname file with ancestral frequencies (space delimited, rows are sites and columns ancestral populations)
  • -qname file with admixture proportions (space delimited, rows are individuals and columns ancestral populations)
  • -o prefix of output file names
  • -P Number of threads used

Parameters

./evalAdmix  
Arguments:
	Required:
		-plink path to binary plink file (excluding the .bed)
		or
	      	-beagle path to beagle file containing genotype likelihoods (alternative to -plink)
		
		-fname path to ancestral population frequencies file
	       	-qname path to admixture proportions file
		
	Optional:       
	
	       -o name of the output file
	       
	 Setup (optional):
	 
	       -P 1 number of threads
	       -autosomeMax 23	 autosome ends with this chromsome
	       -nIts 5	 number of iterations to do for frequency correction; if set to 0 calculates correlation without correction (fast but biased)
	       -useSites 1.0	 proportion of sites to use to calculate correlation of residuals
	       -useInds filename     path to tab delimited file with first column containing all individuals ID and second column with 1 to include individual in analysis and 0 otherwise (default all individuals are included)
	       -misTol 0.05 	 tolerance for considering site as missing when using genotype likelihoods. Use same value as used in NGSadmix to keep compatibility when using genotype likelihoods (-beagle)
	       -minMaf 0.05 	 minimum minor allele frequency to keep site. Use same value as used in NGSadmix to keep compatibility when using genotype likelihoods (-beagle)

Input Files

Plink

Genotype data files in binary PLINK format (.bed .fam .bim).

Beagle genotype likelhoods

The input file contains genotype likelihoods in a .beagle file format [1]. and can be compressed with gzip.

BAM files

If you have BAM files you can use ANGSD to produce genotype likelihoods in .beagle format. Please see Creation of Beagle files with ANGSD

VCF files

If you already have made a VCF file that contains genotype likehood information then it should be possible to convert .vcf files with genotype likelihoods to .beagle file via vcftools [2]

vcftools --vcf input.vcf --out test --BEAGLE-GL --chr 1,2

Chromosome has to be specified.

You can also use bcftools' [3] 'query' option for generating a .beagle file from a .vcf file.

Output File

The analysis performed by evalAdmix produces one file, containing a tab delimited N times N symmetric correlation matrix, where column i in line j contains the correlation of residuals between individual i and j, and the diagonal values (self-correlation) are set to NA:

NA 0.008609 -0.006919 0.002731 0.020224
0.008609 NA 0.000033 0.004968 -0.008470
-0.006919 0.000033 NA 0.006982 0.005664
0.002731 0.004968 0.006982 NA 0.000521
0.020224 -0.008470 0.005664 0.000521 NA

Run command example

Genotype data

Download the input file containing genotypes in binary plink format

wget https://popgen.dk/albrecht/open/admixTjeck/plink/admixTjeck2.bed
wget https://popgen.dk/albrecht/open/admixTjeck/plink/admixTjeck2.bim
wget https://popgen.dk/albrecht/open/admixTjeck/plink/admixTjeck2.fam

Run ADMIXTURE [4] to obtain admixture proprotions

admixture admixTjeck2.bed 3 -j20
Genotypes file prefix admixTjeck2.bed
Number of Ancestral Populations K = 3
Number of CPU threads = 20


Run evalAdmix

./evalAdmix -plink admixTjeck2 -fname admixTjeck2.3.P -qname admixTjeck2.3.Q -P 20 
Genotypes file prefix admixTjeck2 (-plink admixTjeck2).
Ancestral Populations frequency file admixTjeck2.3.P (-fname admixTjeck2.3.P).
Admixture proportions file admixTjeck2.3.Q (-qname admixTjeck2.3.Q).
Computer cores = 20 (-P 20).


Plot results in R

Error creating thumbnail: File missing
admixture proportions
Error creating thumbnail: File missing
evalAdmix correlations
source("visFuns.R")

# read population labels and estimated admixture proportions
pop<-read.table("admixTjeck2.fam")
q<-read.table("admixTjeck2.3.Q",stringsAsFactors=T)

palette(c("#A6CEE3","#1F78B4","#B2DF8A","#33A02C","#FB9A99","#E31A1C","#FDBF6F","#FF7F00","#CAB2D6","#6A3D9A","#FFFF99","#B15928","#1B9E77","#999999"))

# order according to population and plot the ADMIXTURE reults
ord<-orderInds(pop = as.vector(pop[,2]), q = q)

#make barplot
plotAdmix(q,ord=ord,pop=pop[,2])



r<-as.matrix(read.table("output.corres.txt"))

# Plot correlation of residuals
plotCorRes(cor_mat = r, pop = as.vector(pop[,2]), ord=ord, title="Evaluation of 1000G admixture proportions with K=3", max_z=0.1, min_z=-0.1)

Low depth sequencing data

Download the input file containing genotype likelihoods in beagle format

wget popgen.dk/software/download/NGSadmix/data/Demo2input.gz
wget popgen.dk/software/download/NGSadmix/data/Demo2pop.info

Execute NGSadmix to obtain admixture proportions

./NGSadmix -likes Demo2input.gz -K 3 -P 20 -o myoutfiles -minMaf 0.05
Input file = Demo2input.gz
Ancestral Populations K=3
Computer cores = 20 (-P 20).
Output prefix = myoutfiles (-o myoutfiles)
SNPs with MAF > 5% (-minMaf 0.05)

Run evalAdmix

./evalAdmix -beagle Demo2input.gz -fname myoutfiles.fopt.gz -qname myoutfiles.qopt -P 20 
Genotype likelihoods file Demo2input.gz (-beagle Demo2input.gz).
Ancestral Populations frequency file myoutfiles.fopt.gz (-fname myoutfiles.fopt.gz).
Admixture proportions file myoutfiles.qopt(-qname myoutfiles.qopt).
Computer cores = 20 (-P 20).

Plot results in R

source("visFuns.R")
# read population labels and estimated admixture proportions
pop<-read.table("Demo2pop.info",as.is=T)
q<-read.table("myoutfiles.qopt")

# order according to population and plot the NGSadmix reults
ord<-orderInds(pop = as.vector(pop[,1]), q = q)
barplot(t(q)[,ord],col=2:10,space=0,border=NA,xlab="Individuals",ylab="Demo2 Admixture proportions for K=3")
text(sort(tapply(1:nrow(pop),pop[ord,1],mean)),-0.05,unique(pop[ord,1]),xpd=T)
abline(v=cumsum(sapply(unique(pop[ord,1]),function(x){sum(pop[ord,1]==x)})),col=1,lwd=1.2)

r<-read.table("output.corres.txt")

# Plot correlation of residuals

plotCorRes(cor_mat = r, pop = as.vector(pop[,1]), ord = ord, title="Evaluation of 1000G admixture proportions with K=3", max_z=0.1, min_z=-0.1)

Citation

Evaluation of Model Fit of Inferred Admixture Proportions