Programmation R, fonction grid, affichage d'une grille sudoku

[invite669e9b98]

Bonjour,

Dans le cadre d'un projet je dois afficher une grille de sudoku en R. J'ai voulu utiliser la fonction grid.table mais celle-ci ne me délimite pas les cases et j'aurai aimé tracer les lignes entre les différents blocs pour que ce soit plus lisible. Savez-vous quelle commande utiliser? J'ai essayé avec gtable_add_grob mais je ne comprends pas du tout les exemples dans la documentation R. Je ne sais pas comment faire.

Merci pour votre aide!!
-----

[umfred]

tu as regardé quelle doc ? as-tu regardé celle-ci ? https://cran.r-project.org/web/packa...and-separators

[jacknicklaus]

bonsoir,

il n'est pas si compliqué de formater "à la main" une sortie de 81 chiffres sous cette forme :

[invite669e9b98]

Oui j'ai regardé cette doc en premier, mais je n'arrivais pas à faire ce que je voulais, le tableau apparaissait collé en haut à gauche. Je n'arrivais pas à obtenir un tableau/grille c'est-à-dire qu'on voyait qu'il s'agissait d'un tableau avec des colonnes alors que pour un sudoku il ne faut pas vraiment de colonnes dans le tableau.

Finalement j'ai réussi à obtenir quelque chose avec tableGrob mais ce qui était bien avec grid.table c'est qu'on pouvait modifier les cases en cliquant dessus, ce qui est vraiment bine pour remplir le sudoku directement sur R, mais je n'arrive pas à l'afficher correctement au centre avec les traits épais pour délimiter les bloc de 3x3.

J'ai ce code actuellement avec tableGrob :

 g <- tableGrob(X, rows = NULL, widths=unit(rep(40,9),"pt"),heights=unit(rep(40,9),"pt"),
                 theme = ttheme_default(base_size = 30 ,base_colour = 'black'))
  g <- gtable_add_grob(g,
                       grobs = rectGrob(gp = gpar(fill = NA, lwd = 2)),
                       t = 1, b=nrow(g), l = 1, r = ncol(g))
  g <- gtable_add_grob(g,
                       grobs = rectGrob(gp = gpar(fill = NA, lwd = 2)),
                       t = 9, b = 1, l = 3, r = 1)
  g <- gtable_add_grob(g,
                       grobs = rectGrob(gp = gpar(fill = NA, lwd = 2)),
                       t = 9, b = 1, l = 6, r = 1)
  g <- gtable_add_grob(g,
                       grobs = rectGrob(gp = gpar(fill = NA, lwd = 2)),
                       t = 1, b = 3, l = 1, r = 9)
  g <- gtable_add_grob(g,
                       grobs = rectGrob(gp = gpar(fill = NA, lwd = 2)),
                       t = 1, b = 6, l = 1, r = 9)
  grid.newpage()
  grid.draw(g)

Merci pour ta réponse umfred

[A voir en vidéo sur Futura]