bonjour, encor une question de debutant :oops: ,
comment extraire une table crée sous R
(ex : o3_bld=na.omit(data.frame(h,j,o3[,14],temp[,2])) ) dans Mes documents par exemple.
merci d'avance
Pierre
Modérateur : Groupe des modérateurs
Pierre Heisserer a écrit :o3_bld=na.omit(data.frame(h,j,o3[,14],temp[,2])) )
Code : Tout sélectionner
o3bld <- na.omit(data.frame(h, j, o3[ ,14], temp[ ,2]))
Code : Tout sélectionner
o3.bld <- na.omit(data.frame(h, j, o3[ ,14], temp[ ,2]))
Code : Tout sélectionner
> library(xtable)
> data(tli)
> fm <- lm(tlimth ~ sex*ethnicty, data=tli)
> coef(summary(fm))
Estimate Std. Error t value Pr(>|t|)
(Intercept) 73.636364 4.250242 17.3252158 7.253668e-31
sexM -1.636364 5.884194 -0.2780948 7.815569e-01
ethnictyHISPANIC -9.761364 6.550063 -1.4902702 1.395371e-01
ethnictyOTHER 15.863636 10.836034 1.4639707 1.465740e-01
ethnictyWHITE 4.796970 4.968725 0.9654327 3.368320e-01
sexM:ethnictyHISPANIC 10.678030 8.719042 1.2246794 2.237891e-01
sexM:ethnictyWHITE 5.123030 7.013973 0.7304035 4.669796e-01
> fm.table <- xtable(fm2)
> print(fm2.table, file = "fm.html", type = "html")
> print(fm2.table, file = "fm.TeX", type = "latex")
Code : Tout sélectionner
% latex table generated in R 2.3.0 by xtable 1.3-1 package
% Sun May 14 18:45:03 2006
\begin{table}[ht]
\begin{center}
\begin{tabular}{rrrrr}
\hline
& Estimate & Std. Error & t value & Pr($>$$|$t$|$) \\
\hline
(Intercept) & 73.6364 & 4.2502 & 17.33 & 0.0000 \\
sexM & $-$1.6364 & 5.8842 & $-$0.28 & 0.7816 \\
ethnictyHISPANIC & $-$9.7614 & 6.5501 & $-$1.49 & 0.1395 \\
ethnictyOTHER & 15.8636 & 10.8360 & 1.46 & 0.1466 \\
ethnictyWHITE & 4.7970 & 4.9687 & 0.97 & 0.3368 \\
sexM:ethnictyHISPANIC & 10.6780 & 8.7190 & 1.22 & 0.2238 \\
sexM:ethnictyWHITE & 5.1230 & 7.0140 & 0.73 & 0.4670 \\
\hline
\end{tabular}
\end{center}
\end{table}
Il est également possible d'utiliser des packages spécialisés capables de créer des tableaux sous différents formats pouvant ensuite être insérés dans des documents externes
Code : Tout sélectionner
r2latex <- function(m,filename=NA,zero=0){
f <- if (!is.na(filename)) file(filename,'w') else stdout()
writeLines("$\\left(",f)
writeLines(paste("\\begin{array}{",paste(rep('r',ncol(m)),collapse=''),"}",sep=''),f)
for (i in 1:nrow(m)){
text <- NULL
for (j in 1:ncol(m)){
mij <- if (m[i,j]==0) zero else m[i,j]
text <- paste(text,mij,collapse=' ')
text <- paste(text,if (j<ncol(m)) '&' else '\\\\',collapse=' ')
}
writeLines(text,f)
}
writeLines("\\end{array}",f)
writeLines("\\right)$",f)
if (!is.na(filename)) close(f)
}
Code : Tout sélectionner
> m <- matrix(1:12,nrow=3)
> m
[,1] [,2] [,3] [,4]
[1,] 1 4 7 10
[2,] 2 5 8 11
[3,] 3 6 9 12
> r2latex(m)
$\left(
\begin{array}{rrrr}
1 & 4 & 7 & 10 \\
2 & 5 & 8 & 11 \\
3 & 6 & 9 & 12 \\
\end{array}
\right)$
Code : Tout sélectionner
> r2latex(m,filename="essai.tex",zero='.')
> m <- diag(1:5)
> m
[,1] [,2] [,3] [,4] [,5]
[1,] 1 0 0 0 0
[2,] 0 2 0 0 0
[3,] 0 0 3 0 0
[4,] 0 0 0 4 0
[5,] 0 0 0 0 5
> r2latex(m,filename="essai.tex",zero='.') # Sortie dans essai.tex
Retourner vers « Archives : Manipulation de données avec R »
Utilisateurs parcourant ce forum : Aucun utilisateur enregistré et 1 invité