actuellement étudiant en statistiques, j'effectue un stage dans une entreprise ou les gens ne sont pas très familiarisés avec les statitiques. Il faut donc que la sortie se fasse sur excel. j'utilise donc le package xlsx. Mais je n'arrive pas à mettre en forme les couleurs comme je le souhaite.. Je n'arrive à colorer que des lignes et des colonnes entière.
Le format de mon data frame est 2 ligne et 5 colonne.Pour ma mise en forme, je dois avoir la première ligne d'une seule couleur et la deuxième ligne composé de 3 cellule d'une couleur puis 2 cellule d'une autre couleur.
J'ai donc essayer d'utiliser les cellblocks dans l'idée d'en utiliser 3 un de la taille du tableau puis un autre de la taille de la deuxième ligne et enfin un 3 eme des deux cellules restantes.
Je commence à tourner en rond et je ne m'en sort pas donc si quelqu'un a une façon de procéder je suis preneur.
Tout marche parfaitement sauf les couleurs.
Code : Tout sélectionner
```{r}
# Créer un classeur et une feuille Excel ainsi que stockage des données
wb <- createWorkbook(type="xlsx")
sheet <- createSheet(wb, sheetName = "addDataFrame1")
donnee <- structure(list(Annee = c(2013, 2014, 2015, 2016, 2017), Nombre_de_saillies = c(15,
18, 32, 33, 25)), class = "data.frame", row.names = c(NA, -5L
))
#création du style
cs1 = CellStyle(wb) +
Font(wb, isBold=TRUE) +
Fill(backgroundColor="lavender", foregroundColor="lavender",
pattern="SOLID_FOREGROUND") +
Alignment(h="ALIGN_CENTER",v="VERTICAL_CENTER")+Border(color = "black", position = c("TOP","BOTTOM","LEFT","RIGHT"))
#tentative de colorisation
cb = CellBlock(sheet, startRow=2, startColumn=2, length(donnee), nrow(donnee),create=TRUE)
is.CellBlock(cb)
CB.setFill(cb, cs1,rowIndex = 1,colIndex = 1)
#ajout de la table
addDataFrame(donnee, sheet, col.names = FALSE, startRow=3, startColumn=2)
# Enregistrer le classeur dans un fichier
saveWorkbook(wb,"Tableau.xlsx")
```