Discussion :

[mathieu_r]

Bonjour,

Je souhaite étudier les noms de communes, voir quelle est leur phonétique en fonction de leur région d'appartenance. Pour cela, j'aimerais m'appuyer sur la dernière syllabe du nom de commune. Il faudrait que je puisse l'extraire.

Ensuite, j'effectuerai un comptage de celle-ci par région.

Avez-vous une idée de comment procéder, et de quel paquet utiliser?

Merci!

[dev_ggy]

Bonjour Mathieu,

Tu dois savoir faire deux choses :
Extraire une chaîne de caractères d'un texte et connaitre sa position.
Puis faire la liste des sons en français qui est limité.

[mathieu_r]

en fait, j'ai trouvé une solution à base d'expression régulière qui vaut ce qu'elle vaut. Je vous la partagerai une fois qu'elle sera aboutie.

Lister tous les sons, cela risque d'être fastidieux!..

à part ça, si vous avez encore des idées...

[mathieu_r]

J'ai développé une fonction qui vaut ce qu'elle vaut pour détecter la dernière syllabe.

Elle prend en entrée un vecteur de caractères

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
findSyllabus <- function(txt) {
regles <- list("[^aeiouyîïéèm]?[aeiouyîïéè]+[^aeiouyîïéè]*$",
              "[m]+[aeiouyîïéè]+[^aeiouyîïéè]*$", 
              "[^aeiouyîïéèm]?[aeiouyîïéè]+[l]{1,2}[aeiouyîïéè][s]?$",
              "[^aeiouyîïéèm]?[aeiouyîïéè]+[n]{1,2}[aeiouyîïéè][s]?$",
              "[^aeiouyîïéèm]?[aeiouyîïéè]+[m]{1,2}(e)[s]?$",
              "[^aeiouyîïéèm]?[aeiouyîïéè]+[x]{1,2}(e)[s]?$",
              "[^aeiouyîïéèm]?[aeiouyîïéè]+[s]{1,2}(e)[s]?$",
              "[^aeiouyîïéèm]?[aeiouyîïéè]+[z]{1,2}(e)[s]?$",
              "[^aeiouyîïéèm]?[aeiouyîïéè]+[tr]{1,2}(e)[s]?$",
              "[^aeiouyîïéèm]?[aeiouyîïéè]+[vr]{1,2}(e)[s]?$",
              "[^aeiouyîïéèm]?[aeiouyîïéè]+[pr]{1,2}(e)[s]?$",
              "[^aeiouyîïéèm]?[aeiouyîïéè]+[g]{1,2}(e)[s]?$",
               "(gn)[aeiouy]+[^aeiouy]?$",
               "(pl)[aeiouy]+[^aeiouy]?$",
               "(br)[aeiouy]+[^aeiouy]?$",
               "(bl)[aeiouy]+[^aeiouy]?$")
out <- vector(mode="list", length=length(txt))
for (i in seq(along=regles)) {
  p <- regexpr(regles[[i]], txt)
  ids <- which(p > 0); #print(ids)
  s <- sapply(1:length(txt), function(x) substr(txt[x], p[x], nchar(txt[x])))
  out[ids] <- s[ids]
}
return(unlist(out))
}
 
sylls <- findSyllabus(tolower(f$NOM_COMM))

[vchouraki]

Bonjour,

Une piste

http://cran.r-project.org/web/views/...rocessing.html

HTH

Vincent