New Hypothesis

My paper primarily focuses on chimpanzees using tools in this case water collection materials based on their prior experience with the material and the materials efficency.My hypothesis elaborate sfurther which is does the efficiency of making said tools speed up as chimps keep making them.

New Figures

install.packages("ggplot2")
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.5'
## (as 'lib' is unspecified)
install.packages("dplyr")
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.5'
## (as 'lib' is unspecified)
install.packages("ggimage")
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.5'
## (as 'lib' is unspecified)
install.packages("patchwork")
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.5'
## (as 'lib' is unspecified)
install.packages("ggExtra")
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.5'
## (as 'lib' is unspecified)
library(ggplot2)
library(dplyr)
## 
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
## 
##     filter, lag
## The following objects are masked from 'package:base':
## 
##     intersect, setdiff, setequal, union
library(ggimage)
library(patchwork)
library(ggExtra)

experience=read.csv("rspb20181715supp2.csv")
manufacture=read.csv("rspb20181715supp3.csv")

Figure 1

names(manufacture)
## [1] "date"        "ID"          "material"    "context"     "manutimeuse"
## [6] "manutime"
exp2=experience %>%
  filter(cond=="knowledge") %>%
  select(ID,mossed)

manu2=manufacture %>%
  mutate(material=ifelse(material=="moss sponge", "moss", "leaf")) %>%
  left_join(exp2, by="ID") %>%
  mutate(
    mossed = factor(mossed, levels = c(0,1), labels = c("leaf-sponger","moss-sponger")),
    material = factor(material, levels = c("leaf","moss"))
  )

ggplot(manu2, aes(x=material,y=manutime,fill = mossed))+
  geom_violin(trim=FALSE, alpha=0.4)+
  geom_boxplot(width=0.1, alpha=0.7)+
   geom_jitter(position = position_jitterdodge(jitter.width = 0.15),
              shape = 1, size = 2, alpha = 0.7) +
scale_fill_viridis_d(option = "C")+
  labs(
    title = "Manipulation Time by Material and Experience",
    x = "Material",
    y = "Manipulation Time (s)",
    fill = "Experience"
  ) +
  theme_minimal()

Figure 2

plot=ggplot(manu2, aes(x=manutimeuse,y=manutime, color=mossed))+
         geom_point(size=2,alpha=0.8)+
  scale_color_viridis_d(option="C")+
  theme_minimal()+
  labs(x="Sponge Use Time (s)",
       y="Manipulation Time (s)",
       title="Chimpanzee Tool-Use Behavior",
       subtitle="Scatterplot With Marginal Density Distributions",
       color="Experience")
ggMarginal(plot, type="density", groupColour=TRUE, groupFill=TRUE)