for循環和應用條件，忽略有限的數據

Question

我有data.frame這種格式

 data.frame': 566171 obs. of 10 variables: 
    $ id : Factor w/ 120 levels "2200100","2200200",..: 1 1 1 1 1 1 1 1 1 1 ... 
    $ year : int 1950 1950 1950 1950 1950 1950 1950 1950 1950 1950 ... 
    $ yday : int 1 2 3 4 5 6 7 8 9 10 ... 
    $ date : Date, format: "1950-01-01" "1950-01-02" ... 
    $ t_max : atomic -17.2 -23.9 -25 -22.8 -19.4 -19.4 -11.1 -15.6 -17.8 -20.6 ... 
    ..- attr(*, "long.name")= chr "daily maximum temperature" 
    ..- attr(*, "units")= chr "°C" 
     $ rain : atomic 0 0 0 0 0 0 0 0 0 0 ... 
    ..- attr(*, "long.name")= chr "total rainfall" 
     ..- attr(*, "units")= chr "mm" 

我寫了下面環路子集數據：

library (seas) 

    uniq <- unique(unlist(mdata$id)) 
    for (i in 1: length(uniq)){ 
     data_1 <- subset(mdata, id == uniq[i]) 
     d1 <-mksub(data_1) 
     year.plot(mksub(d1)) 
    } 

它運作良好的但是，當車站ID沒有足夠的數據時，循環停止運行。我怎麼能告訴我的循環內的R忽略沒有足夠的數據申請year.plot功能的站ID，並繼續與其他站直到最終的ID？

Answer 1

看起來像托馬斯奠定了你應該做的一般。讓我看看我能否把它們放在一起。我打算使用海包中的mscdata，並假設小於2的任何數值都不足

library(seas) 

data(mscdata) 

uniq <- unique(unlist(mscdata$id)) 


for (i in 1: length(uniq)){ 
    data_1 <- subset(mscdata, id == uniq[i]) 
    try(if(length(data_1) < 2) { 
    next 
    } else { 
    d1 <-mksub(data_1) 
    year.plot(mksub(d1)) 
    }) 
} 

這個可重複的示例應該適合您。