Color tip labels in cophylo tree using R

Question

I have created the following tree using the code below.

library(ape)
library(phytools)

#Create Random Trees just for demo purposes
TreeA<-rtree(10