Discussion :

[circe]

Bonjour!

Je souhaiterais écrire un tableau dans un fichier. Dans ce tableau, plusieurs colonnes contiennent des nombres avec beaucoup de décimales... Y a-t-il un moyen d'ajouter un argument à la fonction write.table() pour réduire ce nombre de décimales à 3, par exemple?

Merci d'avance!

[pitipoisson]

Bonjour,

Je ne connais pas de façon directe de faire ça.
En revanche, il est facile d'écrire une fonction qui le fasse :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
x <- matrix(rnorm(10), nrow=5)
y <- data.frame(a=letters[1:10], b=rnorm(10), c=runif(10))
 
 
write.table.rd <- function(x, ndec=3,...)
{
    ## Purpose: écrire un tableau dans un fichier en arrondissant les valeurs
    ##          numériques
    ## ----------------------------------------------------------------------
    ## Arguments: x: une data.frame ou quelque chose qui peut être converti
    ##               en data.frame
    ##            ndec: nombre de décimales
    ##            ...: arguments passés à la fonction write.table()
    ## ----------------------------------------------------------------------
    ## Author: pitipoisson
 
    x <- as.data.frame(x)                            # transformation en data.frame
    numcol <- which(sapply(x, class) == "numeric")   # sélection des colonnes numériques
    x[ , numcol] <- round(x[, numcol], digits=ndec)  # elles sont ensuite arrondies 
    write.table(x,...)                               # et enfin on écrit le résultat dans un fichier
}
 
write.table.rd(x, file="")
write.table.rd(y, file="")

L'exemple est basic, on peut notamment ajouter des contrôles (est-ce que x est bien convertible en data.frame ?, etc.)