ggplot2 in lorenz