R - arrêt write.xlsx() de faire les noms de colonnes syntaxiquement valides

Question

J'ai une question spécifique en ce qui concerne la fonction write.xlsx() du paquet xlsx dans R.

J'ai une matrice contenant des sorties de régressions de données de panel. Pour plus de commodité, je veux exporter ces sorties vers un fichier .xlsx pour l'inclure dans un document Word. Toutefois, lorsque j'exporte la matrice via write.xlsx, les noms de colonne sont automatiquement modifiés pour le style syntaxiquement valide sans autres symboles que des points, des lettres et des chiffres. Ainsi, le vecteur de colonne de la matrice

table_columns <- c("Estimate (All periods)", "", "s.e. (All periods)", "Estimate (Periods 0 & 1)", "", "s.e. (Periods 0 & 1)")

("" sont les noms de colonnes vides parce que ces colonnes contiennent des indicateurs étoile pour les valeurs p) devient

Estimate..All.periods.|V2|s.e...All.periods.|Estimate..Periods.0...1.|V5|s.e...Periods.0...1.

est-il un moyen de supprimer ce reformatage de sorte que je n'ai pas besoin d'éditer le fichier .xlsx après la sortie?

-Edit- pour rendre les choses plus faciles à comprendre:

J'ai un vecteur table_rows avec c("All periods", " Std. error (All periods)", "Periods 0 & 1", " Std. error (Periods 0 & 1)") et un vecteur table_columns avec c("(1) 1AM - 6AM", "", "(2) 6AM - 10AM", "", "(3) 10AM - 6PM", "", "(4) 6PM - 10PM", "", "(5) 10PM - 1AM", "", "(6) Daily", "")

Ceux-ci sont utilisés pour définir les dimnames de la matrice table avec matrix(c(table_1, table_1p, table_2, table_2p, table_3, table_3p, table_4, table_4p, table_5, table_5p, table_6, table_6p), 4, 12, dimnames = list(table4_rows, table4_columns))

où table_odd et table_oddp désignent les vecteurs colonne contenant des estimantes et leurs indicateurs de niveau p et table_even les erreurs standard dans les parenthèses. Tous les vecteurs sont de type chr

Je lance write.xlsx(table, paste0(getwd(), "/results.xlsx"), sheetName = "Results") pour convertir la matrice à .xlsx

Answer 1

Vous devez convertir la matrice à une trame de données avant de le passer wo write.xlsx. Sinon, write.xlsx fera le travail avec les arguments defaul. Toutefois, vous devez définir check.names=F et fix.empty.names=F pour désactiver la vérification de la syntaxe et remplacer les noms de colonne vides.

Voici un reproducible example - s'il vous plaît poser des questions futures comme celle-ci:

library(xlsx) 
table_rows <- c("All periods", " Std. error (All periods)", "Periods 0 & 1", " Std. error (Periods 0 & 1)") 
table_columns <- c("(1) 1AM - 6AM", "", "(2) 6AM - 10AM", "", "(3) 10AM - 6PM", "", "(4) 6PM - 10PM", "", "(5) 10PM - 1AM", "", "(6) Daily", "") 
m <- matrix(seq_len(4*12), 4, 12, dimnames = list(table_rows, table_columns)) 
# convert matrix to list so that one can use as.data.frame's fix.empty.names=F: 
df <- as.data.frame(setNames(lapply(1:ncol(m), function(x) m[, x]), colnames(m)), check.names=F, fix.empty.names = F) 
write.xlsx(df, tf <- tempfile(fileext = ".xlsx")) 
shell.exec(tf)