1
Thumbs Up |
Received: 4,863 Given: 2,946 |
Thumbs Up |
Received: 13,023 Given: 2,190 |
LOL. Now then I said that BS? More like I calculate blonds only the people who really are that; not someones who now differs from ''coal heads'' (as I have noticed some do).
And nope all Finns are not (light) blonds. Far from that. Most of the Finns have sand brown hair.
Opposite I have said that almost all pure ethnic Finns have light eyes. And behind that, I'll stay. Meaning, yes ... there are few Finns with dark eyes, but I'm quite sure that if we would dig their family lines more back ... we would find the logical reason(s). Most of the cases anyway.
Thumbs Up |
Received: 3,437 Given: 1,436 |
Finindians can keep him. Btw, he also is from Kainuu. Ugh.
I have a joke. Kekkonen visited in USA and the host asked why all Finns are drunk. Kekkonen, being very talkative Finindian, asked from Americans if they ever drink too much. The host told " here is a gun, you can shoot every drunk you see in USA. Tomorrow Washington Post had a small news "a bald ganster shot yesterday a Finnish tourist".
Last edited by Lemminkäinen; 08-24-2021 at 04:38 PM.
Thumbs Up |
Received: 13,023 Given: 2,190 |
Thumbs Up |
Received: 4,863 Given: 2,946 |
Table 1 of Kerminen et al. 2021 includes a matrix of FST distances between Finnish subpopulations (https://journals.plos.org/plosgeneti...n-1009347-t001). I used the FST matrix to make the MDS plot below, where the extreme corners of the plot are occupied by Finns from Ostrobothnia, Kainuu, and East Lapland:
In the plot above, the position of Central Finns is intermediate between Western Finns and Eastern Finns. Therefore I think we can search for the average Finnish phenotype from Central Finland. One example is this Finn from Jyväskylä, Central Finland:Code:library(tidyverse) t=read.csv(row.names=1,check.names=F,text=",R10-Southwest,R10-East_Lapland,R10-West_Lapland,R10-Savo-Karelia,R10-Kainuu,R10-Bothnia,R10-Kuusamo,R10-Evacuated,R10-Kokkola,R10-Central_Finland R10-Southwest,,557,369,546,238,514,582,415,405,371 R10-East_Lapland,557,,404,251,267,618,545,472,226,338 R10-West_Lapland,369,497,,538,268,661,497,454,637,397 R10-Savo-Karelia,404,514,497,,497,538,632,219,363,392 R10-Kainuu,546,618,632,219,,503,505,498,362,544 R10-Bothnia,251,661,505,498,637,,602,302,542,423 R10-Kuusamo,538,538,602,302,363,639,,185,380,343 R10-Evacuated,238,503,415,185,362,371,392,,639,160 R10-Kokkola,267,582,472,405,542,338,544,343,,367 R10-Central_Finland,268,545,454,226,380,397,423,160,367,")/1e3 diag(t)=0 mds=cmdscale(as.dist(t),eig=T) p=as.data.frame(mds$points) eig=mds$eig pct=paste0("MDS dimension ",1:ncol(p)," (",sprintf("%.1f",100*eig/sum(eig)),"%)") ggplot(p,aes(V1,V2))+ geom_point(aes(x=V1,y=V2),size=.3)+ geom_text(aes(x=V1,y=V2),label=rownames(p),size=2.3,vjust=-.7)+ labs(x=pct[i],y=pct[i+1])+ scale_x_continuous(breaks=seq(-1,1,.1),expand=expansion(mult=.1))+ scale_y_continuous(breaks=seq(-1,1,.1))+ theme( axis.text=element_text(color="black",size=6), axis.text.y=element_text(angle=90,vjust=1,hjust=.5), axis.ticks.length=unit(0,"pt"), axis.ticks=element_blank(), axis.title=element_text(size=8), legend.position="none", panel.background=element_rect(fill="white"), panel.border=element_rect(color="gray80",fill=NA,size=.4), panel.grid.major=element_line(color="gray80",size=.2), panel.grid.minor=element_blank(), plot.title=element_text(size=10) ) ggsave("a.png",width=4.5,height=4.5)
Spoiler!
Last edited by Komintasavalta; 08-25-2021 at 09:57 AM.
Thumbs Up |
Received: 610 Given: 2,309 |
Thumbs Up |
Received: 13,023 Given: 2,190 |
Thumbs Up |
Received: 610 Given: 2,309 |
There are currently 1 users browsing this thread. (0 members and 1 guests)
Bookmarks