Comment formater un nombre en pourcentage dans R ?

Question

L'une des choses qui me laissait perplexe en tant que novice de R était de savoir comment formater un nombre en pourcentage pour l'impression.

Par exemple, affichez 0.12345 como 12.345% . Je dispose d'un certain nombre de solutions de contournement, mais aucune d'entre elles ne semble être "conviviale pour les nouveaux venus". Par exemple :

set.seed(1)
m <- runif(5)

paste(round(100*m, 2), "%", sep="")
[1] "26.55%" "37.21%" "57.29%" "90.82%" "20.17%"

sprintf("%1.2f%%", 100*m)
[1] "26.55%" "37.21%" "57.29%" "90.82%" "20.17%"

Question : Existe-t-il une fonction R de base pour faire cela ? Sinon, existe-t-il un paquetage largement utilisé qui fournit une enveloppe pratique ?

---

Malgré la recherche de quelque chose comme ça dans ?format , ?formatC y ?prettyNum Je n'ai pas encore trouvé d'enveloppe convenable dans R de base. ??"percent" n'a rien donné d'utile. library(sos); findFn("format percent") renvoie 1250 occurrences - donc encore une fois pas utile. ggplot2 a une fonction percent mais cela ne permet pas de contrôler la précision des arrondis.

Answer 1

El tidyverse est la suivante :

> library(dplyr)
> library(scales)

> set.seed(1)
> m <- runif(5)
> dt <- as.data.frame(m)

> dt %>% mutate(perc=percent(m,accuracy=0.001))
          m    perc
1 0.2655087 26.551%
2 0.3721239 37.212%
3 0.5728534 57.285%
4 0.9082078 90.821%
5 0.2016819 20.168%

Il a l'air bien rangé, comme d'habitude.

Answer 2

Vous pouvez utiliser le package scales juste pour cette opération (sans le charger avec require ou library)

scales::percent(m)

Answer 3

Voici ma solution pour définir une nouvelle fonction (surtout pour pouvoir jouer avec Curry et Compose :-) ) :

library(roxygen)
printpct <- Compose(function(x) x*100, Curry(sprintf,fmt="%1.2f%%"))

Answer 4

try this~

data_format <- function(data,digit=2,type='%'){
if(type=='d') {
    type = 'f';
    digit = 0;
}
switch(type,
    '%' = {format <- paste("%.", digit, "f%", type, sep='');num <- 100},
    'f' = {format <- paste("%.", digit, type, sep='');num <- 1},
    cat(type, "is not a recognized type\n")
)
sprintf(format, num * data)
}

Answer 5

Cette fonction pourrait transformer les données en pourcentages par colonnes

percent.colmns = function(base, columnas = 1:ncol(base), filas = 1:nrow(base)){
    base2 = base
    for(j in columnas){
        suma.c = sum(base[,j])
        for(i in filas){
            base2[i,j] = base[i,j]*100/suma.c
        }
    }
    return(base2)
}