using ggplot to make a panel plot