在 r 中遞增地附加一個列表

Question

我有以下問題：我有兩個數據框：kl_df 和 IDlist

head(kl_df)
  STATIONS_ID MESS_DATUM QN_3 FX FM QN_4 RSK RSKF SDK SHK_TAG  NM VPM PM  TMK UPM TXK  TNK  TGK eor
1          73 2000-01-01   NA NA NA   10 2.9    7 0.0       6 8.0 5.6 NA -0.2  94 0.7 -1.7 -2.1 eor
2          73 2000-01-02   NA NA NA   10 0.0    0 1.6       5 7.3 6.2 NA  0.8  92 4.0 -1.4 -0.1 eor
3          73 2000-01-03   NA NA NA   10 0.0    0 0.0       0 8.0 5.7 NA -0.2  95 0.6 -1.3 -1.5 eor
4          73 2000-01-04   NA NA NA   10 0.8    8 0.8       0 7.7 5.9 NA  1.2  89 2.6 -0.4 -1.0 eor
5          73 2000-01-05   NA NA NA   10 0.0    0 1.1       0 5.7 6.6 NA  1.4  93 6.1 -0.7  0.0 eor
6          73 2000-01-06   NA NA NA   10 0.0    0 0.0       0 8.0 6.0 NA  0.1  98 1.4 -1.0 -1.0 eor

head(IDlist)
    Stations_id von_datum bis_datum Stationshoehe geoBreite geoLaenge            Stationsname Bundesland    res
194          15  19510101  20190331           390   49.2346   10.9668                Abenberg     Bayern annual
306          29  19510101  20190527           260   49.7175   10.9101 Adelsdorf (Klaeranlage)     Bayern  daily
485          46  19370101  20190528           325   48.9450   12.4639                Aholfing     Bayern annual
606          55  19370101  20190528           509   47.8780   12.0239   Aibling, Bad-Ellmosen     Bayern annual
684          63  19510101  20190527           747   47.8172   10.5374                 Aitrang     Bayern  daily
857          73  19080101  20190528           340   48.6159   13.0506    Aldersbach-Kriestorf     Bayern annual
            var        per hasfile
194 more_precip historical    TRUE
306 more_precip historical    TRUE
485 more_precip historical    TRUE
606 more_precip historical    TRUE
684 more_precip historical    TRUE
857 more_precip historical    TRUE

IDlist 包含有關stations_id 的唯一行，而重復項在kl_df 中。 現在我的目標是 append 變量“Stationshoehe”，“geoBreite”，“geoLaenge”，以獲得正確的站 ID 到 kl_df。

我試圖寫一個 function。 這個 function 的想法是遍歷 kl_df 並且對於每次迭代，go 到 IDlist$Stations_id 以匹配 ID 號。 之后將所需的變量寫入列表：

getcoords = function(){
 results=list()
 for (ID in kl_df$STATIONS_ID)  {
  counter = 1
  for (i in IDlist$Stations_id){
   if (ID == i) {
     print(counter)
     append(results, values= c(IDlist$Stationshoehe[counter], IDlist$geoBreite[counter], IDlist$geoLaenge[counter]))
     next
   }
   else {
    counter = counter+1
    print(counter)
   }
  }
 }
 return(results)
}
datlist = getcoords()

但它只返回一個空列表...... print(counter)行僅用於測試目的。 問題是計數器總是從 1 計數到長度（IDlist$Stations_id）。 打印示例：

[1] 538
[1] 539
[1] 540
[1] 541
[1] 542
[1] 543
[1] 544
[1] 545
[1] 546
[1] 547
[1] 548
[1] 2
[1] 3
[1] 4
[1] 5
[1] 6
[1] 7
[1] 8
[1] 9
[1] 10

問題：如何修復 function 或者有更好的方法來實現目標？ 非常感謝！

Answer 1

怎么寫：

results=append(results, values= c(IDlist$Stationshoehe[counter], IDlist$geoBreite[counter], IDlist$geoLaenge[counter]))`

在if (ID == i)塊中。

R will never modify an argument passed to a function, append will return the list with the new element added, but you need to store it somewhere (see https://www.rdocumentation.org/packages/base/versions/3.6.1 /主題/附加）。

當你說：問題是計數器總是從 1 計數到長度（IDlist$Stations_id），這是代碼的預期行為。 如果您想在找到匹配的IDlist$Stations_id后立即停止，請將您的next （此處無效，因為在這種情況下不會執行else ）更改為break 。

Answer 2

如果我正確理解了這個問題，您想通過列STATIONS_ID對數據幀kl_df進行“左連接”，然后IDlist來自連接數據幀的感興趣的列。

下面，我為您的兩個數據框創建了一個更簡單的版本 - 在左連接之后，您應該能夠調整select語句以僅保留連接的 dataframe 中感興趣的列。

> kl_df <- data.frame(STATIONS_ID=c(1,1,2,2), col_a=c(1,2,3,4), col_b=c(10,15,12,8))
> kl_df
  STATIONS_ID col_a col_b
1           1     1    10
2           1     2    15
3           2     3    12
4           2     4     8

> IDlist <- data.frame(Stations_id=c(1,2,3), col_c=c(10,20,10), col_d=c(99,97,90))
> IDlist
  Stations_id col_c col_d
1           1    10    99
2           2    20    97
3           3    10    90

現在使用dplyr package 進行左連接：

> library(dplyr)

> df <- left_join(kl_df, IDlist, by=c("STATIONS_ID"="Stations_id"))
> df <- df %>% select(c(STATIONS_ID,col_a,col_b,col_d))
> df
  STATIONS_ID col_a col_b col_d
1           1     1    10    99
2           1     2    15    99
3           2     3    12    97
4           2     4     8    97

請注意， dplyr package 中的連接函數比使用merge或 for 循環快得多。