library(dplyr) library(tidyr) library(knitr)

cars_summary <- cars %>% pivot_longer( cols = everything(), names_to = “Variable”, values_to = “Value” ) %>% group_by(Variable) %>% summarise( Min = min(Value), Q1 = quantile(Value, 0.25), Median = median(Value), Mean = mean(Value), Q3 = quantile(Value, 0.75), Max = max(Value), SD = sd(Value) )

kable(cars_summary, caption = “Summary statistics of car dataset”) plot(pressure)

summary(cars) library(gtsummary) kable(cars_summary, caption = “Summary statistics of car dataset”)