Question

我有这个用于数据挖掘的R脚本：

`FAO_AreaName <-"TLS"
news_url <-   paste0("http://www.fao.org/countryprofiles/common/allnews/en/?iso3=", FAO_AreaName,"&allnews=no&limit=2")
news <- fromJSON(news_url)
title <- news[3]
date <- news[6]
FAO_AreaName_1 <- news[5]
content_TLS <- news[5]
TLS <- cbind(FAO_AreaName, FAO_AreaName_1, date, title, content_TLS)

`

在这个例子中，TLS代表“东帝汶”。我使用以下包： rvest， stringr， tidyr， data.table， plyr， XML2， selectr， tibble， purrr， datapasta，
jsonlite。

在任何情况下，我都有一个很长的.csv国家/地区名称代码列表（例如USA，ISR，ITA等）我应该替换为TLS来完成脚本。在开始手动更换之前的任何建议？

Answer 1

将其包裹在一个函数中：

do_my_task <- function(FAO_AreaName) {
    news_url <-   paste0("http://www.fao.org/countryprofiles/common/allnews/en/?iso3=", FAO_AreaName,"&allnews=no&limit=2")
    news <- fromJSON(news_url)
    title <- news[3]
    date <- news[6]
    FAO_AreaName_1 <- news[5]
    content_TLS <- news[5]
    cbind(FAO_AreaName, FAO_AreaName_1, date, title, content_TLS)
}


areas <- c("TLS", "USA", ...)
my_datasets <- lapply(areas, do_my_task)

R替换数据集中的名称

1 个答案: