Fonction nchar() de R - Obtenir le nombre de caractères
Exemples du langage RLa fonction nchar() de R sert à compter le nombre de caractères dans une chaîne.
nchar() peut gérer les caractères multi-octets tels que le chinois, et est l’une des fonctions les plus élémentaires du traitement des chaînes de caractères.
La syntaxe de la fonction nchar() est la suivante :
nchar(x, type = "chars")
Description du paramètre :
xVecteur de chaînes d'entrée.
typeType de comptage : "chars" (nombre de caractères), "bytes" (nombre d’octets), "width" (largeur d’affichage).
Exemple
# Anglais et chinois
text_en <- "Hello EXAMPLE"
text_cn <- "Hello World"
print(paste("English:", nchar(text_en)))
print(paste("Chinois :", nchar(text_cn)))
# Nombre de caractères dans un vecteur
words <- c("R", "Python", "JavaScript", "Go")
print("Nombre de caractères par langage :")
print(nchar(words))
# Vérifier la différence entre le nombre d'octets et le nombre de caractères
text <- "Hello World"
print(paste("Nombre de caractères :", nchar(text, type = "chars")))
print(paste("Nombre d'octets :", nchar(text, type = "bytes")))
text_en <- "Hello EXAMPLE"
text_cn <- "Hello World"
print(paste("English:", nchar(text_en)))
print(paste("Chinois :", nchar(text_cn)))
# Nombre de caractères dans un vecteur
words <- c("R", "Python", "JavaScript", "Go")
print("Nombre de caractères par langage :")
print(nchar(words))
# Vérifier la différence entre le nombre d'octets et le nombre de caractères
text <- "Hello World"
print(paste("Nombre de caractères :", nchar(text, type = "chars")))
print(paste("Nombre d'octets :", nchar(text, type = "bytes")))
L'exécution du code ci-dessus produit la sortie suivante :
[1] "英文: 12" [1] "中文: 4" [1] "各语言的字符数:" [1] 1 6 10 2 [1] "字符数: 8" [1] "字节数: 13"
nchar() combiné à substr() permet de tronquer une chaîne :
Exemple
# Tronquer les chaînes de caractères trop longues et ajouter des points de suspension
texts <- c("Ceci est un texte de description très long qui doit être tronqué",
"texte court")
truncate <- function(x, max_len = 10) {
ifelse(nchar(x) > max_len,
paste0(substr(x, 1, max_len), "..."),
x)
}
print("Résultat de la troncature :")
print(truncate(texts, max_len = 8))
texts <- c("Ceci est un texte de description très long qui doit être tronqué",
"texte court")
truncate <- function(x, max_len = 10) {
ifelse(nchar(x) > max_len,
paste0(substr(x, 1, max_len), "..."),
x)
}
print("Résultat de la troncature :")
print(truncate(texts, max_len = 8))
L'exécution du code ci-dessus produit la sortie suivante :
[1] "截断结果:" [1] "这是一个很长的描..." "短文本"Autres extensions