p=ggplot()+ggtitle("You have to provide a popmap with samples from at least 2 populations")+theme(panel.border=element_rect(colour="black",fill=NA,size=2))
p=ggplot()+ggtitle("You have to provide a popmap with samples from at least 2 populations")+theme(panel.border=element_rect(colour="black",fill=NA,size=2))