Tablas

library(ksnet)
library(dplyr)
#> 
#> Attaching package: 'dplyr'
#> The following objects are masked from 'package:stats':
#> 
#>     filter, lag
#> The following objects are masked from 'package:base':
#> 
#>     intersect, setdiff, setequal, union
library(palmerpenguins)

El paquete también incluye estilos para tablas (usando el paquete gt).

 
 penguins %>%
     head() %>%
     select(island, species, body_mass_g) %>%
     ksnet_table()

island	species	body_mass_g
Torgersen	Adelie	3750
Torgersen	Adelie	3800
Torgersen	Adelie	3250
Torgersen	Adelie	NA
Torgersen	Adelie	3450
Torgersen	Adelie	3650

Si utilizamos group_by para agrupar variables, se crearán filas de grupo automáticamente:

 
 penguins %>%
     group_by(species, island) %>%
     summarize(mean_mass = mean(body_mass_g, na.rm = TRUE),
               sd_mass = sd(body_mass_g, na.rm = TRUE)) %>%
     ksnet_table()
#> `summarise()` has grouped output by 'species'. You can override using the
#> `.groups` argument.

island	mean_mass	sd_mass
Adelie
Biscoe	3709.659	487.7337
Dream	3688.393	455.1464
Torgersen	3706.373	445.1079
Chinstrap
Dream	3733.088	384.3351
Gentoo
Biscoe	5076.016	504.1162