modify ylim=c(0,log2(alphabet$size)) to ylim=c(0,stackHeight$height)
modify
ylim=c(0,log2(alphabet$size))
to
ylim=c(0,stackHeight$height)