copy in multi plot function from ggplot2