群體遺傳學二-PCA and structure

1.使用GCTA對群體進行PCA分析

相關結果數(shù)據(jù)見上篇簡書

#!/usr/bin/bash
###GCTA PCA分析
cd /public/home/*/data/test
#step1.準備二進制文件,如果是vcf文件车吹,可以直接使用plink軟件
#plink --vcf chr1D.merged.naive.SNP.rmhardfilter.vcf.gz --geno 0.1 --hwe 0.0001 --make-bed --out Out
plink --vcf chr1D.merged.naive.SNP.rmhardfilter.vcf.gz --pca --allow-extra-chr --out Out
#step2.生成用于PCA分析的matrix #--autosome 只分析常染色體 --pca后面的數(shù)字是需要的分組數(shù)
gcta64 --bfile Out --make-grm --autosome --out RESULT
gcta64 --grm RESULT --pca 5 --out out
#step3.使用R語言繪圖
tbl=read.table("out.eigenvec",header=TRUE)
head(tbl)
names(tbl) = c("Fid","ID","PC1","PC2","PC3")
plot(tbl$PC1,tbl$PC2,pch=c(rep(1,112),rep(2,103)),col=c(rep("blue",112),rep("red",103)),main="PCA",xlab="pc1",ylab="pc2")
legend("bottomright",c("TEXT1","TEXT2"),pch=c(rep(1),rep(2)),col=c(rep("blue"),rep("red")))

#plink --vcf *.vcf  --pca -out all_genotypegvcf_plink
#vcftools --vcf *.vcf --plink --out all_genotypegvcf_vcftools
#plink --noweb --file all_genotypegvcf_vcftools --make-bed --out all_genotypegvcf_plink
#gcta64 --bfile all_genotypegvcf_plink --make-grm --autosome 22 --out all_genotypegvcf_plink
#gcta64 --grm all_genotypegvcf_plink --pca 20 --out all_genotypegvcf_plink

2.使用admixture進行群體的structure分析

#!/usr/bin/bash
cd /public/home/*/data/test
#將vcf文件轉化為ped文件
vcftools --gzvcf chr1D.merged.naive.SNP.rmhardfilter.vcf.gz --plink --out xj
#plink過濾ped文件生成bed文件
plink --noweb --file xj --geno 0.05 --maf 0.05 --hwe 0.0001 --make-bed --out QC
#admixture 計算
for K in 1 2 3 4 5 6 7;do admixture --cv QC.bed $K|tee log${K}.out;done
# K最小為最佳的分群
grep -h CV log*.out
# Rplot
tbl = read.table("QC.7.Q");
pdf("Q7.pdf")
barplot(t(as.matrix(tbl)),col= rainbow(7),xlab="Individual", ylab="Ancestry",border = NA,space = 0);
dev.off()

#plink --vcf *.vcf  --out snp.clean  --allow-extra-chr  --make-bed
#plink --bfile snp.clean  --out prunData --recode 12 --allow-extra-chr
#admixture --cv prunData.ped 2 >> log.txt
#for K in  2 3 4 5 6 7 8 9; do (admixture --cv prunData.ped $K | tee log${K}.out)&  done
?著作權歸作者所有,轉載或內容合作請聯(lián)系作者
  • 序言:七十年代末官地,一起剝皮案震驚了整個濱河市茄茁,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌仲智,老刑警劉巖,帶你破解...
    沈念sama閱讀 219,427評論 6 508
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場離奇詭異漫仆,居然都是意外死亡,警方通過查閱死者的電腦和手機泪幌,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 93,551評論 3 395
  • 文/潘曉璐 我一進店門盲厌,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人祸泪,你說我怎么就攤上這事吗浩。” “怎么了没隘?”我有些...
    開封第一講書人閱讀 165,747評論 0 356
  • 文/不壞的土叔 我叫張陵懂扼,是天一觀的道長。 經常有香客問我右蒲,道長阀湿,這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 58,939評論 1 295
  • 正文 為了忘掉前任瑰妄,我火速辦了婚禮陷嘴,結果婚禮上,老公的妹妹穿的比我還像新娘间坐。我一直安慰自己灾挨,他們只是感情好邑退,可當我...
    茶點故事閱讀 67,955評論 6 392
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著劳澄,像睡著了一般地技。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上秒拔,一...
    開封第一講書人閱讀 51,737評論 1 305
  • 那天莫矗,我揣著相機與錄音,去河邊找鬼溯警。 笑死趣苏,一個胖子當著我的面吹牛,可吹牛的內容都是我干的梯轻。 我是一名探鬼主播食磕,決...
    沈念sama閱讀 40,448評論 3 420
  • 文/蒼蘭香墨 我猛地睜開眼,長吁一口氣:“原來是場噩夢啊……” “哼喳挑!你這毒婦竟也來了彬伦?” 一聲冷哼從身側響起,我...
    開封第一講書人閱讀 39,352評論 0 276
  • 序言:老撾萬榮一對情侶失蹤伊诵,失蹤者是張志新(化名)和其女友劉穎单绑,沒想到半個月后,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體曹宴,經...
    沈念sama閱讀 45,834評論 1 317
  • 正文 獨居荒郊野嶺守林人離奇死亡搂橙,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內容為張勛視角 年9月15日...
    茶點故事閱讀 37,992評論 3 338
  • 正文 我和宋清朗相戀三年,在試婚紗的時候發(fā)現(xiàn)自己被綠了笛坦。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片区转。...
    茶點故事閱讀 40,133評論 1 351
  • 序言:一個原本活蹦亂跳的男人離奇死亡,死狀恐怖版扩,靈堂內的尸體忽然破棺而出废离,到底是詐尸還是另有隱情,我是刑警寧澤礁芦,帶...
    沈念sama閱讀 35,815評論 5 346
  • 正文 年R本政府宣布蜻韭,位于F島的核電站,受9級特大地震影響柿扣,放射性物質發(fā)生泄漏肖方。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點故事閱讀 41,477評論 3 331
  • 文/蒙蒙 一未状、第九天 我趴在偏房一處隱蔽的房頂上張望窥妇。 院中可真熱鬧,春花似錦娩践、人聲如沸活翩。這莊子的主人今日做“春日...
    開封第一講書人閱讀 32,022評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽材泄。三九已至,卻和暖如春吨岭,著一層夾襖步出監(jiān)牢的瞬間拉宗,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 33,147評論 1 272
  • 我被黑心中介騙來泰國打工辣辫, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留旦事,地道東北人。 一個月前我還...
    沈念sama閱讀 48,398評論 3 373
  • 正文 我出身青樓急灭,卻偏偏與公主長得像姐浮,于是被迫代替她去往敵國和親。 傳聞我的和親對象是個殘疾皇子葬馋,可洞房花燭夜當晚...
    茶點故事閱讀 45,077評論 2 355