Centrer le texte dans une chaîne de largeur fixe en ajoutant les espaces de suivi

Question

J'ai un vecteur de noms, comme celui-ci:

x <- c("Marco", "John", "Jonathan") 

je dois le formater afin que les noms se centrer dans les chaînes 10 caractères , en ajoutant des espaces avant et arrière:

> output 
# [1] " Marco " " John " " Jonathan " 

J'espérais une solution moins compliquée que d'aller avec paste, rep et compter nchar? (peut-être avec sprintf mais je ne sais pas comment).

Answer 1

Voici une solution sprintf() qui utilise un simple vecteur auxiliaire f pour déterminer les largeurs de côté faible. Nous pouvons ensuite insérer les largeurs dans notre format en utilisant le caractère *, en prenant le ceiling() sur le côté droit pour tenir compte d'un nombre impair de caractères dans un nom. Puisque la largeur maximale de notre caractère est de 10, chaque nom qui dépasse 10 caractères restera inchangé car nous ajustons ces largeurs avec pmax().

f <- pmax((10 - nchar(x))/2, 0) 

sprintf("%-*s%s%*s", f, "", x, ceiling(f), "") 
# [1] " Marco " " John " " Jonathan " "Christopher" 

données:

x <- c("Marco", "John", "Jonathan", "Christopher")