在 R 中用变音符号制表字符
Tabulating characters with diacritics in R
我试图将字符串中出现的音素(字符)制成表格,但变音符号单独作为字符制成表格。理想情况下,我有一个国际音标的单词列表,其中包含大量变音符号以及它们与基本字符的几种组合。我在这里给出了一个只有一个单词的 MWE,但同样适用于单词列表和更多类型的组合。
> word <- "n̥ana" # word constituted by 4 phones: [n̥],[a],[n],[a]
> table(strsplit(word, ""))
̥ a n
1 2 2
但想要的结果是:
a n n̥
2 1 1
我怎样才能得到这样的结果?
尝试
library(stringi)
table(stri_split_boundaries(word, type='character'))
#a n n̥
#2 1 1
或者
table(strsplit(word, '(?<=\P{Ll}|\w)(?=\w)', perl=TRUE))
#a n n̥
#2 1 1
我试图将字符串中出现的音素(字符)制成表格,但变音符号单独作为字符制成表格。理想情况下,我有一个国际音标的单词列表,其中包含大量变音符号以及它们与基本字符的几种组合。我在这里给出了一个只有一个单词的 MWE,但同样适用于单词列表和更多类型的组合。
> word <- "n̥ana" # word constituted by 4 phones: [n̥],[a],[n],[a]
> table(strsplit(word, ""))
̥ a n
1 2 2
但想要的结果是:
a n n̥
2 1 1
我怎样才能得到这样的结果?
尝试
library(stringi)
table(stri_split_boundaries(word, type='character'))
#a n n̥
#2 1 1
或者
table(strsplit(word, '(?<=\P{Ll}|\w)(?=\w)', perl=TRUE))
#a n n̥
#2 1 1