缺少SEQ（）中的R

Question

最後序列我有這樣的示例數據

by<-200 
to<-seq(from=by,to=35280,by=by) 

問題是，在to 35200結束，並且忽略最後80我需要在作爲最後值涉及。 如何實現它有沒有什麼簡單的方法？ 我試過along.with和length.out參數，但我不能走低谷。

Answer 1

你可以把if語句爲的向量的最後一個元件，如在下面的函數：

seqlast <- function (from, to, by) 
{ 
    vec <- do.call(what = seq, args = list(from, to, by)) 
    if (tail(vec, 1) != to) { 
    return(c(vec, to)) 
    } else { 
    return(vec) 
    } 
} 

然後

by <- 200 
to <- seqlast(from=by,to=35280,by=by) 

將返回

> head(to) 
[1] 200 400 600 800 1000 1200 
> tail(to) 
[1] 34400 34600 34800 35000 35200 35280 

Answer 2

首先，seq()的行爲與您的示例中應該相同。你想要一些seq()本身不會提供的東西。

一個解決方案（當然有很多）是在你的序列結束時檢查天氣「還有什麼東西」，如果有的話，再添加一個元素。 （或修改您的序列的最後一個元素，它是不完全清楚你想達到什麼目的。）像這樣：

step <- 200 
end <- 35280 
to<-seq(from=step,to=end,by=step) 

# the modulus of your end point by step 
m = end%%step 

# if not zero, you have something to add to your sequence 
if(m != 0) { 

    # add the end point 
    to = c(to, end) 
} 

tail(to,2) 
# 35200 35280 

Answer 3

在seq()，「第二種形式的，從生成+的..直到序列值小於或等於「。而且由於35280不在請求的序列中，所以不會返回。

但是你可以在你想要包含下一個值的參數中使用一個計算。既然您知道to的值，請爲其指定一個名稱並使用它。

by <- 200 
out <- 35280 

x <- seq(from = by, to = (out + by - out %% by), by = by) 

length(x) 
# [1] 177 
x[length(x)] 
# [1] 35400 

如果要包括to價值，即使它不是要求的順序，你可以寫一個小功能，將其添加回

seqil <- function(..., include.last = TRUE) { 
    x <- do.call(seq.default, list(...)) 
    if(include.last) c(x, to) else x 
} 

by <- 200 

x <- seqil(from = by, to = 35280, by = by) 
tail(x) 
# [1] 34400 34600 34800 35000 35200 35280