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 can I download GADM data in R?
- Use dplyr to compute "streaks" in column of data
- Count empty strings?
- How to lookup and sum multiple columns in R
- Is there a way to make the bars' colors conditional to the column?
- How to assign values to a df$column from another df using conditions in R
- Is there a way to read Qlikview data object using R and perform an statistical operation and return results to Qlikview?
- R: Extracting characters from string vectors to data frame rows
- Else if statement to create a new column
- Calculate percentage in a data frame R
- How can I calculate sums of multiple columns without them being summed together into 1 column?
- How to convert a binary file with extension .GRD to .TXT in R?
- How to specify the size of a graph in ggplot2 independent of axis labels
- Using sqldf filter and group by in r dynamically
- Grouping data and reassembling rows as columns
- Coordinates of current mouse position on leaflet map with shiny
- read_csv drops 'f' from end of string
- wes_palettes: How to obtain color hex codes from a wesanderson palette when it set to continuous with more than the predefined colors
- ggplot2 change axis limits for each individual facet panel
- Mixing Rcpp modules and Rcpp::export
- How to create a forest plot that uses estimates obtained from ClubSandwich?
- how to include an abstract in a Rmd file
- Difference between ntile and cut and then quantile() function in R
- Install with devtools::install_github() fails to detect build tools
- How to assign geometry type "polygons" to SpatVector with "null" geometry type using the terra package in R?
- Fitting of nls model in R - manual versus brute force issues
- Likelihood ratio when the difference in the log-likelihood is a large negative number
- How to tally occurrences of same value across columns in R?
- Apply function rowwise() using column names to identify function arguments using mutate()
- writing multiple data frames into the same excel file in R