sapply(estr, FUN=function(x) parse(text=x)) and it does print the greek letter in the xlab. xyplot(1:10 ~ 1:10, scales = list(x = list(at = c(3, 6), labels = sapply(estr, FUN=function(x) parse(text=x))))) Rich