缺少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