如何计算数据框中列的数值导数(使用diff()),并通过添加NA值来保持长度?
发布于 2016-09-14 08:50:43
从这个answer到我的一个问题。
如果您正在寻找一种通用的方法来预先添加NA
pad <- function(x, n) {
len.diff <- n - length(x)
c(rep(NA, len.diff), x)
}
x <- 1:10
dif <- pad(diff(x, lag=1), length(x))
但是,如果您不怕引入zoo
库,那么最好使用
library(zoo)
x <- 1:5
as.vector(diff(zoo(x), na.pad=TRUE)) # convert x to zoo first, then diff (that invokes zoo's diff which takes a na.pad=TRUE)
# NA 1 1 1 1 (same length as original x vector)
发布于 2012-11-27 22:12:06
不清楚你想要NA的确切位置,但你可以将它们连接在一起。
dif <- c(NA, diff(dfrm$id, lag=1))
https://stackoverflow.com/questions/13594021
复制相似问题