R - for 循环比较同一数据集中的列

Question

我有几个国家连续 2 年的某些经济指标列表。国家是一行，每个经济指标是每一年的一列（V1_2015和V1_2016是我要比较的变量。

我想循环比较变量。幸运的是，这些列的顺序正确，所以我想我可以遍历。我不是 for 循环的专家，但我认为我非常接近......

Economics_2_years <- as.data.frame(cbind(
                    CountryID = c(9999,8888,7777,6666,5555,4444,3333,2222,1111,1234),
                    V1_2015 = c(1,1,1,1,1,1,1,1,1,1),
                    V2_2015 = c(2,2,2,2,2,2,2,2,2,2),
                    V3_2015 = c(3,3,3,3,3,3,3,3,3,3),
                    V1_2016 = c(1,2,1,2,1,2,1,2,1,2),
                    V2_2016 = c(9,1,2,5,3,2,1,2,2,2),
                    V3_2016 = c(0,0,0,0,0,0,0,0,0,0)))


Economics_Change <- as.data.frame(matrix(nrow = 10, ncol = 4))
Economics_Change$V1 <- Economics_Change$CountryID

for (i in 2:4){
for (j in 5:7){
for (k in 2:4)
  Economics_Change[,k]  <- Economics_2_years[,i]==Economics_2_years[,j]

} }

目的是在“Economics_Change”中存储变量是否发生变化。如果他们改变了，哪些改变了。

Answer 1

R 是一种矢量化编程语言，因此您可以使用 for 循环代替：

    Economics_Change$V1 <- Economics_2_years$V1_2015==Economics_2_years$V1_2016
    Economics_Change$V2 <- Economics_2_years$V2_2015==Economics_2_years$V2_2016
    Economics_Change$V3 <- Economics_2_years$V3_2015==Economics_2_years$V3_2016

或者如果有很多列，但有一些与它们的名字有些一致的你可以这样做：

cols <- lapply(1:3, function(var_number) {
  Economics_2_years[paste("V", var_number, "_2015", sep="")] == Economics_2_years[paste("V", var_number, "_2016", sep="")]
})
 results_df <- do.call("cbind", cols)

如果名称更复杂，则 V + number + _year 或数字带有空格，这里是一个示例，您可以如何处理它。

Economics_2_years <- as.data.frame(cbind(
  CountryID = c(9999,8888,7777,6666,5555,4444,3333,2222,1111,1234),
  VVV1_2015 = c(1,1,1,1,1,1,1,1,1,1),
  VE7_2015 = c(2,2,2,2,2,2,2,2,2,2),
  V10_2015 = c(3,3,3,3,3,3,3,3,3,3),
  VVV1_2016 = c(1,2,1,2,1,2,1,2,1,2),
  VE7_2016 = c(9,1,2,5,3,2,1,2,2,2),
  V10_2016 = c(0,0,0,0,0,0,0,0,0,0)))


colnames(Economics_2_years) %>% regmatches(., gregexpr("^(.*?)_", .)) %>% unlist() %>% unique() -> names_roots
cols <- lapply(names_roots, function(root) {
  Economics_2_years[paste(root, "2015", sep="")] == Economics_2_years[paste(root, "2016", sep="")]
})
results_df <- do.call("cbind", cols)