## Sunday, July 12, 2015

### Ilhabela macroevolution final t-shirt design (& other stuff)

Since our second Latin American Macroevolution workshop - this year held in Ilhabela, Brazil - is now done, I thought I'd post a quick update on our final t-shirt design. I posted a prototypical version earlier on this blog; however subsequent to making that design we decided to switch from a continuous character map, so a stochastically mapped discrete character using a Brazilian flag color palette. Here is the result:

``````library(phytools)
## create transition matrix
Q<-matrix(c(-3,1,1,1,
1,-3,1,1,
1,1,-3,1,
1,1,1,-3),4,4)
rownames(Q)<-colnames(Q)<-letters[1:4]
## simulate stochastic character history
tree<-sim.history(tree,Q)
``````
``````## Done simulation(s).
``````
``````cols<-setNames(c("#309030","#182B78","#F0F0F0","#F0C000","#134913"),
letters[1:4])
``````

Now we're ready to make our plot:

``````layout(mat=matrix(c(1,2),2,1),heights=c(0.8,0.2))
par(bg="black")
par(fg="white")
plotSimmap(paintSubTree(tree,Ntip(tree)+1,"1"),type="fan",
ftype="off",colors=setNames("white","1"),lwd=6,part=0.5)
``````
``````## setEnv=TRUE for this type is experimental. please be patient with bugs
``````
``````plotSimmap(tree,colors=cols,type="fan",ftype="off",lwd=4,
``````
``````## setEnv=TRUE for this type is experimental. please be patient with bugs
``````
``````plot.new()
text(0.5,0.5,"Latin American Macroevolution Workshop\nIlhabela Brazil 2015",
col="white",cex=2.1,font=2)
``````

Once again, if we want to produce a high quality version without the aliasing that we see in the plot above, we can do that easily by exporting as a pdf:

``````pdf(file="brazil-colors.pdf",width=8,height=4.75)
layout(mat=matrix(c(1,2),2,1),heights=c(0.8,0.2))
par(bg="black")
par(fg="white")
plotSimmap(paintSubTree(tree,Ntip(tree)+1,"1"),type="fan",
ftype="off",colors=setNames("white","1"),lwd=6,part=0.5)
``````
``````## setEnv=TRUE for this type is experimental. please be patient with bugs
``````
``````plotSimmap(tree,colors=cols,type="fan",ftype="off",lwd=4,
``````
``````## setEnv=TRUE for this type is experimental. please be patient with bugs
``````
``````plot.new()
text(0.5,0.5,"Latin American Macroevolution Workshop\nIlhabela Brazil 2015",
col="white",cex=2.1,font=2)
dev.off()
``````
``````## png
##   2
``````

This PDF can be found here.

Note that since the plot above used a stochastic simulation, the realized t-shirt design was actually slightly different (see below).

Finally, the course was a huge success (in my opinion). Certainly, the students we had this year (like last year) were fantastic, and they even seemed to like the t-shirts:

(Click for a larger version.)

Thanks to the TAs, my co-instructors Luke Harmon & Mike Alfaro, and, of course, the excellent students. We're already looking forward to next year!

#### 1 comment:

1. The T-shirts are very Brazilian :) they looked beautiful! The course was fantastic. It was a great opportunity to know new analytical tools applied in Macroecology & Macroevolution. Thanks a lot for the opportunity to take this course ;)

Note: due to the very large amount of spam, all comments are now automatically submitted for moderation.