Color columns based on another column

[kwakuduahc1]

Prework

• [*] Read and agree to the code of conduct and contributing guidelines.
• [*] If there is already a relevant issue, whether open or closed, comment on the existing thread instead of posting a new issue.
• [*] For any problems you identify, a minimal reproducible example so the maintainer can troubleshoot. A reproducible example is:
  • [*] Runnable: post enough R code and data so any onlooker can create the error on their own computer.
  • [*] Minimal: reduce runtime wherever possible and remove complicated details that are irrelevant to the issue at hand.
  • [*] Readable: format your code according to the tidyverse style guide.

Question

What would you like to know?

How do I color other columns based on the value of another column? The issue is described in #1119 but I could not find a description of how to do that and I could not find it in the documentation.

Below is a how it should work

mtcars  %>% 
  gt() %>% 
  data_color(
  # Help here
   # color **disp and hp** columns where __cyl__ > 4
  )

Thank you in advance.

[olivroy]

data_color() is quite powerful, I recommend you reading the examples in the documentation https://gt.rstudio.com/reference/data_color.html

# To color disp and hp colors, when cyl > 4, based on their respective values
gt::gt(
  mtcars
) |> 
  gt::data_color(
    columns = c(disp, hp), # columns to color
    rows = cyl > 4, # rows to color
  )

# To color disp and hp colors, based on the value of column mpg
gt::gt(
  mtcars
) |> 
  gt::data_color(
    columns = c(mpg),  # colored based on mpg
    rows = cyl > 4, # rows to color
    target_columns = c(disp, hp) # columns to color
  )

The function allows for more customization and options too

[kwakuduahc1]

Thank you for the prompt response. However, I am looking at the disp and hp value is less than the cyl value. I could not find that in the documentation.

Best.

[olivroy]

Well you can construct any type of condition you want to rows

I am not sure I see what you mean?

• Which rows do you expect to be colored?

• Which columns do you expect to be colored?

• color should be based on which column?

• Do you expect the full mtcars dataset to appear, or do you need to use dplyr::filter() to remove rows?

# To color disp and hp colors, based on the value of column cyl when cyl>4
gt::gt(
  mtcars
) |> 
  gt::data_color(
    columns = c(cyl),  # colored based on cyl
    rows = cyl > 4, # rows to color
    target_columns = c(disp, hp) # columns to color
  )

[kwakuduahc1]

Sorry for confusing you.

I want the disp and hp columns to be colored if any of them is less than the cyl value.

I was tired and realize my folly.

Thanks.

[olivroy]

Well, in this case, none will be colored, disp and hp have values > 60, and cyl ranges between 4, 6, and 8.

But the code would be

library(gt)
mtcars |> 
  gt::gt() |> 
  data_color(
    columns = c(disp, hp),
    rows = disp < cyl | hp < cyl
  )

But that would error, because the condition for rows will not match any row.

[kwakuduahc1]

mtcars |> 
  gt::gt() |> 
  data_color(
    columns = c(disp, hp),
    rows = am == cyl 
  )

throws error

Error in `get_contrast_ratio()`:
! At least one color defined for each of
  `color_1` and `color_2`.

Thanks.

[olivroy]

This is expected because no row will be colored, data_color() cannot be used when no rows are colored.

The error message could be improved however.

mtcars |> dplyr::filter(am == cyl) will have no row.

[kwakuduahc1]

Thank you.

This works

mtcars |>
gt::gt() |>
data_color(
columns = c(disp, hp),
rows = gear == cyl
)

I should be good from here onwards.