Change the background colors of rows and columns

You should know three functions to change the appearance of table rows and columns :

• setZebraStyle() : to color odd and even rows differently; for example, odd rows in gray color and even rows in white color.
• setRowsColors() : to change color of a particular table row
• setColumnsColors : to change the color of particular table columns

These functions can be used as follow :

library(ReporteRs)

doc <- docx()

data<-iris[1:5, ]

# Zebra striped tables
doc <- addTitle(doc, "Zebra striped tables")
MyFTable <- vanilla.table(data)
MyFTable <- setZebraStyle(MyFTable, odd = '#eeeeee', even = 'white')
doc <- addFlexTable( doc, MyFTable)

# Change columns and rows background colors
doc <- addTitle(doc, "Change columns and rows background colors")
MyFTable = FlexTable(data = data )
# i : row index; j : column index
MyFTable = setRowsColors(MyFTable, i=2:3, colors = 'lightblue')
MyFTable = setColumnsColors(MyFTable, j=3, colors = 'pink' )
doc <- addFlexTable(doc, MyFTable)

writeDoc(doc, file = "r-reporters-word-document-formatted-table1.docx")

Note that, i and j are, respectively, the index of rows and column to change

Change cell background and text colors

We can change the background colors of some cells according to their values using the function setFlexTableBackgroundColors().

As an example, We’ll set up the background color of column 2 according to the value of the Sepal.Width variable (iris data sets) :

• Cells with Sepal.Width < 3.2 are colored in gray (“#DDDDDD”)
• Cells with Sepal.Width > = 3.2 are colored in “orange”

The text values of the table cells can be also customized as demonstrated in the example below :

library(ReporteRs)

doc <- docx()

data<-iris[1:5, ]

# Change the background colors of column 2 according to Sepal.Width
#++++++++++++++++++++++++++++
doc <- addTitle(doc, "Change the background color of cells")
MyFTable <- FlexTable(data)
MyFTable <- setFlexTableBackgroundColors(MyFTable, j = 2,
  colors = ifelse(data$Sepal.Width < 3.2, '#DDDDDD', 'orange'))

doc <- addFlexTable( doc, MyFTable)

# Format the text of some cells (column 3:4)
#++++++++++++++++++++++++++++
doc <- addTitle(doc, "Format cell text values")
MyFTable = FlexTable(data)
MyFTable[, 3:4] = textProperties(color = 'blue')
doc <- addFlexTable( doc, MyFTable)

writeDoc(doc, file = "r-reporters-word-document-format-cells.docx")

Insert content into a table : header and footer rows

Additional rows, such as header and footer, can be easily added into a table as illustrated in the example hereafter. Contents can be also added in a particular cell.

The functions addHeaderRow() and addFooterRow() are used to add a header and a footer.

A simplified format of these functions are :

addHeaderRow(x, value, colspan, text.properties)

addFooterRow(x, value, colspan, text.properties)

library(ReporteRs)
doc <- docx()

data<-iris[1:5, ]

# Insert a content into a table
doc <- addTitle(doc, "Insert a content")
MyFTable = FlexTable(data, header.columns= FALSE )

# Add first header row
MyFTable <- addHeaderRow( MyFTable, 
            value = c('Sepal', 'Petal', 'Species'), 
            text.properties = textBold(color="orange"), 
            colspan = c( 2, 2, 1))

# Add second header row
MyFTable = addHeaderRow(MyFTable, value = names(data),
  text.properties = textBold())
     
# Add footer row
MyFTable <- addFooterRow(MyFTable, 
              value = 'This data is from iris data sets',
              colspan = 5, 
              text.properties = textBoldItalic(color ="blue"))
# Add symbol
MyFTable[data$Petal.Length!=1.4, 'Species',
  text.properties = textBold(vertical.align = 'superscript',
                             color = "red")] = '(1)'
doc <- addFlexTable( doc, MyFTable)

writeDoc(doc, file = "r-reporters-word-document-add-header-footer.docx")