r <- matrix(c(1, 2, 14, 38, 18, 10, 9 ,5, 9, 4, 8 ,1,
20, 9 ,1, 11, 10, 9 ,1, 1, 20, 9, 7, 12,
9 ,23,1 ,15, 7, 11, 6, 2 ,7 ,12, 3 ,17,
1 ,3 ,15 ,15, 6, 5 ,12, 18, 4 ,25 ,2, 2,
4, 33, 7 ,8 ,3, 6, 6, 4 ,5, 15, 5, 3,
3 ,9, 1 ,7, 7, 5, 9 ,9, 6, 9 ,6 ,13,
11, 9 ,1, 17, 4, 21, 1 ,1, 5 ,4, 5, 27,
4, 4, 32 ,2 ,6, 5, 7, 7, 3 ,10 ,12 ,7,
9 ,12,23 ,4 ,7, 13 ,5 ,5 ,10, 5, 13, 9,
9, 3, 9 ,8, 4, 2, 6 ,8 ,1, 6 ,23, 33,
7, 5 ,2 ,7 ,11, 2, 6 ,11 ,9 ,24, 10, 5),
nrow = 11, byrow = TRUE,
dimnames = list(c("Vieillot-désuet", "Nouveau-riche",
"Sobre-élégant", "Cocasse-ridicule", "Racé", "Mièvre", "Distingué", "Vulgaire-
commun", "Pour un homme","Pour une femme", "Pour une petite nature"),
c("Orly", "Alezan", "Corsaire",
"Directoire", "Ducat", "Fontenoy", "Icare", "Zodiaque", "Pavois"
,"Cocker", "Escale", "Hôtesse")))
ind <- [Link]([Link](r))
# Répétition des lignes selon les fréquences
ind <- ind[rep(seq_len(nrow(ind)), ind$Freq), 1:2]
# Réinitialisation des indices de lignes
rownames(ind) <- NULL
# Affichage des premières lignes du tableau final
head(ind)