library(collapsibleTree)
## Warning: package 'collapsibleTree' was built under R version 4.2.2
set.seed(123)
datos = data.frame(
  resp = runif (12,2.5,3.5),
  dosis = gl(3,4,12,c('d1','d2','d3')))
  

collapsibleTreeSummary(datos, c('dosis','resp'), collapsed = FALSE
)
set.seed(123)
datos = data.frame(
  resp = runif (12,2.5,3.5),
  fertilizante = gl(2,6,12,c('15:15:15','18:18:18')),
  densidad = gl(3,4,12,c('den1','den2','den3')))
  

collapsibleTreeSummary(datos, c('fertilizante','densidad','resp'), collapsed = FALSE
)