Question

我想将Head和bottom txt添加到数据框中。我搜索了2个代码：

Head <- "  <BeginTimeSerie>"

Bottom <- " <EndTimeSerie>"

fn <- "data.txt" 
sink(fn) 
cat(Head) 
df1 
cat(Bottom) 
sink()


fn <- "data.txt"; writeLines(Head, fn); write.table(df1, fn,col.names
    = F, row.names = F, append=TRUE, quote=FALSE)

第一个确实添加了Head和Bottom txt，但没有导出所有df1文件（它很大，只导出前250行）。

第二个确实导出了所有df1文件，但我不知道如何添加底部txt。我尝试了不同的方法。

Answer 1

将write与追加一起使用：

# example dataframe
df1 <- head(mtcars)

Head <- "  <BeginTimeSerie>"
Bottom <- " <EndTimeSerie>"

fn <- "data.txt"
write(Head, fn)
write.table(df1, fn, col.names = FALSE, row.names = FALSE, append = TRUE, quote = FALSE)
write(Bottom, fn, append = TRUE)

data.txt文件：

  <BeginTimeSerie>
21 6 160 110 3.9 2.62 16.46 0 1 4 4
21 6 160 110 3.9 2.875 17.02 0 1 4 4
22.8 4 108 93 3.85 2.32 18.61 1 1 4 1
21.4 6 258 110 3.08 3.215 19.44 1 0 3 1
18.7 8 360 175 3.15 3.44 17.02 0 0 3 2
18.1 6 225 105 2.76 3.46 20.22 1 0 3 1
 <EndTimeSerie>

上下文本导出数据框

1 个答案: