12 Tabellen

Er zijn een aantal mogelijke manieren om een data.frame in tabelvorm weer te geven.

# functies om tabellen te genereren
cijfer_tabel <- function(rijen = 20, kolommen = 10) {
  data.frame(
    matrix(
      rnorm(rijen * kolommen),
      nrow = rijen,
      ncol = kolommen
    ),
    row.names = paste("rij", seq_len(rijen))
  )
}
random_woord <- function(n_letters = 5){
  paste(
    sample(letters, size = n_letters, replace = TRUE),
    collapse = ""
  )
}
random_zin <- function(n_woorden = 10, n_letters = 10){
  paste(
    sapply(
      rpois(n_woorden, n_letters), 
      FUN = random_woord
    ),
    collapse = " "
  )
}
tekst_tabel <- function(rijen = 20, kolommen = 10, n_woorden = 10, n_letters = 5){
  x <- data.frame(
    matrix(
      sapply(
        rpois(rijen * kolommen, lambda = n_woorden), 
        random_zin,
        n_letters
      ),
      nrow = rijen,
      ncol = kolommen
    )
  )
  colnames(x) <- head(LETTERS, kolommen)
  return(x)
}
genereer_tabel <- function(rijen = 20, kolommen = c(5, 5), n_woorden = 10, n_letters = 5){
  cbind(
    cijfer_tabel(rijen = rijen, kolommen = kolommen[1]),
    tekst_tabel(
      rijen = rijen, kolommen = kolommen[2], n_woorden = n_woorden, n_letters = n_letters
    )
  )
}

 

Onkelinx, T. (2021). https://doi.org/10.5281/zenodo.842223