Formatage des décimales dans R

J'ai un nombre, par exemple 1.128347132904321674821 que je voudrais montrer comme seulement deux décimales lors de la sortie sur écran (ou écrit dans un fichier). Comment fait-on cela?

x <- 1.128347132904321674821

ÉDITER:

L'utilisation de:

options(digits=2)

A été suggéré comme réponse possible. Existe-t-il un moyen de spécifier cela dans un script pour une utilisation unique? Quand je l'ajoute à mon script, cela ne semble pas faire quelque chose de différent et je ne suis pas intéressé par beaucoup de retaper pour formater chaque nombre (j'automatise un très gros rapport).

-

Réponse: rond (x, chiffres = 2)

Contexte: Quelques suggestions de réponses sur cette page (par exemple signif, options(digits=...)) ne garantit pas qu'un certain nombre de décimales sont affichées pour un nombre arbitraire. Je suppose que c'est une caractéristique de conception de R dans laquelle les bonnes pratiques scientifiques impliquent d'afficher un certain nombre de chiffres sur la base des principes des " chiffres significatifs ". Cependant, dans de nombreux domaines (par exemple, style APA , rapports commerciaux), les exigences de formatage imposent l'affichage d'un certain nombre de décimales. Cela se fait souvent à des fins de cohérence et de normalisation plutôt que de se préoccuper de chiffres importants.

Solution :

Le code suivant montre exactement deux décimales pour le nombre x.

format(round(x, 2), nsmall = 2)

Par exemple:

format(round(1.20, 2), nsmall = 2)
# [1] "1.20"
format(round(1, 2), nsmall = 2)
# [1] "1.00"
format(round(1.1234, 2), nsmall = 2)
# [1] "1.12"

Une fonction plus générale est la suivante: où xest le nombre et kle nombre de décimales à afficher. trimwssupprime tout premier espace blanc qui peut être utile si vous avez un vecteur de nombres.

specify_decimal <- function(x, k) trimws(format(round(x, k), nsmall=k))

Par exemple,

specify_decimal(1234, 5)
# [1] "1234.00000"
specify_decimal(0.1234, 5)
# [1] "0.12340"

Vous pouvez formater un nombre, disons x, jusqu'à la décimale comme vous le souhaitez. Voici xun nombre avec de nombreuses décimales. Supposons que nous souhaitons afficher jusqu'à 8 décimales de ce nombre:

x = 1111111234.6547389758965789345
y = formatC(x, digits = 8, format = "f")
# [1] "1111111234.65473890"

Ici format="f"donne des nombres flottants dans les décimales habituelles disons, xxx.xxx, et digitsspécifie le nombre de chiffres. En revanche, si vous vouliez afficher un entier, vous l'utiliseriez format="d"(un peu comme sprintf).

Vous pouvez essayer mon package formatable .

> # devtools::install_github("renkun-ken/formattable")
> library(formattable)
> x <- formattable(1.128347132904321674821, digits = 2, format = "f")
> x
[1] 1.13

La bonne chose est, xest toujours un vecteur numérique et vous pouvez faire plus de calculs avec le même formatage.

> x + 1
[1] 2.13

Encore mieux, les chiffres ne sont pas perdus, vous pouvez reformater avec plus de chiffres à tout moment :)

> formattable(x, digits = 6, format = "f")
[1] 1.128347

pour 2 décimales en supposant que vous souhaitez conserver les zéros de fin

sprintf(5.5, fmt = '%#.2f')

qui donne

[1] "5.50"

Comme @mpag le mentionne ci-dessous, il semble que R puisse parfois donner des valeurs inattendues avec cela et la méthode ronde, par exemple sprintf (5.5550, fmt = '% #. 2f') donne 5.55, pas 5.56

Quelque chose comme ca :

options(digits=2)

Option de définition des chiffres:

digits: controls the number of digits to print when printing numeric values.

Vérifiez les fonctions prettyNum, format

pour avoir des zéros d'essai (123.1240 par exemple) utiliser sprintf(x, fmt='%#.4g')

Si vous préférez des chiffres significatifs à des chiffres fixes, la commande signif peut être utile:

> signif(1.12345, digits = 3)
[1] 1.12
> signif(12.12345, digits = 3)
[1] 12.1
> signif(12345.12345, digits = 3)
[1] 12300

La fonction formatC()peut être utilisée pour formater un nombre à deux décimales. Deux décimales sont données par cette fonction même lorsque les valeurs résultantes incluent des zéros de fin.

J'utilise cette variante pour forcer l'impression K décimales:

# format numeric value to K decimal places
formatDecimal <- function(x, k) format(round(x, k), trim=T, nsmall=k)

Notez que les objets numériques dans R sont stockés avec une double précision , ce qui vous donne (environ) 16 chiffres décimaux de précision - le reste sera du bruit. J'accorde que le nombre indiqué ci-dessus est probablement juste pour un exemple, mais il est long de 22 chiffres.

Il me semble que ce serait quelque chose comme

library(tutoR)
format(1.128347132904321674821, 2)

Par une petite aide en ligne .

si vous voulez simplement arrondir un nombre ou une liste, utilisez simplement

round(data, 2)

Ensuite, les données seront arrondies à la deuxième décimale.