Simon/EACompanion
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

minor esthetics change on chapter 6 figures

Browse source
This commit is contained in:
Simon 2026-08-20 10:59:04 +01:00
parent e6ab24512f
commit 6613da3b6e
1 changed files with 5 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
Chapter_6.Rmd
View file

@ -30,7 +30,7 @@ rownames(dt) <-
"Kyakki W",
"Shoptlu",
"Hawwik B",
"Te\\'alla",
"Te\'alla",
"Site X",
"Tetlnat"
)
@ -51,7 +51,7 @@ for (s in seq_len(series_col)) {
ylim = c(0.5, n_phase + 0.5),
axes = FALSE,
xlab = "Width = relative frequency (%)",
ylab = ifelse(s == 1, "Phase", ""),
ylab = "",
main = colnames(dt)[s]
)
@ -71,15 +71,15 @@ for (s in seq_len(series_col)) {
}
if(s==1)
text(-(max(dt_pct[,s]/2)),seq((0.55+1.45)/2, (0.55+1.45)/2*n_phase ,length.out=n_phase),phase_labels,pos=2,font=2,,cex=2)
text(-(max(dt_pct[,s]/2)),seq((0.55+1.45)/2, (0.55+1.45)/2*n_phase ,length.out=n_phase),phase_labels,pos=2,font=2,cex=1.2)
}
```
A more common wa to represent tht would be to plot the freuecny through time, using
```{r}
matplot(cbind(1:nrow(dt) ,1:nrow(dt) ,1:nrow(dt)) ,dt,type="l",lwd=3,col=ship_cols,lty=1)
matplot(cbind(1:nrow(dt) ,1:nrow(dt) ,1:nrow(dt)) ,dt,type="l",lwd=3,col=ship_cols,lty=1,ylab="frequency",xlab="time")
```
This should remind you of the plot about chnges in allele frquency seen in Chapter 3, we will see later how we cna use these describption of the dt to test hypothese about the cultural transmission process
This should remind you of the plot about changes in allele frequency seen in Chapter 3, we will see later how we can use these describption of the data to test hypothese about the cultural transmission process.