R - 如何替换向量子集中的值答案

【问题标题】：R - how to replace values in a subset of a vectorR - 如何替换向量子集中的值
【发布时间】：2015-07-09 10:23:27
【问题描述】：

我有一个 bash 脚本，它基本上是用于下载一堆气候文件的一系列命令。在脚本的许多其他信息中，第 28 到 1027 行确定了应该下载的实际文件。查看我的文件：

# point to file
file <- 'https://dl.dropboxusercontent.com/u/27700634/wget-ESG-files.sh'

# read file content
r.lines <- readLines(con=file)

我需要做的是：

1) 检测文件名中的模式，仅对我真正需要下载的文件进行子集化。我可以这样做，看代码：

# choose variable name. 
# in this case, average monthly precipitation
var <- 'pr_Amon'

# find only the lines that contain my variable of interest 
new.r.lines <- r.lines[grepl(var, r.lines)]
new.r.lines

2) 现在，我需要用变量“new.r.lines”的内容替换原始文件中元素 28 到 1027 的所有内容。结果也必须是一个向量，因为在脚本结束时我将使用 writeLines 创建一个新文件。

这可能是一个非常简单的任务，但我只是停留在这一步。

非常感谢任何帮助！

谢谢，蒂亚戈。

【问题讨论】：

标签： r vector replace subset readline

【解决方案1】：

您可以按如下方式构建新的文件行集：

new.r.lines <- c(r.lines[1:27],r.lines[28:1027][grepl(var,r.lines[28:1027])],r.lines[1028:length(r.lines)]);

这会将第 1:27 行与与您的搜索模式匹配的以下 28:1027 行的子集结合起来，然后进一步与第 1028 行结合到文件末尾。因此，您可以将其传递给writeLines() 以创建新文件。

这是一种稍微简洁的方法，它构建一个索引向量，然后对线向量进行一次索引：

new.r.lines <- r.lines[c(1:27,27+grep(var,r.lines[28:1027]),1028:length(r.lines))];

【讨论】：

非常感谢@bgoldst。我想不出更好的主意！