Question

我有一大组文件。我想删除这些文件中的所有文本并粘贴一个新的字符串，我称之为mytext。

我是R的新手，但是我已经编写了一个几乎可以完美完成工作的R代码。它非常混乱，我确定我采取了不必要的步骤。此外，它并没有像我想要的那样完全删除所有文本，并且它留下引号，这是我无法做到的。

temp = list.files(pattern="*.Hdr")

for(x in 1:length(temp)) {
    data = read.csv(temp[x], header = FALSE)
    data <- data[NULL, NULL]
    write.csv(data, file = temp[x])    ## output new file
}
temp = list.files(pattern = "*.Hdr")
mytext = "nrows 4096
ncols 8192
nbands 1
nbits 16
pixeltype signedint
byteorder M
layout dat
ulxmap -130.517083333328
ulymap 58.2329166666644
xdim 0.00833333333
ydim 0.00833333333"    ## This is the variable I want to keep

for(x in 1:length(temp)) {
    data = read.csv(temp[x], header = FALSE)
    data = paste(mytext)
    write.csv(data, file = temp[x])    ## output new file
}

我生成的表格看起来像这样：

"","x"
"1","nrows 4096
ncols 8192
nbands 1
nbits 16
pixeltype signedint
byteorder M
layout dat
ulxmap -130.517083333328
ulymap 58.2329166666644
xdim 0.00833333333
ydim 0.00833333333"

这几乎是完美的，但我不想要：

"","x",
"1",

我也不想在mytext附近使用引号。我很感激有经验指出我的错误的人。

Answer 1

您正在查看的是列标题和行名称。您可以将这些与

引用一起关闭

write.csv(data, file = temp[x], header=F, row.names=F, quote=F)

替换一组文件中的所有文本

1 个答案: