rimageformatgt
How do I get images to display more economically in a gt table (less blank space) using gt_img_rows?
I am creating a gt table and with headshot images of baseball player and the images are displaying in suboptimal fashion. What I want is to for the cell borders to converge more tightly around the image, so that there is barely any blank space between the borders and the player's head/torso. Instead, I get the following:
My code:
library(gt)
library(gtExtras)
library(tidyverse)
data <- structure(list(Extension = c(91, 92, 93, 94, 95),
`4.8` = c("https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://a.espncdn.com/combiner/i?img=/i/headshots/mlb/players/full/34928.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png"
),
`5` = c("https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://a.espncdn.com/combiner/i?img=/i/headshots/mlb/players/full/36093.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png"
),
`5.2` = c("https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png"
),
`5.4` = c("https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://a.espncdn.com/combiner/i?img=/i/headshots/mlb/players/full/36002.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://a.espncdn.com/combiner/i?img=/i/headshots/mlb/players/full/4705673.png"
)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA,
-5L))
data %>%
gt() %>%
gt_theme_espn() %>%
## for some reason using cols_width misaligns images (to the right)
# cols_width(
# everything() ~ px(40)
# ) %>%
gt_img_rows(2, height = 40) %>% #add headshots
gt_img_rows(3, height = 40) %>%
gt_img_rows(4, height = 40) %>%
gt_img_rows(5, height = 40) %>%
tab_header(title = "Avg. Velo and Extension") %>%
cols_align(
align = "center",
columns = c(1:5)) %>%
tab_style(
style = list(
cell_fill(color = "#FFFFFF")
),
locations = cells_body()) %>%
tab_style(
style = cell_borders(
sides = c("top", "bottom", "left","right"),
color = "gray",
weight = px(1.5),
style = "solid"
),
locations = cells_body()
) %>%
tab_spanner(label = "Extension (ft)", columns = c(
2:5)) %>%
cols_label(Extension = md("Avg<br />Velo"))
Note that I've tinkered with cols_width (see commented code in above chunk) but to no avail. Grateful for any help here.
Solution
tab_options() has two arguments for adjusting vertical (data_row.padding =) and horizontal (data_row.padding.horizontal =) padding. When set to 0, it removes most of the excess blank space.
library(gt)
library(gtExtras)
library(tidyverse)
data <- structure(list(Extension = c(91, 92, 93, 94, 95),
`4.8` = c("https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://a.espncdn.com/combiner/i?img=/i/headshots/mlb/players/full/34928.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png"
),
`5` = c("https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://a.espncdn.com/combiner/i?img=/i/headshots/mlb/players/full/36093.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png"
),
`5.2` = c("https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png"
),
`5.4` = c("https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://a.espncdn.com/combiner/i?img=/i/headshots/mlb/players/full/36002.png",
"https://upload.wikimedia.org/wikipedia/commons/1/12/White_background.png",
"https://a.espncdn.com/combiner/i?img=/i/headshots/mlb/players/full/4705673.png"
)), class = c("tbl_df", "tbl", "data.frame"), row.names = c(NA,
-5L))
data %>%
gt() %>%
gt_theme_espn() %>%
## for some reason using cols_width misaligns images (to the right)
# cols_width(
# everything() ~ px(40)
# ) %>%
gt_img_rows(2, height = 40) %>% #add headshots
gt_img_rows(3, height = 40) %>%
gt_img_rows(4, height = 40) %>%
gt_img_rows(5, height = 40) %>%
tab_header(title = "Avg. Velo and Extension") %>%
cols_align(
align = "center",
columns = c(1:5)) %>%
tab_style(
style = list(
cell_fill(color = "#FFFFFF")
),
locations = cells_body()) %>%
tab_style(
style = cell_borders(
sides = c("top", "bottom", "left","right"),
color = "gray",
weight = px(1.5),
style = "solid"
),
locations = cells_body()
) %>%
tab_spanner(label = "Extension (ft)", columns = c(
2:5)) %>%
cols_label(Extension = md("Avg<br />Velo")) %>%
tab_options(data_row.padding = px(0),
data_row.padding.horizontal = px(0))
- How to hide NAs when using xlsx::saveWorkbook?
- How do I retrieve a simple numeric value from a named numeric vector in R?
- Matching pair-wise columns from left to right across rows in one dataframe to another dataframe and adding new columns with matching values
- Income to outcome flow chart in Sankey plotly R
- color mapping in geom_conn_bundle not showing correctly
- Print R package startup message AFTER automatic package conflict messages instead of before
- Summing a set of R dataframe rows (column-wise), while retaining the first n columns
- Added variable / partial regression plots for groups in an interaction?
- how to make a topoplot in R with coordinates variable distribution
- List of all functions in base R?
- Plotting multiple plots for different initial conditions in one graph
- Printing repetitively on the same line in R
- Generating UI/Server based on initial selection
- Subset dataframe based on pickerInput
- How to let user pick the data in R-shiny?
- Couldn't show my simple bar charts separately on Shiny R dashboardBody
- How to programmatically filter contents of a second shiny app displayed via iframe
- How to select specific interesting groups for the boxplot in R Shiny app?
- Crosstable and Plot grouping with reactive values
- Is there a way to make multiple Shiny picker inputs where the selections must be disjoint?
- Delay/avoid duplication of shiny server side functions until after credentials
- Predictions only returns value "1"
- How to display a busy indicator in a shiny app?
- Append doesn't work when writing to CSV in R
- Changing the start date of a gantt chart in DiagrammeR
- Check for installed packages before running install.packages()
- Compare two columns element-wise
- For loop is several times faster in R than in Python using the rpy2 library
- Setting a flag based on two samples' dates
- How to bring pop-ups for long text string selection items forward in front of modal they are rendered from when using virtualSelectInput()?