Esses dois codigos tem o mesmo resultado
paises <- c("Canadá","China","China","China","Estados Unidos",
"Japão","Índia","Japão","Japão","México","Estados Unidos",
"Índia","Estados Unidos","Estados Unidos","China","Alemanha",
"Inglaterra","Estados Unidos","Japão","Inglaterra",
"Estados Unidos","China","Índia","Canadá","Estados Unidos",
"Índia","México","Índia","Suécia","Alemanha","China","China",
"China","China","Estados Unidos","Japão","Japão","Alemanha",