x <- mini_diamond %>%
dplyr::select(id, dplyr::where(is.numeric)) %>%
dplyr::mutate(
dplyr::across(
dplyr::where(is.numeric),
~ round(.x / max(.x), 4)
)
) %>%
c2r("id")
seriate_df(x)
Run the code above in your browser using DataLab