Greek letters disappear from pdf when exporting figure from R

Hi-

I am interested in generating a figure with a ∆ in the title of the y-axis. Basically, if I export the plot as a .png file it gives me the right symbol in the y-axis label, BUT if I export as a .pdf, the ∆ just turns into ".." Here is my code and data:

sp <- ggplot(qdata, mapping=aes(x=Time, y=delCt, color=Genotype))+ 
  geom_point(alpha=0.5)+
  geom_smooth(se=FALSE, size=0.5)+
  facet_grid(Gene~Species, scales="free_y")+
  scale_x_continuous(breaks=c(-12, 0, 6, 12))+
  labs(y="Relative expression (\u0394Ct)", x="Extended darkness (hours)")+
  theme_classic()+
  theme(axis.title=element_text(size=6, color="black"),
        axis.text=element_text(size=6, color="black"),
        strip.text=element_text(size=6, color="black", face="italic"),
        panel.border=element_rect(fill = NA, color="black"),
        legend.title=element_blank(),
        legend.text=element_text(size=6, color="black"),
        legend.position=c(0.30,0.67))+
  scale_color_manual(values=c("red", "black"))+
  scale_fill_manual(values=c("red", "black"))
sp

And the data:

> dput(qdata)
structure(list(Species = structure(c(1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 1L, 
1L, 1L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 
2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 2L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 
3L, 3L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 
4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 5L, 
5L, 5L), .Label = c("Arabidopsis", "Nicotiana", "Mesembryanthemum", 
"Lotus", "Pisum"), class = "factor"), Genotype = c("pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "WT", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", 
"WT", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "WT", "WT", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "WT", "WT", "WT", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "WT", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "WT", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", 
"WT", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "WT", "WT", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "WT", "WT", "WT", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "WT", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "WT", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", 
"WT", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "WT", "WT", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "WT", "WT", "WT", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "pgm", "pgm", "pgm", "pgm", "pgm", 
"pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "pgm", "WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT"), 
    Time = c(-12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, 
    -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 
    0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 
    6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, 
    -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 
    0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 
    6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 
    12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, 
    -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 
    6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 
    12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, 
    -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 
    0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 
    6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, 
    -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 
    0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 
    6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 
    12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, 
    -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 
    6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 
    12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, 
    -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 
    0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 
    6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, 
    -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 
    0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 
    6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 
    12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, 
    -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 
    6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 
    12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, 
    -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 
    0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 
    6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, 
    -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 
    0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 
    6, 6, 12, 12, 12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 
    12, -12, -12, -12, 0, 0, 0, 6, 6, 6, 12, 12, 12, -12, -12, 
    -12, 0, 0, 0, 6, 6, 6, 12, 12, 12), Gene = c("DIN6", "DIN6", 
    "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", 
    "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", 
    "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", 
    "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", 
    "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", 
    "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", 
    "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", 
    "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", 
    "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", 
    "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", 
    "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", 
    "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", 
    "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", 
    "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", 
    "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "DIN6", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", "BCAT2", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", "KINy1", 
    "KINy1", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", 
    "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", 
    "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", 
    "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", 
    "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", 
    "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", 
    "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", 
    "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", 
    "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", 
    "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", 
    "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", 
    "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", 
    "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", 
    "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", 
    "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", "TPS9", 
    "TPS9", "TPS9", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", 
    "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", 
    "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", 
    "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", 
    "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", 
    "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", 
    "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", 
    "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", 
    "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", 
    "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", 
    "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", 
    "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", 
    "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", 
    "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", 
    "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", "ACX2", 
    "ACX2", "ACX2"), delCt = c(-6.24, -5.08, -6.163333333, 2.546666667, 
    3.593333333, 2.68, 5.393333333, 5.6, 6.22, 5.183333333, 5.2, 
    5.543333333, -6.823333333, -6.806666667, -5.183333333, -1.983333333, 
    -2.326666667, -2.283333333, 5.693333333, 5.23, 5.433333333, 
    5.376666667, 6.593333333, 5.423333333, -6.366666667, -6.623333333, 
    -5.63, 1.076666667, 0.53, -0.036666667, 1.42, 2.31, 2.146666667, 
    2.006666667, 1.806666667, 1.753333333, -8.093333333, -7.563333333, 
    -8.026666667, -6.253333333, -6.156666667, -5.163333333, 0.92, 
    1.096666667, 0.463333333, 0.816666667, 0.74, 0.586666667, 
    -10.31666667, -10.17666667, -10.47666667, -1.676666667, -2.073333333, 
    -1.316666667, 0.783333333, 0.59, 0.666666667, 0.766666667, 
    0.18, 1.09, -10.65, -10.46, -11.61, -9.19, -9.63, -9.896666667, 
    -0.506666667, -0.446666667, -0.41, 0.876666667, 0.52, 0.49, 
    -1.33, -1.386666667, -1.606666667, -4.05, -2.696666667, -4.053333333, 
    -3.676666667, -2.11, -2.23, 0.513333333, -0.03, 0.273333333, 
    -1.25, -1.263333333, -1.413333333, -2.3, -2.416666667, -2.823333333, 
    -2.41, -1.84, -1.36, 0.06, 0.536666667, 0.09, -2.853333333, 
    -3.623333333, -0.703333333, 1.083333333, 1.25, 1.053333333, 
    4.41, 4.696666667, 4.513333333, 4.313333333, 4.77, 4.92, 
    -2.24, -0.263333333, 0.256666667, -0.81, -1.45, -0.07, 3.51, 
    3.856666667, 3.773333333, 5.076666667, 4.906666667, 5.513333333, 
    -10.12666667, -9.303333333, -9.763333333, -4.58, -4.803333333, 
    -4.98, -2.5, -2, -1.666666667, -0.473333333, -0.596666667, 
    -0.233333333, -10.39666667, -10.39, -10.79, -10.19666667, 
    -11.86, -11.37666667, -1.143333333, -1.326666667, -1.21, 
    -0.576666667, -1.046666667, -1.196666667, -4.183333333, -2.496666667, 
    -2.096666667, -1.293333333, -2.816666667, -2.793333333, -0.483333333, 
    0.066666667, -1.95, 0.083333333, -1.266666667, -0.36, -2.186666667, 
    -2.516666667, -2.38, -1.833333333, -1.723333333, -2.35, -0.433333333, 
    -0.236666667, -0.973333333, -0.31, 0, -0.913333333, -4.916666667, 
    -5.236666667, -5.9, -2.766666667, -2.6, -6.063333333, -2.483333333, 
    -1.953333333, -2.41, -2.92, -1.783333333, -1.296666667, -4.68, 
    -4.526666667, -5.423333333, -3.73, -4.426666667, -4.1, -1.82, 
    -1.376666667, -1.31, -0.48, -0.44, -0.68, -3.883333333, -3.79, 
    -3.65, -2.42, -2.583333333, -3.75, -0.103333333, 1.266666667, 
    0.896666667, 1.403333333, 1.936666667, 2.02, -4.156666667, 
    -3.82, -4.2, -3.713333333, -5.23, -4.573333333, 0.413333333, 
    1.01, 0.956666667, 2.016666667, 0.956666667, 2.43, -3.063333333, 
    -3.323333333, -2.63, -0.73, -0.43, -0.533333333, 2.756666667, 
    2.52, 2.056666667, 2.47, 2.153333333, 2.226666667, -3.763333333, 
    -3.086666667, -2.53, -1.69, -1.96, -1.576666667, 2.116666667, 
    2.48, 2.093333333, 2.55, 2.663333333, 2.726666667, -3.003333333, 
    -3.443333333, -3.513333333, -0.946666667, -0.86, -0.433333333, 
    -0.403333333, -0.933333333, -1.153333333, 1.703333333, 0.906666667, 
    0.576666667, -3.193333333, -3.533333333, -2.76, -1.183333333, 
    -2.91, -2.87, 0.13, -0.253333333, -0.396666667, 0.633333333, 
    0.88, 1.246666667, -2.696666667, -1.593333333, -2.066666667, 
    0.296666667, 0.226666667, -0.066666667, 2.436666667, 2.096666667, 
    2.693333333, 1.723333333, 1.753333333, 2.001666667, -2.183333333, 
    -1.716666667, -1.923333333, -1.846666667, -1.266666667, -1.083333333, 
    1.566666667, 1.87, 1.62, 1.903333333, 2.13, 1.573333333, 
    -6.783333333, -6.906666667, -7.05, -3.436666667, -2.953333333, 
    -3.89, -0.303333333, -0.13, -0.183333333, -0.076666667, 0.06, 
    -0.066666667, -6.89, -6.69, -6.936666667, -7.436666667, -7.636666667, 
    -7.386666667, -0.85, -1.253333333, -1.003333333, 0.443333333, 
    0.12, -0.026666667, -6.873333333, -7.573333333, -6.84, -3.873333333, 
    -3.95, -3.756666667, -2.26, -1.713333333, -1.466666667, 0.533333333, 
    -0.223333333, 0.27, -5.221666667, -5.776666667, -5.996666667, 
    -5.296666667, -5.526666667, -5.863333333, -2.053333333, -1.646666667, 
    -1.116666667, 0.46, 0.58, 0.71, -5.24, -5.793333333, -5.04, 
    -2.05, -1.826666667, -1.946666667, -0.356666667, -0.7, -0.783333333, 
    -0.513333333, -0.69, -0.653333333, -3.47, -2.726666667, -2.82, 
    -2.956666667, -2.903333333, -2.473333333, -0.146666667, -0.3, 
    -0.343333333, -0.29, -0.58, -0.346666667, -9.566666667, -9.816666667, 
    -9.643333333, -4.276666667, -3.623333333, -4.753333333, -4.37, 
    -3.773333333, -3.346666667, -2.2, -2.04, -2.113333333, -7.31, 
    -7.776666667, -7.656666667, -3.923333333, -4.223333333, -4.746666667, 
    -2.47, -1.82, -2.093333333, -1.823333333, 1.57, -2.156666667, 
    -6.216666667, -5.316666667, -4.97, -2.44, -5.486666667, -2.663333333, 
    -0.566666667, -0.46, -0.506666667, -1.406666667, -1.166666667, 
    -1.84, -4.86, -3.88, -4.676666667, -3.863333333, -3.823333333, 
    -4.076666667, -1.486666667, -1.313333333, -2.153333333, -1.386666667, 
    -1.933333333, -1.653333333, -4.923333333, -5.12, -5.87, -1.25, 
    -1.3, -1.016666667, -0.14, 0.026666667, 0.106666667, 0.316666667, 
    0.07, 0.11, -4.203333333, -4.24, -4.2, -3.473333333, -3.88, 
    -3.893333333, 0.13, -0.023333333, 0.07, 0.52, 0.396666667, 
    0.41, -8.42, -9.63, -9.483333333, -7.046666667, -6.876666667, 
    -8.286666667, -3.936666667, -4.003333333, -4.153333333, -2.31, 
    -1.726666667, -1.916666667, -7.726666667, -7.986666667, -8, 
    -8.25, -8.47, -8.526666667, -4.606666667, -4.51, -4.633333333, 
    -1.613333333, -2.12, -1.903333333, -2.093333333, -2.13, -2.673333333, 
    -0.353333333, -0.513333333, -0.496666667, -0.09, -0.276666667, 
    -0.166666667, -0.65, -0.54, -0.583333333, -1.253333333, -1.053333333, 
    -0.916666667, -0.596666667, -0.543333333, -0.636666667, -0.046666667, 
    0.206666667, 0.24, -0.36, -0.303333333, -0.4, -9.08, -8.943333333, 
    -9.023333333, -6.173333333, -5.853333333, -7.106666667, -5.513333333, 
    -4.76, -4.08, -3.38, -3.21, -2.966666667, -6.9, -7.086666667, 
    -7.123333333, -6.423333333, -7.26, -7.83, -3.926666667, -3.383333333, 
    -3.443333333, -3.26, 2.183333333, -3.736666667, -5.053333333, 
    -4.71, -5.116666667, -3.75, -3.623333333, -3.576666667, -0.913333333, 
    -0.926666667, -0.95, -1.446666667, -1.22, -1.553333333, -4.136666667, 
    -4.246666667, -4.573333333, -3.653333333, -3.84, -3.74, -1.103333333, 
    -1.173333333, -1.326666667, -1.5, -1.53, -1.56, -6.666666667, 
    -7.063333333, -8.31, -4.606666667, -5.256666667, -4.056666667, 
    -2.453333333, -2.813333333, -2.986666667, -3.243333333, -3.29, 
    -2.69, -6.586666667, -6.416666667, -7.113333333, -6.323333333, 
    -6.953333333, -7.283333333, -3.196666667, -3.093333333, -3.693333333, 
    -1.946666667, -2.133333333, -2.396666667, -7.616666667, -7.05, 
    -7.263333333, -7.75, -7.686666667, -8.486666667, -7.173333333, 
    -6.173333333, -6.003333333, -3.7, -3.973333333, -4.616666667, 
    -6.906666667, -7.793333333, -7.966666667, -7.343333333, -7.966666667, 
    -8.823333333, -6.836666667, -6.516666667, -5.783333333, -4.193333333, 
    -4.143333333, -3.826666667, -4.43, -4.05, -4.43, -5.003333333, 
    -5.153333333, -4.996666667, -4.263333333, -4.5, -4.296666667, 
    -3.92, -4.636666667, -3.973333333, -3.263333333, -3.653333333, 
    -3.88, -4.373333333, -4.49, -4.176666667, -3.766666667, -3.436666667, 
    -3.15, -3.836666667, -3.44, -3.433333333), Expression = c(0.013230396, 
    0.029564301, 0.013952492, 5.84282738, 12.06982901, 6.408559021, 
    42.02958578, 48.50293013, 74.54294953, 36.33614172, 36.75834736, 
    46.6347453, 0.00883023, 0.008932832, 0.027520809, 0.25290486, 
    0.199344172, 0.205422579, 51.74448973, 37.53071838, 43.21119827, 
    41.54683483, 96.55863209, 42.91271672, 0.012118318, 0.01014327, 
    0.020193013, 2.10915726, 1.443929196, 0.974904855, 2.67585511, 
    4.9588308, 4.428035127, 4.018526699, 3.498330681, 3.371366178, 
    0.003661541, 0.005287006, 0.00383471, 0.013108684, 0.014017116, 
    0.027904985, 1.892115293, 2.138599998, 1.378723669, 1.761331748, 
    1.670175839, 1.501772904, 0.000784104, 0.000864009, 0.000701793, 
    0.312804535, 0.237609869, 0.401461441, 1.721102874, 1.505246747, 
    1.587401052, 1.701334322, 1.132883885, 2.128740365, 0.000622344, 
    0.000709948, 0.00031992, 0.001712121, 0.001262063, 0.001049075, 
    0.703846792, 0.733736181, 0.752623374, 1.83612804, 1.433955248, 
    1.404444876, 0.397768242, 0.382447423, 0.328356139, 0.060371021, 
    0.154249031, 0.060231695, 0.078201134, 0.231647015, 0.213158723, 
    1.427344254, 0.979420298, 1.208597056, 0.420448208, 0.416580342, 
    0.375443226, 0.203063099, 0.187288385, 0.141283674, 0.188155843, 
    0.279321785, 0.38958229, 1.042465761, 1.450617006, 1.064370182, 
    0.138376098, 0.081146162, 0.614151575, 2.118926188, 2.37841423, 
    2.075319318, 21.25897303, 25.93209156, 22.83750806, 19.88120551, 
    27.28431654, 30.2738447, 0.211686328, 0.833160684, 1.194715135, 
    0.570381858, 0.366021424, 0.952637998, 11.39240156, 14.48679618, 
    13.67371479, 33.74651615, 29.9953439, 45.67501612, 0.000894478, 
    0.001582769, 0.001150652, 0.041810236, 0.03581398, 0.031686234, 
    0.176776695, 0.25, 0.314980262, 0.720298431, 0.661280073, 
    0.850667161, 0.000741808, 0.000745244, 0.000564789, 0.000852114, 
    0.00026902, 0.000376082, 0.452712381, 0.398688344, 0.432268616, 
    0.670511199, 0.484085348, 0.436282144, 0.055041617, 0.177185608, 
    0.233797812, 0.408007243, 0.141938054, 0.144252344, 0.715322966, 
    1.047294123, 0.258816231, 1.059463094, 0.415618948, 0.77916458, 
    0.219658363, 0.174746242, 0.192109398, 0.280615512, 0.302848184, 
    0.196146024, 0.740548776, 0.848703971, 0.509327905, 0.806641759, 
    1, 0.530956902, 0.033108222, 0.026521999, 0.01674646, 0.146943488, 
    0.164938489, 0.014953911, 0.178830742, 0.258218929, 0.188155843, 
    0.132127255, 0.290511397, 0.407065634, 0.03901033, 0.043384795, 
    0.023303116, 0.075362989, 0.046498672, 0.058314562, 0.283220971, 
    0.385107555, 0.40332088, 0.716977624, 0.737134609, 0.624165274, 
    0.067764179, 0.072293011, 0.079660039, 0.186856156, 0.166854982, 
    0.074325445, 0.930879716, 2.406050073, 1.861759433, 2.645120292, 
    3.828201229, 4.055837919, 0.056068463, 0.070805243, 0.05440941, 
    0.076238665, 0.02664484, 0.042003887, 1.331759279, 2.0139111, 
    1.940820463, 4.046477762, 1.940820463, 5.388934307, 0.119631288, 
    0.099902644, 0.161544104, 0.602903914, 0.742261785, 0.69095644, 
    6.758329391, 5.735820992, 4.160239737, 5.540437872, 4.448544342, 
    4.680513014, 0.073641696, 0.117712002, 0.173138684, 0.309926925, 
    0.257028457, 0.335255599, 4.336907482, 5.578974665, 4.267328971, 
    5.856342784, 6.334950441, 6.619244983, 0.124711522, 0.091929179, 
    0.087575229, 0.518829829, 0.550952558, 0.740548776, 0.75610928, 
    0.523647062, 0.449585268, 3.25652507, 1.874708994, 1.491399401, 
    0.109322834, 0.086369555, 0.147624083, 0.440332937, 0.133046273, 
    0.136786713, 1.094293701, 0.838955775, 0.759611332, 1.551144761, 
    1.840375301, 2.37292527, 0.154249031, 0.331404861, 0.238710401, 
    1.22830315, 1.170128253, 0.954841604, 5.413894098, 4.277199995, 
    6.468061216, 3.301984466, 3.371366178, 4.004623652, 0.220166468, 
    0.304250878, 0.263644657, 0.278034021, 0.415618948, 0.471937156, 
    2.962195105, 3.655325801, 3.073750363, 3.740764991, 4.377174805, 
    2.975915027, 0.009078481, 0.008334627, 0.007546378, 0.092354965, 
    0.129109464, 0.067451765, 0.810377861, 0.91383145, 0.880665874, 
    0.948246031, 1.042465761, 0.954841604, 0.008431471, 0.009685216, 
    0.008163103, 0.005772185, 0.005024979, 0.005975741, 0.554784736, 
    0.419477887, 0.498846088, 1.359742372, 1.086734863, 0.981685855, 
    0.00852944, 0.005250486, 0.008728806, 0.068235517, 0.064704058, 
    0.073982781, 0.20877198, 0.30495466, 0.361817309, 1.447269237, 
    0.856584019, 1.205807828, 0.026799192, 0.018241059, 0.015661143, 
    0.025441602, 0.021692398, 0.017177533, 0.24092678, 0.319377223, 
    0.461158097, 1.375541818, 1.494849249, 1.635804117, 0.026460791, 
    0.018031543, 0.030395467, 0.241484082, 0.281915232, 0.259414915, 
    0.780966913, 0.615572207, 0.581022794, 0.700601833, 0.61985385, 
    0.635809583, 0.090245575, 0.151074632, 0.141610486, 0.128811503, 
    0.1336625, 0.180074608, 0.903335201, 0.812252396, 0.788218036, 
    0.817902059, 0.668963777, 0.786398968, 0.001318701, 0.001108891, 
    0.001250453, 0.051593507, 0.081146162, 0.037076957, 0.048361406, 
    0.073133016, 0.098299871, 0.217637641, 0.243163737, 0.231112415, 
    0.006301889, 0.004560265, 0.004955799, 0.065911164, 0.053536501, 
    0.037248686, 0.180491149, 0.283220971, 0.234338624, 0.282567347, 
    2.969047141, 0.224273852, 0.013446116, 0.02509134, 0.031906629, 
    0.184283652, 0.022302254, 0.157854431, 0.675174973, 0.726986259, 
    0.703846792, 0.377182157, 0.445449359, 0.279321785, 0.034434535, 
    0.067920929, 0.039100567, 0.068710132, 0.070641837, 0.059265377, 
    0.356836063, 0.402390086, 0.224792634, 0.382447423, 0.261823531, 
    0.317904792, 0.032955582, 0.028755864, 0.017098339, 0.420448208, 
    0.406126198, 0.49425701, 0.907519155, 1.01865581, 1.076737568, 
    1.245449623, 1.049716684, 1.079228237, 0.054283843, 0.052921582, 
    0.05440941, 0.090037304, 0.067920929, 0.067296098, 1.094293701, 
    0.983956654, 1.049716684, 1.433955248, 1.31646272, 1.328685814, 
    0.002919627, 0.001262063, 0.001397115, 0.007563834, 0.008509755, 
    0.00320232, 0.065304822, 0.062355761, 0.056198158, 0.20166044, 
    0.302149264, 0.264865774, 0.004721082, 0.003942519, 0.00390625, 
    0.003284752, 0.002820174, 0.00271155, 0.041044517, 0.043888902, 
    0.040292822, 0.326842312, 0.230046913, 0.267325, 0.234338624, 
    0.228457863, 0.156764051, 0.782773416, 0.700601833, 0.708742433, 
    0.939522749, 0.825496116, 0.890898718, 0.637280314, 0.687770909, 
    0.667419927, 0.419477887, 0.481853559, 0.529731547, 0.661280073, 
    0.686183655, 0.643197335, 0.968170696, 1.154018752, 1.180992661, 
    0.77916458, 0.810377861, 0.757858283, 0.001847769, 0.002031367, 
    0.00192179, 0.013856115, 0.017297012, 0.007255714, 0.021893807, 
    0.036906021, 0.059128603, 0.096054699, 0.108067154, 0.127921736, 
    0.00837323, 0.007357, 0.007172375, 0.011651558, 0.006524124, 
    0.00439476, 0.065759053, 0.095833022, 0.091929179, 0.10438599, 
    4.542017715, 0.075015542, 0.030115847, 0.038207509, 0.028822381, 
    0.074325445, 0.081146162, 0.0838139, 0.530956902, 0.526072424, 
    0.517632462, 0.366868091, 0.429282718, 0.340721919, 0.05685115, 
    0.052677597, 0.042003887, 0.079476198, 0.069830446, 0.074842419, 
    0.465439858, 0.443395695, 0.398688344, 0.353553391, 0.346277367, 
    0.339151082, 0.009843133, 0.007476956, 0.003150944, 0.041044517, 
    0.026156863, 0.060092691, 0.182588356, 0.142266379, 0.1261606, 
    0.105598897, 0.102237757, 0.154963462, 0.010404369, 0.011705524, 
    0.007222263, 0.01248783, 0.008069342, 0.006419456, 0.109070536, 
    0.117169312, 0.077302917, 0.259414915, 0.227930622, 0.189902833, 
    0.005095125, 0.007546378, 0.006509068, 0.00464534, 0.00485381, 
    0.002787782, 0.006928058, 0.013856115, 0.01558894, 0.076946526, 
    0.063665988, 0.040761002, 0.008334627, 0.004507886, 0.003997554, 
    0.006157953, 0.003997554, 0.002207557, 0.008748997, 0.01092164, 
    0.018156962, 0.054661417, 0.056589048, 0.070478808, 0.046391362, 
    0.060371021, 0.046391362, 0.031177881, 0.028099079, 0.031322286, 
    0.052072543, 0.044194174, 0.050883204, 0.066063628, 0.040199833, 
    0.063665988, 0.104145086, 0.079476198, 0.067920929, 0.048249796, 
    0.044501569, 0.055296552, 0.073471744, 0.092354965, 0.112656308, 
    0.069991975, 0.092141826, 0.092568597)), row.names = c(NA, 
-600L), spec = structure(list(cols = list(Species = structure(list(), class = c("collector_character", 
"collector")), Genotype = structure(list(), class = c("collector_character", 
"collector")), Time = structure(list(), class = c("collector_double", 
"collector")), Gene = structure(list(), class = c("collector_character", 
"collector")), delCt = structure(list(), class = c("collector_double", 
"collector")), Expression = structure(list(), class = c("collector_double", 
"collector"))), default = structure(list(), class = c("collector_guess", 
"collector")), skip = 1), class = "col_spec"), class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"))

Thanks,

Erik

1 Like

Hi @Soulhog,
I was able to replicate the error you came across. One workaround for the character not printing is that you can take advantage of ggplot's ability to parse plotmath expressions.

labs(y=expression("Relative expression ("*Delta*"Ct)")), 
   x="Extended darkness (hours)")

with saving the plot using ggsave.

giving:sp.pdf (56.0 KB) (At least on a mac).

1 Like

Thank you so much!

I have another problem, though. I would also like to re-name one of the levels of the qdata$Gene variable also using greek lettering. Here is my code:

qdata2 <- transform(qdata, Gene=revalue(Gene,c("KINy1"="KIN\u03b31")))

I run into the same problem as before, where the .pdf file contains ".." instead of the gamma.

so I tried the same way as with the other example:

qdata3 <- transform(qdata, Gene=revalue(Gene,c("KINy1"="KIN"*gamma*"1")))

but it gave me this error message:

Error in "KIN" * gamma : non-numeric argument to binary operator
In addition: Warning messages:
1: In grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y,  :
  conversion failure on 'KINγ1' in 'mbcsToSbcs': dot substituted for <ce>
2: In grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y,  :
  conversion failure on 'KINγ1' in 'mbcsToSbcs': dot substituted for <b3>
3: In grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y,  :
  conversion failure on 'KINγ1' in 'mbcsToSbcs': dot substituted for <ce>
4: In grid.Call.graphics(C_text, as.graphicsAnnot(x$label), x$x, x$y,  :
  conversion failure on 'KINγ1' in 'mbcsToSbcs': dot substituted for <b3>

Just so we are clear, I would like to have the lower case gamma, so that the level is changed from "KINy1" to "KINgamma1"

Thanks,

Erik

Hi @Soulhog,
There's two steps involved here. The first is transforming qdata$Gene into properly formatted character format, so just one pair of opening and closing quotes:

library("plyr")
qdata3 <- transform(qdata, Gene = revalue(Gene, c("KINy1" = "KIN*gamma*1")))

The reason why it worked in the first example was that *Delta* was passed as an argument into labs(y = expression()).

The second step is specifying that you want to parse the embedded plotmath in the facet labels :

facet_grid(Gene ~ Species, scales = "free_y", labeller = label_parsed) + ...
1 Like

Hi @jrmuirhead,

Thanks again. We are almost there. Your code worked well, however, now the vertical facet labels are no longer italic. In the original code for the figure, I have a theme() command:

strip.text=element_text(size=6, color="black", face="italic")

because I want both of the facet labels to be italic face.

It looks like the labeller=label_parsed command may have overriden the strip.text command?

Thanks,

Erik

Good catch. In this version, we can use the italicized formatting
in the plotmath expressions, and use label_parsed as before. I'm assuming that you don't want *gamma* to be italicized.

library("plyr")
library("ggplot2")

make_italic <- function(x){
  x <- paste0("italic('", x, "')")
}

# Convert levels to use italic formatting in plotmath
qdata3 <- transform(qdata, Gene = make_italic(Gene),
  Species = make_italic(Species))

# Fix the case for KIN*gamma*1
qdata3 <- transform(qdata3,Gene = revalue(Gene,
  c("italic('KINy1')" = "italic('KIN'*gamma*'1')")))

# Still use label_parsed, but now it will process italics as well

sp <- ggplot(qdata3, mapping=aes(x=Time, y=delCt, color=Genotype))+ 
  geom_point(alpha=0.5)+
  geom_smooth(se=FALSE, size=0.5)+
  facet_grid(Gene ~ Species, scales = "free_y",
    labeller = label_parsed) +
  scale_x_continuous(breaks=c(-12, 0, 6, 12))+
  labs(y=expression("Relative expression ("*Delta*"Ct)"), 
   x="Extended darkness (hours)") +
  theme_classic()+
  theme(axis.title=element_text(size=6, color="black"),
        axis.text=element_text(size=6, color="black"),
        strip.text=element_text(size=6, color="black"), # Remove italics
        panel.border=element_rect(fill = NA, color="black"),
        legend.title=element_blank(),
        legend.text=element_text(size=6, color="black"),
        legend.position=c(0.30,0.67))+
  scale_color_manual(values=c("red", "black"))+
  scale_fill_manual(values=c("red", "black"))

sp
1 Like

OK, thanks. And if I wanted to have the gamma also be italicized, how would I write that code?

Hi @jrmuirhead

OK sorry for the double-up on the issues, but I didn't want to wait for you to get back to me. I have another issue. I am putting overlaying stars on the figure with geom_text(), here is the data and code:

DATA

> dput(labeldata)
structure(list(Species = structure(c(1L, 1L, 1L, 2L, 2L, 2L, 
2L, 3L, 3L, 3L, 3L, 3L, 3L, 3L, 4L, 4L, 4L, 4L, 5L, 5L, 5L, 5L, 
5L), .Label = c("Arabidopsis", "Nicotiana", "Mesembryanthemum", 
"Lotus", "Pisum"), class = "factor"), Genotype = c("WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", 
"WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT", "WT"), 
    Time = c(0, 0, 0, -12, 0, -12, 0, 0, 0, 6, 0, 6, -12, 0, 
    0, -12, 0, -12, 6, 0, -12, 0, -12), Gene = c("BCAT2", "DIN6", 
    "KINy1", "ACX2", "DIN6", "DIN6", "KINy1", "ACX2", "DIN6", 
    "DIN6", "KINy1", "KINy1", "TPS9", "TPS9", "BCAT2", "KINy1", 
    "KINy1", "TPS9", "ACX2", "BCAT2", "KINy1", "KINy1", "TPS9"
    ), delCt = c(-3, 5, 1, -2, 4, -3, 1, -2, 2, 4, -1, 2, -1, 
    1, 0, -3, -2, -5, -2, 1, -2, 0, 1)), row.names = c(NA, -23L
), spec = structure(list(cols = list(Species = structure(list(), class = c("collector_character", 
"collector")), Genotype = structure(list(), class = c("collector_character", 
"collector")), Time = structure(list(), class = c("collector_double", 
"collector")), Gene = structure(list(), class = c("collector_character", 
"collector")), delCt = structure(list(), class = c("collector_double", 
"collector"))), default = structure(list(), class = c("collector_guess", 
"collector")), skip = 1), class = "col_spec"), class = c("spec_tbl_df", 
"tbl_df", "tbl", "data.frame"))

code:

using sp from the first message as the name of the plot:

gene_expression <- sp + geom_text(data=labeldata, label="*", show.legend=FALSE, size=3)
gene_expression

When I run that code, something very strange happens. It doubles each level of the factor... so I ran it through the same steps as with the other data:

labeldata3 <- transform(labeldata, Gene = make_italic(Gene), Species=make_italic(Species))
labeldata3 <- transform(labeldata3,Gene = revalue(Gene, c("italic('KINy1')" = "italic('KIN'*gamma*'1')")))

and that fixed it, but now the levels are in the wrong order. I had initially ordered the levels using

qdata$Species <- factor(qdata$Species, levels=c("Arabidopsis", "Nicotiana", "Mesembryanthemum", "Lotus", "Pisum"))

labeldata$Species <- factor(labeldata$Species, levels=c("Arabidopsis", "Nicotiana", "Mesembryanthemum", "Lotus", "Pisum"))

But now they are in alphabetical order again!

Let me know if you need more information, and thanks for all your help so far!

Thanks,

Erik

Hi @Soulhog,
To get the levels of the species in the order, we can change the make_italic function above to return a factor:

make_italic <- function(x){
  x <- paste0("italic('", x, "')")
  x <- factor(x, levels = unique(x))
}
1 Like

Hi @Soulhog
Sorry, I tried but ended up stumped wrt to italicizing plotmath greek letters.

That's OK, I don't think it's essential that the greek letter is italicized. If you end up figuring it out, I would love to know, though.

This package may help:
https://cran.r-project.org/web/packages/ggtext/index.html

This topic was automatically closed 7 days after the last reply. New replies are no longer allowed.