Last problem with panel plot resolved using {dplyr} select() and unique()