Evolutionary origin of human traits: Difference between revisions
m (→Calculations) |
|||
Line 263: | Line 263: | ||
ggplot(summary_data[summary_data$Trait == "Brain",], aes(Hypothesis, fill = Result)) + geom_histogram() + labs(title="Brain in articles") + labs(x="", y="Count") + theme_grey(base_size=24) | ggplot(summary_data[summary_data$Trait == "Brain",], aes(Hypothesis, fill = Result)) + geom_histogram() + labs(title="Brain in articles") + labs(x="", y="Count") + theme_grey(base_size=24) | ||
ggplot(authors_uniq[authors_uniq$Trait == "Brain",], aes(Hypothesis, fill = Result)) + geom_histogram() + labs(title="Brain by authors") + labs(x="", y="Count") + theme_grey(base_size=24) | ggplot(authors_uniq[authors_uniq$Trait == "Brain",], aes(Hypothesis, fill = Result.x)) + geom_histogram() + labs(title="Brain by authors") + labs(x="", y="Count") + theme_grey(base_size=24) | ||
# Tästä eteenpäin rasvahypoteeseja | # Tästä eteenpäin rasvahypoteeseja | ||
Line 277: | Line 277: | ||
ggplot(summary_data[summary_data$Trait == "Fat",], aes(Hypothesis, fill = Result)) + geom_histogram() + labs(title="Subcutaneous fat in articles") + labs(x="", y="Count") + theme_grey(base_size=24) | ggplot(summary_data[summary_data$Trait == "Fat",], aes(Hypothesis, fill = Result)) + geom_histogram() + labs(title="Subcutaneous fat in articles") + labs(x="", y="Count") + theme_grey(base_size=24) | ||
ggplot(authors_uniq[authors_uniq$Trait == "Fat",], aes(Hypothesis, fill = Result)) + geom_histogram() + labs(title="Subcutaneous fat by author") + labs(x="", y="Count") + theme_grey(base_size=24) | ggplot(authors_uniq[authors_uniq$Trait == "Fat",], aes(Hypothesis, fill = Result.x)) + geom_histogram() + labs(title="Subcutaneous fat by author") + labs(x="", y="Count") + theme_grey(base_size=24) | ||
#Tästä eteenpäin karvattomuushypoteeseja | #Tästä eteenpäin karvattomuushypoteeseja | ||
Line 297: | Line 297: | ||
ggplot(summary_data[summary_data$Trait == "Hairlessness",], aes(Hypothesis, fill = Result)) + geom_histogram() + labs(title="Hairlessness in articles") + labs(x="", y="Count") + theme_grey(base_size=24) | ggplot(summary_data[summary_data$Trait == "Hairlessness",], aes(Hypothesis, fill = Result)) + geom_histogram() + labs(title="Hairlessness in articles") + labs(x="", y="Count") + theme_grey(base_size=24) | ||
ggplot(authors_uniq[authors_uniq$Trait == "Hairlessness",], aes(Hypothesis, fill = Result)) + geom_histogram() + labs(title="Hairlessness by authors") + labs(x="", y="Count") + theme_grey(base_size=24) | ggplot(authors_uniq[authors_uniq$Trait == "Hairlessness",], aes(Hypothesis, fill = Result.x)) + geom_histogram() + labs(title="Hairlessness by authors") + labs(x="", y="Count") + theme_grey(base_size=24) | ||
# Tästä eteenpäin kurkunpäähypoteeseja | # Tästä eteenpäin kurkunpäähypoteeseja | ||
Line 311: | Line 311: | ||
ggplot(summary_data[summary_data$Trait == "Larynx",], aes(Hypothesis, fill = Result)) + geom_histogram() + labs(title="Larynx in articles") + labs(x="", y="Count") + theme_grey(base_size=24) | ggplot(summary_data[summary_data$Trait == "Larynx",], aes(Hypothesis, fill = Result)) + geom_histogram() + labs(title="Larynx in articles") + labs(x="", y="Count") + theme_grey(base_size=24) | ||
ggplot(authors_uniq[authors_uniq$Trait == "Larynx",], aes(Hypothesis, fill = Result)) + geom_histogram() + labs(title="Larynx bu authors") + labs(x="", y="Count") + theme_grey(base_size=24) | ggplot(authors_uniq[authors_uniq$Trait == "Larynx",], aes(Hypothesis, fill = Result.x)) + geom_histogram() + labs(title="Larynx bu authors") + labs(x="", y="Count") + theme_grey(base_size=24) | ||
#Tästä eteenpäin puhehypoteeseja | #Tästä eteenpäin puhehypoteeseja | ||
Line 325: | Line 325: | ||
ggplot(summary_data[summary_data$Trait == "Speech",], aes(Hypothesis, fill = Result)) + geom_histogram() + labs(title="Speech in articles") + labs(x="", y="Count") + theme_grey(base_size=24) | ggplot(summary_data[summary_data$Trait == "Speech",], aes(Hypothesis, fill = Result)) + geom_histogram() + labs(title="Speech in articles") + labs(x="", y="Count") + theme_grey(base_size=24) | ||
ggplot(authors_uniq[authors_uniq$Trait == "Speech",], aes(Hypothesis, fill = Result)) + geom_histogram() + labs(title="Speech by authors") + labs(x="", y="Count") + theme_grey(base_size=24) | ggplot(authors_uniq[authors_uniq$Trait == "Speech",], aes(Hypothesis, fill = Result.x)) + geom_histogram() + labs(title="Speech by authors") + labs(x="", y="Count") + theme_grey(base_size=24) | ||
</rcode> | </rcode> |
Revision as of 08:06, 7 August 2016
Moderator:Hanna (see all) |
|
Upload data
|
Question
Why and how did humans become so different from other apes?
Answer
Rationale
There are conflicting hypotheses to explain why the traits that so clearly distinguish humans from other primates originally evolved. One idea is that the ancestors of humans came to live in a different kind of environment than the ancestors of chimpanzees and gorillas, and hence experienced different selection pressures and obtained a suite of unique traits as adaptations to the new environment. What that new environment was and which selection pressures were most important has been debated, however, and a number of hypotheses based on ideas other than environmental adaptation have also been proposed. To date, general discussion on the topic seems mostly to have focused on finding merit or flaws in one hypothesis at a time. The purpose of this page is to provide a structured forum for the general evaluation and comparison of the different hypotheses on human origins.
The answerers' opinions should be used as continuous [0,1] variables in such a way that each answer is transformed into its quantile of all answers to that question. Then neural networks, Bayesian belief network analyzers (such as B-source), or other statistical tools can be applied.
For single answer analyses, multinomial regression models should be applied.
Calculations
- Data version 1: raw data in Excel from Webropol: free text columns removed [1]
- Data version 2: cleaned with this code [2].
A code for drawing histograms from the literary review data showing the number of articles supporting and arguing against different hypotheses.
Literary review summary
Hidden below you can find a summary of the articles found in a literary review on the evolution of human traits done in the summer 2016 to find out, which hypothesis on which human traits are currently discussed in scientific articles, and which according to them seem the most likely ways the human traits have evolved. F, A and N in the last column stand for For, Against and Neutral, according to which point of view is argued in the article about the hypothesis in question.
Show details | |||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|---|
Tämä alla oleva koodi luo uuden sarakkeen observation ja sijoittaa siihen Result-sarakkeiden nimet. Tässä tapauksessa on vain yksi Result-sarake FAN.
index="...Trait,observation" locations="FAN" Niitä voisi olla useita, esim kolme saraketta vuosille 2014, 2015, 2016. Tällöin nämä nimet laitettaisiin locationsiin, ja ne sijoitettaisiin allekkain tietokantaan sarakkeeksi Result. index="...Trait,Year" locations="2014,2015,2016" Tämä puolestaan ei luo uutta saraketta vaan näyttää wikisivulla Result-sarakkeen nimenä FAN, vaikka se tallentuukin tietokantaan nimellä Result. Korjaan taulukon tämän mukaiseksi. index="...Trait" obs="FAN"
|
See also
Human evolution hypotheses described in Wikipedia:
- Aquatic ape hypothesis
- Endurance running hypothesis
- Gathering hypothesis
- Hunting hypothesis
- Hypotheses explaining bipedalism
- Killer ape hypothesis
Keywords
Human evolution, Bipedalism, Brain, Hairnessless, Subcutaneous fat, Speech
References