我有一项繁琐的工作,我想把它外包给R.我想到了一个循环,每个波浪都做同样的事情(" 99"到" 16") 。基本上,只要下面的代码中有99,我想为每一波调整它。
我已经习惯了STATA,我只需要用`wave' 替换99并使用foreach循环。在R中有一个简单的方法吗?如何在循环中引用字符串?
否则它可能只是一个"复制粘贴" -task :-)非常感谢你的帮助!
`wave <- ("99", "00", "01", "02", "03", "04")`
names(m99) <- gsub("(^x99)|(^h99)|(^i99)|(^weih99)", "", names(m99))
names(m99) <- gsub("99$", "", names(m99))
names(m99) <- paste(names(m99), "h", sep="_")
m99$idhous <- m99$idhous_h
p99 <- list_files_p[[1]]
names(p99)
names(p99) <- gsub("(^p99)|(^i99)|(^weip99)","", names(p99))
names(list_files_p[[1]]) <- gsub("99$","", names(list_files_p[[1]]))
p99[,grep("^x",names(p99))] <- NULL
names(p99) <- paste(names(p99), "p", sep="_")
names(p99)
sort(table(names(p99)))
p99$idhous <- p99$idhous_p
pm99 <- left_join(p99, m99, by="idhous")