1 CRÉDITOS


Álvaro Alonso Fernández
Departamento de Ciencias de la Vida
Universidad de Alcalá (España) Visita mi Web de R




2 PAQUETES NECESARIOS

Instalaremos con install.packages('officer'), install.packages('flextable') y install.packages('tidyverse') y activaremos los paquetes de la siguiente forma:

library(officer)
library(flextable)
library(tidyverse)

3 CREAMOS NUESTRO DATAFRAME

En este caso tendremos un dataframe con 3 especies (una por columna) y 6 sitios (6 filas). En cada sitio hemos contado el número de cada especie presente:

nuestrodataframe <- data.frame(sites=c('Muy Alto', 'Alto', 'Medio', 'Bajo-Medio', 'Bajo', 'Muy Bajo'),
                 species1=c('2', '3', '0', '5', '5', '8'),
                 species2=c('21', '13', '0', '5', '15', '8'),
                 species3=c('72', '3', '0', '5', '0', '8'))

#view data frame
nuestrodataframe
##        sites species1 species2 species3
## 1   Muy Alto        2       21       72
## 2       Alto        3       13        3
## 3      Medio        0        0        0
## 4 Bajo-Medio        5        5        5
## 5       Bajo        5       15        0
## 6   Muy Bajo        8        8        8

4 EXPORTAMOS EL DATAFRAME A FICHERO DE WORD

Ahora vamos a exportar el dataframe a un fichero Word. Para ello utilizamos read_docx. Creamos primero una estructura de fichero vacio que se llama miWord:

    miWord <- read_docx()

Ahora añadimos contenido, en este caso nuestro dataframe:

miWord <- miWord %>% 
      body_add_table(nuestrodataframe, style = "table_template")

Y por último generamos el fichero:

print(miWord, target = "F:\\R\\MARKDOWN\\exportarword\\miWORD.docx")
Nuestro fichero Word debería aparecer en la ruta indicada. El aspecto de la tabla generada en Word a partir de nuestro dataframe debería tener el siguiente aspecto:

5 CRÉDITOS

Álvaro Alonso Fernández
Departamento de Ciencias de la Vida
Universidad de Alcalá (España)