zoo

    0热度

    1回答

    下面是我试图用来将csv文件转换为xts的代码,以便我可以对其执行分析,但似乎没有任何工作。我甚至使用了在这个平台上发布的类似问题的答案,但似乎没有任何工作。 toDate <- function(x) as.Date(x, origin = "2015-02-15") z <- read.zoo("Nasdaq.csv", header = TRUE, sep = ",", FUN = toD

    1热度

    2回答

    我有一个数据框只列出十月到四月的月份。当我将这些数据绘制在折线图上时,它也包含未使用的月份。我只想显示数据中列出的月份,因此图上没有未使用的空间。 我使用的情节代码 gplot(df,aes(GAME_DATE,DEF_RATING)) + geom_line(aes(y=rollmean(df$DEF_RATING,9, na.pad = TRUE))) + geom_lin

    0热度

    1回答

    我有POSIXct格式的采样时间数据(下面),但无法使用ts()将其转换为小时时间序列。 > dat [1] "2017-09-25 07:34:53 EDT" "2017-09-25 07:56:43 EDT" "2017-09-25 08:33:40 EDT" [4] "2017-09-25 08:34:24 EDT" "2017-09-25 08:43:33 EDT" "2017-09-

    1热度

    1回答

    我有一个关于产品销售的每日时间系列,我的系列从01/01/2016开始直到2017年8月31日。 考虑到这是一个为期6天的星期(我的星期从星期一开始到星期六结束),周日没有数据,我明白在运行Arima模型之前,我需要先填充缺失的值。这是我需要帮助的地方:我读过我可以使用na.approx或NA填写缺失的值,但我不知道该怎么做。 你可以看到我在这里系列: https://drive.google.c

    0热度

    1回答

    我正在寻找一种方法来计算像here但根据特定的观察(移动计数)来改变标准的能力的观察。 例如 - (从最后的50)计数的MAG的观测数其比MAG的特定观察更大。 代码我有: rollapplyr(zoo(mag),50,function(i){sum(mag>i)},partial=T,by.column=F,fill=NA)) 此代码取50个最后观测的平均MAG和计算高于平均观测值的数目(在

    1热度

    1回答

    我有一个包含10组的动物园对象,其中每个组都包含NA值,我试图创建一个绘图,其中每组的值都随时间绘制在一个小区里,忽略NA:s。我希望所有的小组都能在整个时间段内进行绘制,如果它只包含部分时间段的值,那么就会发生。我试图使用na.exclude和na.pass,但它不起作用。 这是我的数据: structure(c(-4.10947262625989, NA, -6.35834864986063,

    0热度

    2回答

    我使用ggplot()绘制的样本群组数据未按照适当的时间顺序进行颜色编码或显示。下面的代码是用来生成的情节: library(ggplot2) blues <- colorRampPalette(c('lightblue', 'darkblue')) p <- ggplot(cohort.chart, aes(x=month, y=users, group=cohort)) p + ge

    0热度

    1回答

    我试图在两个data.table列之间进行滚动关联。 dt <- data.table(a=-1:10,b=1:12) > dt a b 1: -1 1 2: 0 2 3: 1 3 4: 2 4 5: 3 5 6: 4 6 7: 5 7 8: 6 8 9: 7 9 10: 8 10 11: 9 11 12: 10 12 这就是我一直在使用rollapply从

    2热度

    1回答

    如何在R中使用as.yearqtr将字符串“Q12000”转换为四分之一格式? 我有四分之三的向量: x <- c("Q12000", "Q22000", "Q32000") 我尝试以下的代码: library(zoo) as.yearqtr(x, format = "Q%q%Y") # [1] NA NA NA 结果应该是 “2000 Q1”, “Q2 2000”, “2000 Q3

    0热度

    1回答

    我有一个数据帧,其中包含以下两个变量: amount:num 1213.5 34.5 ... txn_date:POSIXct,format“2017-05-01 12:13:30 “... 我想使用ts()在时间序列中对其进行转换。 我开始使用此代码: ž< - 动物园(数据$量,order.by = as.Date(as.character(数据$ txn_date),格式=“%Y /%米/%