nomes <- c("Calisto", "Luiz", "Ricardo", "Raquel", "Mariana", "Jackson", "Paulo", "Wecsley", "Zaida", "Silvana", "Nivea", "William", "Gabriela", "Marcio")

set.seed(211237298)
sample(nomes,length(nomes))

Ricardo e Marcio  (05/06)
Zaida e Raquel    (10/06)
Paulo e Mariana   (12/06)
Wecsley e Gabiela e Calisto e Luiz  (19/06)
William e Jackson e Silvana e Nivea (24/06)