h    
 u   x
    
     
   ta
b l e 

Introduction

About this document

This is the introductory vignette for the R package ‘huxtable’, version 5.5.6.9000. A current version is available on the web in HTML or PDF format.

Huxtable

Huxtable is a package for creating text tables. It is powerful, but easy to use. Huxtable’s features include:

  • Export to LaTeX, HTML, Microsoft Word, Microsoft Excel, Microsoft Powerpoint, RTF and Markdown
  • Easy integration with knitr and rmarkdown documents
  • Formatted on-screen display
  • Multirow and multicolumn cells
  • Fine-grained control over cell background, spacing, alignment, size and borders
  • Control over text font, style, size, colour, alignment, number format and rotation
  • Table manipulation using standard R subsetting, or dplyr functions like filter and select
  • Easy conditional formatting based on table contents
  • Quick table themes
  • Automatic creation of regression output tables with the huxreg function

We will cover many of these features below.

Installation

You can install huxtable from within R:

install.packages("huxtable")

Getting started

A huxtable is an R object representing a table of text. You already know that R can represent a table of data in a data frame. For example, if mydata is a data frame, then mydata[1, 2] represents the the data in row 1, column 2.

A huxtable is just a data frame with some extra properties. So, if myhux is a huxtable, then myhux[1, 2] represents the data in row 1 column 2, as before. But this cell will also have some other properties - for example, the font size of the text, or the colour of the cell border.

To create a huxtable, use the function huxtable, or hux for short. Let’s suppose we want to print a table of jams that we have for sale. There are two columns, representing the kind of jam, and its price:

library(huxtable)
 
jams <- hux(
        Type  = c("Strawberry", "Raspberry", "Plum"),
        Price = c(1.90, 2.10, 1.80)
      )

You can convert a data frame to a huxtable with as_hux.

data(mtcars)
car_ht <- as_hux(mtcars)

If you look at a huxtable in R, it will print out a simple representation of the data. Notice that we’ve added the column names to the data. We’re going to print them out, so they need to be part of the actual table. The data will start on row 2 of the huxtable, and the column names will be row 1.

print_screen(jams)     # on the R command line, you can just type "jams"
##                                     Type            Price  
##                                     Strawberry        1.9  
##                                     Raspberry         2.1  
##                                     Plum              1.8  
## 
## Column names: Type, Price

To print a huxtable as LaTeX or HTML, just call print_latex or print_html. In knitr documents, like this one, you can simply evaluate the huxtable:

jams
TypePrice
Strawberry1.9
Raspberry2.1
Plum1.8

Huxtable properties

The default output is a plain table. Let’s make it smarter. We’ll:

  • make the table headings bold;
  • draw a border under the first row;
  • tweak the table width and spacing;
  • change the number formatting;
  • and add a caption.
library(dplyr) 

jams |> 
      set_all_padding(4) |> 
      set_outer_padding(0) |> 
      set_number_format(2) |> 
      set_bold(row = 1, col = everywhere) |> 
      set_bottom_border(row = 1, col = everywhere) |> 
      set_width(0.4) |> 
      set_caption("Pots of jam for sale")
Pots of jam for sale
TypePrice
Strawberry1.90
Raspberry2.10
Plum1.80

All these functions set one or more properties on the huxtable. That’s why they all start with set_.... The functions return the modified huxtable. So you can chain them together using the magrittr pipe. Really, these functions evaluate to:

jams <- set_all_padding(jams, 4)
jams <- set_outer_padding(jam, 0)

and so on. Let’s go through them line by line.

  • jams |> set_all_padding(10) sets four properties on every cell of the huxtable: the left_padding, right_padding, top_padding and bottom_padding property. We could have called set_left_padding(10) and so on, but this is a convenient shortcut. Cell padding is the amount of space on each side of a table cell. If you’re familiar with HTML, you’ll know how this works.
  • set_outer_padding(jams, 0) sets the padding around the outside of the huxtable to 0. Again, this is a shortcut. It’s like setting left_padding on all the cells on the left side of the huxtable, top_padding on the top, and so on.
  • set_number_format(jams, 2) changes how numbers within cells are displayed. It will work not just on numeric data, but on any numbers found in a cell. Setting the number_format property to 2 means that numbers will have 2 decimal places.
  • set_bold(jams, row = 1, col = everywhere) sets the bold property. This time we don’t set it for all cells – only on cells in row 1 and in all columns, i.e. everywhere. set_bold() has a default value of TRUE, so the call is just short for set_bold(jams, row = 1, col = everywhere, TRUE).
  • set_bottom_border(jams, row = 1, col = everywhere) sets the bottom_border property. Again it’s set for cells in row 1 and all columns. The bottom_border property is the width of the border in points. Here, we’ve set it to its default value of 0.4.
  • So far, all these properties have been cell properties. The next line sets a table property which applies to the whole table: the width.
  • The last line, set_caption(...), sets another table property: the table caption.

By the way, I’ve used tidyverse style to set these properties, chaining calls together in a pipe. You can also set properties directly. Here’s a set of calls that do exactly the same as the above:

# set all padding:
left_padding(jams) <- 4
right_padding(jams) <- 4
top_padding(jams) <- 4
bottom_padding(jams) <- 4

# set outer padding:
left_padding(jams)[1:nrow(jams), 1] <- 0
top_padding(jams)[1, 1:ncol(jams)] <- 0
right_padding(jams)[1:nrow(jams), ncol(jams)] <- 0
bottom_padding(jams)[nrow(jams), 1:ncol(jams)] <- 0

number_format(jams) <- 2
bold(jams)[1, 1:ncol(jams)] <- TRUE
bottom_border(jams)[1, 1:ncol(jams)] <- 0.4
width(jams) <- 0.4
caption(jams) <- "Pots of jam for sale"

This way of setting properties is the same as using functions like names(x) <- c("Name 1", "Name 2", ...) in base R. You can write

names(x)[1] <- "Name"

to change the first name of a vector. Similarly, in huxtable, you can write

bold(jams)[1, 1:ncol(jams)] <- TRUE

to set the bold property on the first row of cells.

Here, the assignment style is a little more verbose than the dplyr style, and you don’t get convenient shortcuts like everywhere. But you can use whichever you prefer.

To sum up, you set cell properties on a huxtable like this:

ht <- set_property(ht, row = rows, col = cols, value)

or like this:

ht <- set_property(ht, value)

where property is the name of the huxtable property. The first form sets the cell property for specific rows and columns. The second form sets it for all cells. Table-level properties are always set like

ht <- set_property(ht, value)

since they always apply to the whole table.

As well as cell properties and table properties, there are also row properties and column properties. The table below shows a complete list of properties.

Huxtable properties
Cell TextCellRowColumnTable
boldalignrow_heightcol_widthcaption
escape_contentsbackground_colorheader_rowsheader_colscaption_pos
fontbottom_bordercaption_width
font_sizebottom_border_colorheight
italicbottom_border_stylelabel
markdownbottom_paddinglatex_float
na_stringcolspanposition
number_formatleft_bordertable_environment
rotationleft_border_colortabular_environment
text_colorleft_border_stylewidth
wrapleft_padding
right_border
right_border_color
right_border_style
right_padding
rowspan
top_border
top_border_color
top_border_style
top_padding
valign

Selecting rows and columns

When you call set_property(ht, row = rows, col = cols, value), you can specify rows and cols in several different ways. (We’ll skip the argument names from now on.)

  • You can use numbers:

    # Set the italic property on row 1, column 1:
    jams |> set_italic(1, 1) 
  • Or use logical indices:

    # Set the italic property on column 1 of every row matching "berry":
    is_berry <- grepl("berry", jams$Type)
    jams |> set_italic(is_berry, 1) 
  • Or use characters for column names:

    # Set the italic property on row 1 of the column named "Type":
    jams |> set_italic(1, "Type")

These methods should all be familiar from base R. They are just the same as you can use for subsetting a data frame. In fact, you can use the same methods for assignment style:

italic(jams)[1, "Type"] <- TRUE
# the same as:
jams <- jams |> set_italic(1, "Type")

In set_ functions, there are some extra methods:

  • You can use tidyselect functions like matches() or starts_with() to select columns:

    # Set the italic property on row 1 of every column whose name starts with "T":
    jams |> 
          set_italic(1, starts_with("T"))

There are also some huxtable-specific selectors.

  • everywhere sets a property on all rows, or all columns.

    # Set the italic property on row 1 of all columns:
    jams |> set_italic(1, everywhere)
    
    # Set the italic property on all rows of column 1:
    jams |> set_italic(everywhere, 1)
  • final(n) sets a property on the last n rows or columns.

    jams |> set_italic(final(2), everywhere)
    # same as:
    jams |> set_italic(3:4, 1:2)

Editing huxtables

Formatting cell text

Here are some useful ways to change how cells are displayed.

  • The bold property makes a whole cell bold, and the italic property makes a cell italic. We’ve seen these.

  • The text_color property changes the color of text.

    jams |> 
          set_text_color(2:3, 1, "purple")
    Pots of jam for sale
    TypePrice
    Strawberry1.90
    Raspberry2.10
    Plum1.80

    You can use any valid R color name, or an HTML hex color like #FF0000.

  • The background_color property changes background color.

    Here’s one way to apply a subtle horizontal stripe to a table:

    jams |> 
          set_background_color(evens, everywhere, "grey95")
    Pots of jam for sale
    TypePrice
    Strawberry1.90
    Raspberry2.10
    Plum1.80

    This uses another huxtable-specific shortcut: evens specifies even-numbered rows or columns. (And odds specifies odd-numbered rows or columns.)

  • If you want to format selected text within cells, you can use markdown by setting the markdown property.

    The set_markdown_contents() sets the markdown property and the cell contents together:

    jams |> 
          set_markdown_contents(1, 1, "*Type* of jam") |> 
          set_markdown_contents(1, 2, "*Price* of jam") |> 
          set_markdown_contents(3, 2, "~~2.10~~ **Sale!** 1.50")
    Pots of jam for sale

    Type of jam

    Price of jam

    Strawberry1.90    
    Raspberry

    2.10 Sale! 1.50

    Plum1.80    
  • By default, huxtable will escape special characters in your cells. To display special characters such as LaTeX maths, set the escape_contents property to FALSE:

    new_row <- if (is_latex) c("Imaginary jam", "$e^{-i\\pi}$") else 
                 c("Copyright jam", "&copy;")
    
    jams |>
          insert_row(new_row, after = 4) |>
          set_escape_contents(5, 2, FALSE)
    Pots of jam for sale
    TypePrice
    Strawberry1.90
    Raspberry2.10
    Plum1.80
    Copyright jam©   

Aligning text and numbers

You can align cells to the left, right or center using the align property:

jams |>
      set_align(1, everywhere, "center")
Pots of jam for sale
TypePrice
Strawberry1.90
Raspberry2.10
Plum1.80

You may want to align numbers so that the decimal points line up. To do this, set align to the character representing the decimal point in your locale – typically "." or ",".

numbers <- hux(Numbers = c(100, 3.14, 0.0002))
numbers |>
      set_align(-1, 1, ".") |>
      theme_basic()
Numbers
100     
3.14  
0.0002

This does not always give perfect results. For LaTeX output, one approach is to align these cells using the siunitx TeX package. You can do this by setting options(huxtable.latex_siunitx_align = TRUE).

Borders

Each huxtable cell has 4 borders, on the left, top, right and bottom. These borders are “collapsed”, in CSS parlance: row 1’s bottom border is row 2’s top border, and setting one automatically sets the other. Each border has a thickness, a style (“solid”, “double”, “dotted” or “dashed”) and a colour.

To set all these properties together, you can use a brdr() object:

jams |> 
      set_right_border(everywhere, 1, brdr(3, "double", "grey"))
Pots of jam for sale
TypePrice
Strawberry1.90
Raspberry2.10
Plum1.80

Or, you can set each component individually:

jams |> 
      set_right_border(everywhere, 1, 3) |> 
      set_right_border_style(everywhere, 1, "double") |> 
      set_right_border_color(everywhere, 1, "grey")
Pots of jam for sale
TypePrice
Strawberry1.90
Raspberry2.10
Plum1.80

To set all the borders around a cell, use set_all_borders(). Here’s a corporate look for our jams:

jams |> 
      set_background_color(evens, everywhere, "grey80") |> 
      set_background_color(odds, everywhere, "grey90") |> 
      set_all_borders(brdr(0.4, "solid", "white")) |> 
      set_outer_padding(4)
Pots of jam for sale
TypePrice
Strawberry1.90
Raspberry2.10
Plum1.80

Other shortcuts include:

  • set_tb_borders() to set top and bottom borders;
  • set_lr_borders() to set left and right borders;
  • set_outer_borders() to set borders around a group of cells.

Not all output formats handle all kinds of borders equally well. In particular, LaTeX currently only handles “solid” and “double” borders – not “dotted” or “dashed”.

Changing and adding content

You can treat a huxtable just like a data frame. For example, here’s how to change the text in a particular cell:

jams[3, 1] <- "Snozberry"

You can change a whole column like this:

# Summer sale!
jams$Price <- c("Price", 1.50, 1.60, 1.50)

Notice that since the “Price” label is part of the huxtable, I had to include it in the data.

Or you can add a new column the same way.

options(error=recover)
jams$Sugar <- c("Sugar content", "40%", "50%", "30%")
jams
Pots of jam for sale
TypePriceSugar content
Strawberry1.9040.00%
Raspberry2.1050.00%
Plum1.8030.00%

Notice that the new column has the same bold heading, borders and number formatting as the other two. When you add data to a huxtable, by default, it copies cell properties over from the nearest neighbour.

Similarly, you can add a new row to a huxtable with rbind, and cell properties will be copied from the previous row:

rbind(jams, c("Gooseberry", 2.1, "55%"))
Pots of jam for sale
TypePriceSugar content
Strawberry1.9040.00%
Raspberry2.1050.00%
Plum1.8030.00%
Gooseberry2.1055.00%

Sometimes, you would like to insert rows or columns in the middle of a table. You can do this with rbind, but it is not very convenient:

best_before <- c("Best before", c("Aug 2022", "Sept 2022", "June 2022"))

cbind(jams[, 1], best_before, jams[, -1])
Pots of jam for sale
TypeBest beforePriceSugar content
StrawberryAug 2022.001.9040.00%
RaspberrySept 2022.002.1050.00%
PlumJune 2022.001.8030.00%

Huxtable has a useful shortcut called insert_column() for this.

jams |> 
      insert_column(best_before, after = "Type") |> 
      set_number_format(everywhere, 2, 0) # correct the formatting for dates
Pots of jam for sale
TypeBest beforePriceSugar content
StrawberryAug 20221.9040.00%
RaspberrySept 20222.1050.00%
PlumJune 20221.8030.00%

The after argument says where the second object should be inserted. It can be a column name or number. There’s also an insert_row() function.

If you prefer using dplyr to edit contents, many dplyr functions work with huxtable.

jams |> 
      mutate(
        Type = toupper(Type)
      ) |> 
      select(Type, Price)
Pots of jam for sale
TYPEPrice
STRAWBERRY1.90
RASPBERRY2.10
PLUM1.80

Notice that changing the Type column changed the whole column, including the heading. If you want to work with the underlying data, it’s often best to do this before creating a huxtable. For example, here’s how you might create a jams table ordered by price:

jams_data <- data.frame(
        Type = c("Strawberry", "Raspberry", "Plum"),
        Price = c(1.90, 2.10, 1.80)
      )

jams_ordered <- jams_data |> 
      arrange(Price) |> 
      as_hux() |> 
      set_bold(1, everywhere) # et cetera...

It’s easier to arrange by Price before you add the “Price” heading to the column. Alternatively, you can use as_hux(..., add_colnames = FALSE), and add column names later with the add_colnames() function.

# Same result as above

jams_data |> 
      as_hux(add_colnames = FALSE) |> 
      arrange(Price) |> 
      add_colnames()

Changing the layout

When we have larger tables, we may need to control the layout more carefully. Here’s selected rows of the iris dataset:

iris_hux <- iris |> 
      group_by(Species) |> 
      select(Species, Sepal.Length, Sepal.Width, Petal.Length, Petal.Width) |> 
      slice(1:5) |> 
      as_hux() |>
      theme_basic() |> 
      set_tb_padding(2)

iris_hux      
SpeciesSepal.LengthSepal.WidthPetal.LengthPetal.Width
setosa5.13.51.40.2
setosa4.93  1.40.2
setosa4.73.21.30.2
setosa4.63.11.50.2
setosa5  3.61.40.2
versicolor7  3.24.71.4
versicolor6.43.24.51.5
versicolor6.93.14.91.5
versicolor5.52.34  1.3
versicolor6.52.84.61.5
virginica6.33.36  2.5
virginica5.82.75.11.9
virginica7.13  5.92.1
virginica6.32.95.61.8
virginica6.53  5.82.2

Here I’ve used theme_basic() to quickly provide an acceptable look. We’ll see more about themes later.

The column names are rather long. We could use an extra header row to shorten them.

iris_hux <- iris_hux |> 
  set_contents(1, 2:5, c("Length", "Width", "Length", "Width")) |> 
  insert_row("", "Sepal", "", "Petal", "", after = 0) |> 
  merge_cells(1, 2:3) |> 
  merge_cells(1, 4:5) |> 
  set_align(1, everywhere, "center") |> 
  set_tb_padding(1, everywhere, 0) |> 
  set_bold(1, everywhere)
  
iris_hux
SepalPetal
SpeciesLengthWidthLengthWidth
setosa5.13.51.40.2
setosa4.93  1.40.2
setosa4.73.21.30.2
setosa4.63.11.50.2
setosa5  3.61.40.2
versicolor7  3.24.71.4
versicolor6.43.24.51.5
versicolor6.93.14.91.5
versicolor5.52.34  1.3
versicolor6.52.84.61.5
virginica6.33.36  2.5
virginica5.82.75.11.9
virginica7.13  5.92.1
virginica6.32.95.61.8
virginica6.53  5.82.2

Let’s take this piece by piece.

This looks better, but it is rather long. (And we only used a few of the 150 rows in the iris data!) One solution is to reorganize your table layout. In data management, it is a cardinal sin to have the same data in two columns, but it can make a table easier to read.

iris_hux_wide <- iris_hux |> 
      set_header_rows(1:2, TRUE) |> 
      restack_across(rows = 7) |> 
      set_bottom_border(final(1), everywhere)

iris_hux_wide
SepalPetalSepalPetalSepalPetal
SpeciesLengthWidthLengthWidthSpeciesLengthWidthLengthWidthSpeciesLengthWidthLengthWidth
setosa5.13.51.40.2versicolor7  3.24.71.4virginica6.33.36  2.5
setosa4.93  1.40.2versicolor6.43.24.51.5virginica5.82.75.11.9
setosa4.73.21.30.2versicolor6.93.14.91.5virginica7.13  5.92.1
setosa4.63.11.50.2versicolor5.52.34  1.3virginica6.32.95.61.8
setosa5  3.61.40.2versicolor6.52.84.61.5virginica6.53  5.82.2

This is too wide, but we’ll deal with that in a second. The restack_across() function reorganizes our table to fit into fewer rows (and more columns). There’s a similar restack_down() function which fits a table into more rows and fewer columns. To understand these, a bit of color will help:

lego_hux <- as_hux(matrix(1:16, 4, 4)) |> 
      set_background_color(1:2, 1:2, "red") |> 
      set_background_color(1:2, 3:4, "yellow") |> 
      set_background_color(3:4, 1:2, "darkgreen") |> 
      set_background_color(3:4, 3:4, "blue") |> 
      set_text_color(3:4, 1:4, "white") |> 
      set_all_borders(brdr(2, "solid", "white"))

lego_hux |> set_caption("Original table")
Original table
15913
261014
371115
481216
lego_hux |> 
      restack_across(rows = 2) |> 
      set_caption("Restacked across")
Restacked across
15913371115
261014481216
lego_hux |> 
      restack_down(cols = 2) |> 
      set_caption("Restacked down")
Restacked down
15
26
37
48
913
1014
1115
1216

Table position and column width

Our new iris huxtable is now shorter, but it’s too wide. We can control this with the table-level width property. We can also set the width of individual columns with the column property col_width. And we might want to have this table left-aligned on the page, using the position property.

iris_hux_wide |> 
      set_width(0.8) |> 
      set_font_size(8) |> 
      set_lr_padding(2) |> 
      set_col_width(rep(c(0.4, 0.2, 0.2, 0.2, 0.2)/3, 3)) |> 
      set_position("left")
SepalPetalSepalPetalSepalPetal
SpeciesLengthWidthLengthWidthSpeciesLengthWidthLengthWidthSpeciesLengthWidthLengthWidth
setosa5.13.51.40.2versicolor7  3.24.71.4virginica6.33.36  2.5
setosa4.93  1.40.2versicolor6.43.24.51.5virginica5.82.75.11.9
setosa4.73.21.30.2versicolor6.93.14.91.5virginica7.13  5.92.1
setosa4.63.11.50.2versicolor5.52.34  1.3virginica6.32.95.61.8
setosa5  3.61.40.2versicolor6.52.84.61.5virginica6.53  5.82.2

width and col_width can either be numbers, or units recognized by HTML or LaTeX. It’s best to specify col_width as a set of numbers. These are treated as proportions of the total table width.

TypePriceSugar content
Strawberry1.9040.00%
Raspberry2.1050.00%
Plum1.8030.00%

If you have a small table, you may want your text to wrap around it. You can do this by specifying "wrapleft" or "wrapright" as the position. The table on the right uses set_position("wrapright"), set_width(0.35) and the “compact” theme, which minimizes cell padding to keep the table small. Table wrapping works in both HTML and LaTeX. There’s no option to have text wrapped around both sides of the table. That would just be painful for your readers.

Headers

You’ll notice that the restacked iris huxtable repeated the header rows appropriately. For this to happen, we set the header_rows property to TRUE on rows 1-2. This is a row property. Row properties are set like:

set_row_property(ht, row, value)

By themselves, header rows are not displayed any differently. But certain themes will display them differently. You can also style headers yourself using the style_headers() function:

iris_hux <- iris_hux |> 
      set_header_rows(1:2, TRUE) |> 
      set_header_cols(1, TRUE) |> 
      style_headers(bold = TRUE, text_color = "grey40")

iris_hux
SepalPetal
SpeciesLengthWidthLengthWidth
setosa5.13.51.40.2
setosa4.93  1.40.2
setosa4.73.21.30.2
setosa4.63.11.50.2
setosa5  3.61.40.2
versicolor7  3.24.71.4
versicolor6.43.24.51.5
versicolor6.93.14.91.5
versicolor5.52.34  1.3
versicolor6.52.84.61.5
virginica6.33.36  2.5
virginica5.82.75.11.9
virginica7.13  5.92.1
virginica6.32.95.61.8
virginica6.53  5.82.2

Here we have set the first two rows as headers, and the first column as a a header column. style_headers() applies to both rows and columns. Alternatively, use style_header_rows() and style_header_cols() to treat header rows and columns differently. Their arguments are a list of properties and property values.

Splitting tables

If we haven’t got room to restack, an alternative approach is to split our original table into separate tables. We can do this with split_across() and split_down(). These functions take a single huxtable and return a list of huxtables. Like the restack functions, they take account of headers by default.

list_of_iris <- split_across(iris_hux, c(7, 12))
list_of_iris[[1]] |> set_caption("Setosa Irises")
Setosa Irises
SepalPetal
SpeciesLengthWidthLengthWidth
setosa5.13.51.40.2
setosa4.93  1.40.2
setosa4.73.21.30.2
setosa4.63.11.50.2
setosa5  3.61.40.2
list_of_iris[[2]] |> set_caption("Versicolor Irises")
Versicolor Irises
SepalPetal
SpeciesLengthWidthLengthWidth
versicolor7  3.24.71.4
versicolor6.43.24.51.5
versicolor6.93.14.91.5
versicolor5.52.34  1.3
versicolor6.52.84.61.5
list_of_iris[[3]] |> set_caption("Virginica Irises")
Virginica Irises
SepalPetal
SpeciesLengthWidthLengthWidth
virginica6.33.36  2.5
virginica5.82.75.11.9
virginica7.13  5.92.1
virginica6.32.95.61.8
virginica6.53  5.82.2

Themes

Huxtable comes with some predefined themes for formatting. The table of huxtable properties above used theme_bright(). Other options include theme_basic() and the randomized theme_mondrian():

theme_mondrian(jams)
Pots of jam for sale
TypePriceSugar content
Strawberry1.9040.00%
Raspberry2.1050.00%
Plum1.8030.00%

The “themes” vignette shows all the available themes. Themes simply apply a set of styles to the huxtable.

Conditional formatting

When you want to apply different formatting to different cells, you can use mapping functions.

For example, here’s another way to create a striped table:

jams |> map_background_color(by_rows("grey90", "grey95"))
Pots of jam for sale
TypePriceSugar content
Strawberry1.9040.00%
Raspberry2.1050.00%
Plum1.8030.00%

Or, we could apply a text color to our iris data to pick out the lowest and highest values of each column:

iris_hux |> 
      map_text_color(-(1:2), -1, 
        by_colorspace("darkred", "grey50", "darkgreen", colwise = TRUE)
      )
SepalPetal
SpeciesLengthWidthLengthWidth
setosa5.13.51.40.2
setosa4.93  1.40.2
setosa4.73.21.30.2
setosa4.63.11.50.2
setosa5  3.61.40.2
versicolor7  3.24.71.4
versicolor6.43.24.51.5
versicolor6.93.14.91.5
versicolor5.52.34  1.3
versicolor6.52.84.61.5
virginica6.33.36  2.5
virginica5.82.75.11.9
virginica7.13  5.92.1
virginica6.32.95.61.8
virginica6.53  5.82.2

by_rows and by_ranges are mapping functions.

To use a mapping function, you write map_property(ht, row, col, fn), where property is the cell property you want to map. ht is the huxtable, and fn is the mapping function starting with by. row and col are optional row and column specifiers, just the same as for set_xxx.

Here’s one more example. To set properties for cells that match a string, use the by_regex function.

jams |> map_text_color(by_regex("berry" = "red4", "navy"))
Pots of jam for sale
TypePriceSugar content
Strawberry1.9040.00%
Raspberry2.1050.00%
Plum1.8030.00%

There is more information about mapping functions in this article.

Output to different formats

Pretty-printing data frames

If you load huxtable within a knitr document, it will automatically format data frames for you:

head(iris)
Sepal.LengthSepal.WidthPetal.LengthPetal.WidthSpecies
5.13.51.40.2setosa
4.93  1.40.2setosa
4.73.21.30.2setosa
4.63.11.50.2setosa
5  3.61.40.2setosa
5.43.91.70.4setosa

If you don’t want this, you can turn it off by setting the huxtable.knit_print_df option:

options(huxtable.knit_print_df = FALSE)

head(iris) # back to normal
##   Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1          5.1         3.5          1.4         0.2  setosa
## 2          4.9         3.0          1.4         0.2  setosa
## 3          4.7         3.2          1.3         0.2  setosa
## 4          4.6         3.1          1.5         0.2  setosa
## 5          5.0         3.6          1.4         0.2  setosa
## 6          5.4         3.9          1.7         0.4  setosa

Using huxtables in knitr and rmarkdown

If you use knitr and rmarkdown in RStudio, huxtable objects should automatically display in the appropriate format (HTML, LaTeX, or RTF).

Huxtable needs some LaTeX packages for LaTeX output. The function report_latex_dependencies() will print out a set of usepackage{...} statements. If you use Sweave or knitr without rmarkdown, you can use this function in your LaTeX preamble, to load the packages you need.

If you want to create Word or Powerpoint documents, install the flextable package from CRAN. Huxtables can then be automatically printed in Word documents. Or you can convert them to flextable objects and include them in Word or Powerpoint documents. Similarly, to print tables in an Excel spreadsheet, install the openxlsx package See ?as_flextable and ?as_Workbook for more details.

You can print a huxtable on screen by typing its name at the command line. Borders, column and row spans and cell alignment are shown. If the crayon package is installed, and your terminal or R IDE supports it, border, text and background colours are also displayed.

print_screen(jams)
##                                     Pots of jam for sale                                      
##                              Type          Price   Sugar content  
##                            ───────────────────────────────────────
##                              Strawberry     1.90          40.00%  
##                              Raspberry      2.10          50.00%  
##                              Plum           1.80          30.00%  
## 
## Column names: Type, Price, Sugar

If you need to output to another format, file an issue request on Github.

Quick output commands

Sometimes you quickly want to get your data into a document. To do this you can use huxtable functions starting with quick_:

  • quick_pdf() creates a PDF.
  • quick_docx() creates a Word document.
  • quick_html() creates a HTML web page.
  • quick_xlsx() creates an Excel spreadsheet.
  • quick_pptx() creates a Powerpoint presentation.
  • quick_rtf() creates an RTF document.
  • quick_latex() creates a LaTeX file.

These are called with one or more huxtable objects (or objects which can be turned into a huxtable, such as data frames). A new document of the appropriate type will be created and opened. By default the file will be in the current directory, under a name like e.g. huxtable-output.pdf. If the file already exists, you’ll be asked for confirmation.

quick_pdf(iris_hux) 
quick_pdf(iris_hux, file = "iris.pdf")

Useful output options

See ?"huxtable-options" for the full list of huxtable options. In particular:

  • options("huxtable.knit_print_df"): if TRUE, prints data frames using huxtable.
  • options("huxtable.latex_use_fontspec"): if TRUE, uses the LaTeX “fontspec” package which lets you use the same fonts in TeX and HTML. You will need to use the xetex or xelatex engine for output.
  • options("huxtable.long_minus"). If TRUE, prints long minus signs for numbers, e.g. −3.5 rather than -3.5.
  • options("huxtable.latex_siunitx_align"). If TRUE, uses the \tablenum macro from the “siunitx” package to align numbers by decimal point.

Creating a regression table

A common reason to print a table is to report statistical results. The huxreg() function creates a table from a set of regressions.

lm1 <- lm(mpg ~ cyl, mtcars)
lm2 <- lm(mpg ~ hp, mtcars)
lm3 <- lm(mpg ~ cyl + hp, mtcars)

huxreg(lm1, lm2, lm3)
(1)(2)(3)
(Intercept)37.885 ***30.099 ***36.908 ***
(2.074)   (1.634)   (2.191)   
cyl-2.876 ***        -2.265 ***
(0.322)           (0.576)   
hp        -0.068 ***-0.019    
        (0.010)   (0.015)   
N32        32        32        
R20.726    0.602    0.741    
logLik-81.653    -87.619    -80.781    
AIC169.306    181.239    169.562    
*** p < 0.001; ** p < 0.01; * p < 0.05.

For more information see the “huxreg” vignette.

Getting more information

Huxtable has a complete set of help files. These are installed with the package, or readable online.

If you run into trouble, consult ?"huxtable-FAQ". It will help you to file a useful bug report or seek help. The NEWS file lists changes in recent versions. The huxtable website has links to all this information and more.