df <- data.frame(gene_symbol=c("OCT4\n(POU5F1)", "SOX2", "KLF4", "C-MYC"), expression=c(1,6,9,4)) write.xlsx(df, file="test.xlsx", sheetName="sheet1", row.names=F) この方法はシンプルですが,セルの書式設定など高度な設定はできません. 例えば,上の例で作成したxlsxファイルをExcelで開いても,OCT4\n(POU5F1)はセル内改行とは認識されません. xlsxファイルの書き出し(複雑なことができる方法) workbookオブジェクト,sheetオブジェクト,CellStyleオブジェクトを作成することで,より高度なxlsxファイルを作成することができます. df <- data.frame(gene_symbol=c("O