0
votes

3 Réponses :


0
votes

Si vous souhaitez émettre une table, assurez-vous de le convertir en premier.

title: "Factor Analysis Test"
author: "Simon Kiss"
date: '2019-06-07'
output: pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r}
library(psych)
```

```{r}
data('Thurstone')
```

```{r}
mod<-fa(Thurstone, 3)
```
```{r results='markup'} 
knitr::kable(data.frame(psych::fa.sort(mod$loadings)[1:8,]))


1 commentaires

Ok, je peux faire ça. Mais il serait agréable de trouver un moyen d'imprimer le code FA2LATEX dans le document Markdown. Fa2Latex a de très belles fonctionnalités (par exemple, des charges de facteurs Suppression de la superficie inférieure à une valeur, en gras certaines valeurs) qui aident vraiment sa réadapsialité.



0
votes

Dans ce cas, vous devez ajouter la sortie du FA2LATEX (MOD) directement dans le document et non à l'intérieur {R Résultats = 'Markup'} CODE> puis produisez un PDF non pas un HTML ou un Doc. Copiez et collez le code ci-dessous dans un document RMD et voyez ce qui se passe.

---
output:
  pdf_document: default
  html_document: default
  word_document: default
---
title: "Factor Analysis Test"
author: "Simon Kiss"
date: '2019-06-07'
output: pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r}
library(psych)
```

```{r}
data('Thurstone')
```

```{r}
mod<-fa(Thurstone, 3)
```

% Called in the psych package  fa2latex % Called in the psych package  mod 
\begin{table}[htpb]\caption{fa2latex}
\begin{center}
\begin{scriptsize} 
\begin{tabular} {l r r r r r r }
 \multicolumn{ 6 }{l}{ A factor analysis table from the psych package in R } \cr 
 \hline Variable  &   MR1  &  MR2  &  MR3  &  h2  &  u2  &  com \cr 
  \hline 
Sentences   &  \bf{ 0.90}  &  -0.03  &   0.04  &  0.82  &  0.18  &  1.01 \cr 
 Vocabulary   &  \bf{ 0.89}  &   0.06  &  -0.03  &  0.84  &  0.16  &  1.01 \cr 
 Sent.Completion   &  \bf{ 0.84}  &   0.03  &   0.00  &  0.74  &  0.26  &  1.00 \cr 
 First.Letters   &   0.00  &  \bf{ 0.85}  &   0.00  &  0.73  &  0.27  &  1.00 \cr 
 Four.Letter.Words   &  -0.02  &  \bf{ 0.75}  &   0.10  &  0.63  &  0.37  &  1.04 \cr 
 Suffixes   &   0.18  &  \bf{ 0.63}  &  -0.08  &  0.50  &  0.50  &  1.20 \cr 
 Letter.Series   &   0.03  &  -0.01  &  \bf{ 0.84}  &  0.73  &  0.27  &  1.00 \cr 
 Pedigrees   &  \bf{ 0.38}  &  -0.05  &  \bf{ 0.46}  &  0.51  &  0.49  &  1.96 \cr 
 Letter.Group   &  -0.06  &   0.21  &  \bf{ 0.63}  &  0.52  &  0.48  &  1.25 \cr 
\hline \cr SS loadings & 2.65 &  1.87 &  1.49 &  \cr  
\cr 
            \hline \cr 
MR1   & 1.00 & 0.59 & 0.53 \cr 
 MR2   & 0.59 & 1.00 & 0.52 \cr 
 MR3   & 0.53 & 0.52 & 1.00 \cr 
 \hline 
\end{tabular}
\end{scriptsize}
\end{center}
\label{default}
\end{table} 


3 commentaires

Si cela n'aide pas cela signifie que je ne comprends pas la question!


Le problème avec c'est que ce n'est pas vraiment reproductible de manière idéale. Ce serait bien de simplement appeler le code plutôt que de mettre les résultats directement.


Je viens de l'écrire de manière à ce que les résultats soient affichés dans la console. J'ai également fourni une réponse ci-dessus qui semble avoir résolu le problème? Le problème est-il résolu?



1
votes

L'erreur est dans la sortie FA2LATEX. Pour certaines raisons bizarres, cela change scriptsize code> dans s \ iptsize code>. Les modifications suivantes corrigent la sortie:

```{r, results='asis'} 
a <- fa2latex(mod, silent = F)
```


0 commentaires