0
Thumbs Up |
Received: 3,265 Given: 4,547 |
Thumbs Up |
Received: 3,983 Given: 2,435 |
Thumbs Up |
Received: 3,983 Given: 2,435 |
Thumbs Up |
Received: 3,020 Given: 4,752 |
Thumbs Up |
Received: 3,265 Given: 4,547 |
Thumbs Up |
Received: 3,265 Given: 4,547 |
Thumbs Up |
Received: 3,020 Given: 4,752 |
Thumbs Up |
Received: 4,863 Given: 2,946 |
That's conveniently missing Saami and Komis and Mishars, who might be borderline Eurasian according to that model.
Actually the border between Eurasians and Europeans runs right of Finns and right of Turks. Finns are clearly separated from mainstream Europeans, just like Turks are.
I selected the populations in the image above manually, but here's how you can make an image that includes population that are the closest to Mishars:
Code:library(tidyverse) library(colorspace) download.file("https://drive.google.com/uc?export=download&id=1HYrDwxEXv82DvDLoq736pS5ZTGJA4dn5","modernind") t=read.csv("modernind",header=T,row.names=1) v=t["Tatar_Mishar:TTR-241",] dist=apply(t,1,function(x)sqrt(sum((x-v)^2))) t=t[names(head(sort(dist),4096)),] p=prcomp(t) p2=as.data.frame(p$x) p2$pop=sub(":.*","",row.names(t)) # p2$PC1=-p2$PC1 # uncomment to mirror PC1 p2=p2%>%add_count(pop)%>%filter(n>=3) hull=p2%>%group_by(pop)%>%slice(chull(PC1,PC2)) cen=aggregate(p2,by=list(p2$pop),mean) pct=paste0(colnames(p$x)," (",sprintf("%.1f",p$sdev/sum(p$sdev)*100),"%)") ggplot(p2,aes(x=PC1,y=PC2))+ geom_text(data=cen,aes(x=PC1,y=PC2,label=Group.1,color=Group.1),size=2)+ geom_polygon(data=hull,alpha=.2,aes(color=as.factor(pop),fill=as.factor(pop)),size=0)+ theme( aspect.ratio=3/4, legend.position="none", axis.ticks.x=element_blank(), axis.ticks.y=element_blank(), axis.ticks.length=unit(0,"pt"), panel.background=element_rect(fill="white"), panel.grid.major=element_blank(), panel.grid.minor=element_blank(), axis.text=element_text(color="black") )+ xlab(pct[1])+ylab(pct[2])+ scale_color_discrete_qualitative(palette="Dark 2")+ ggsave("/tmp/a.png") system("/usr/local/bin/mogrify -trim -bordercolor white -border 8 /tmp/a.png")
Thumbs Up |
Received: 4,473 Given: 4,611 |
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks