R - （write.xlsx停止）構文的に有効な列名を作るから

Question

私はパネルデータの回帰の出力を含むマトリックスを持っていますR.

でxlsxパッケージのwrite.xlsx()機能に関する具体的な質問を持っています。便宜上、これらの出力をWord文書に含めるために.xlsxファイルにエクスポートしたいと考えています。しかし、write.xlsxで行列をエクスポートすると、列名はポイント、文字、数字以外の記号がない構文的に有効なスタイルに自動的に編集されます。だから、行列の列ベクトル

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

（これらの列は、p値のための星の指標が含まれているため""が空の列名です） は

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

なりはする方法はあります出力後に.xlsxファイルを編集する必要がないようにこの再フォーマットを抑制しますか？私はこれらがのdimnamesを設定するために使用されているc("(1) 1AM - 6AM", "", "(2) 6AM - 10AM", "", "(3) 10AM - 6PM", "", "(4) 6PM - 10PM", "", "(5) 10PM - 1AM", "", "(6) Daily", "")

と c("All periods", " Std. error (All periods)", "Periods 0 & 1", " Std. error (Periods 0 & 1)") とベクトルtable_columnsとベクトルtable_rowsを持っているん

：

-Edit-理解し、物事を容易にするために、マトリックスtable と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))

ここで、table_oddとtable_oddpは、推定値とそれらのp値のインジケータを含む列ベクトルを示し、table_evenは標準誤差を表しています。全てのベクターは、私はあなたがwrite.xlsx woはそれを渡す前に、データフレームに行列を変換する必要があり

Answer 1

を.XLSXする行列を変換するwrite.xlsx(table, paste0(getwd(), "/results.xlsx"), sheetName = "Results")を実行しないタイプのchr

です。それ以外の場合は、write.xlsxはデフォルト引数でジョブを実行します。ただし、構文チェックを無効にして空の列名を置き換えるには、check.names=Fとfix.empty.names=Fを設定する必要があります。ここで

はreproducible exampleだ - このような将来の質問投稿してください。

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)