小编Jos*_*ich的帖子

我在这里看到您应该drop在将（单列）XTS 对象传递给ccf（互相关）函数时使用。（样本数据比较大，我把它放在一个要点中）

library(xts)
gist="https://gist.github.com/raw/3291932"
tmp1=dget(file.path(gist,"e620647218626929b4ee370a05aa7748b2f9a32b/tmp1.txt"))
tmp2=dget(file.path(gist,"49b732db3eafa52f96006e3b1bb0be28380f5df0/tmp2.txt"))
ccf(drop(tmp1),drop(tmp2)) #Weird?

我预计在lag=0 附近会有一个小峰值，两边大部分都是噪音。相反，我得到了一条直线：

那是400个酒吧。我在数千条柱的完整数据上得到了同样的线条。但是如果我只使用该数据的尾端 100 条，我会得到更接近我预期的结果：（50 条看起来更合理）

如果这是一个ccf错误，我使用 xts 对象的方式有问题，我对ccf正在做的事情的误解，或者我神奇地发现了击败股票市场的公式，我有点难倒……

这是一个包含每小时智能电表数据和freq = 24的时间序列.它是在三天内测量的,所以first day[1:24], second[25:48], third[49:72].

我希望在三天内每小时都能得到平均值.例如:

(t[1]+t[25]+t[49])/3

所以我可以在3天内制作一个24小时的箱形图.

x <- c(0.253, 0.132, 0.144, 0.272, 0.192, 0.132, 0.209, 0.255, 0.131, 
  0.136, 0.267, 0.166, 0.139, 0.238, 0.236, 1.75, 0.32, 0.687, 
  0.528, 1.198, 1.961, 1.171, 0.498, 1.28, 2.267, 2.605, 2.776, 
  4.359, 3.062, 2.264, 1.212, 1.809, 2.536, 2.48, 0.531, 0.515, 
  0.61, 0.867, 0.804, 2.282, 3.016, 0.998, 2.332, 0.612, 0.785, 
  1.292, 2.057, 0.396, 0.455, 0.283, 0.131, 0.147, 0.272, 0.198, 
  0.13, 0.19, 0.257, 0.149, 0.134, 0.251, 0.215, 0.133, 1.755, 
  1.855, 1.938, 1.471, 0.528, 0.842, …

我有数据框,df如:

key  entry  x1
1    1      0.2
1    2      0.1
1    3      0.5
1    4      0.6
2    1      0.2
2    2      0.1
2    3      0.7
2    4      0.3

每个组由值定义key并具有相同数量的entry值.我想保留这个表结构供以后使用.我需要添加一个新列,sumx1以便每行具有x1与该行关联的键组的总和.

在上面的例子中,密钥组1的总和将是0.2 + 0.1 + 0.5 + 0.6 = 1.4,因此在名为sumx1I 的新列中,对于密钥为1的每一行,需要输入1.4.

我试过了:

df["sumx1"] <- NA
df$sumx1 <- aggregate(df$sumx1, list(key=df$key), sum)

但这会引发警告错误,因为它只给我每组的总和.

我试图使用theme参数更改条形的颜色，但出现错误：

library(quantmod)
getSymbols("SPY", from=Sys.Date()-500, to=Sys.Date())
chart_Series(SPY)
chart_Series(SPY,theme=chart_theme(dn.col = "cyan"))
# Error in chart_theme(dn.col = "cyan") : unused argument (dn.col = "cyan")

我正在制作应用程序,该应用程序只有10个活动和一些带文本视图的按钮没什么可复杂的,它是歌词应用程序(它显示音乐乐队的歌词).我正在制作按钮,然后我让它们开始显示红色的ID,所以我想知道发生了什么,R从gen文件夹中删除了,突然所有的活动都充满了错误.发生了什么事我试过再生它但没有运气我尝试了很多东西但没有运气所以我不知道该做什么.

我删除了gen文件夹,并重新构建配置但不是r.我试过清理项目,但没有运气.我试着从历史中恢复但没有历史.所以idk该做什么

我有一个数据对象

index(x)
[6217] "2014-09-03 GMT" "2014-09-04 GMT" "2014-09-05 GMT" "2014-09-08 GMT" "2014-09-09 GMT" "2014-09-10 GMT" "2014-09-11 GMT"
[6224] "2014-09-12 GMT"

如何将对象时区更改为"CDT"？有这个功能吗？

我希望在以下xts对象中转换为数字所有数字.

Morover,如果可能的话,用同一列中的前一个数字替换NA

library(xts)
x <- structure(c("1176.67", "1175.37", "1196.10", "1182.90", "1200.30", 
"1183.20", "170.0674", "170.0586", NA, "170.1376", "170.1651", 
"170.1844", "252.10", "252.07", "252.07", "252.23", "252.34", 
"252.40", "616.09", "618.49", "620.44", "624.61", "626.66", "627.92", 
"1.44730", "1.44430", NA, "1.43710", "1.44730", "1.44120", "5238.815", 
"5238.458", "5256.423", "5261.352", "5235.514", "5182.277", "5669.918", 
"5673.797", "5668.293", "5677.272", "5613.539", "5608.027", "399.106", 
"398.800", "399.411", "402.521", "400.797", "401.521"), class = c("xts", 
"zoo"), .indexCLASS = c("POSIXct", "POSIXt"), tclass = c("POSIXct", 
"POSIXt"), .indexTZ = "GMT", tzone = "GMT", index = structure(c(1419292800, 
1419379200, 1419552000, 1419811200, 1419897600, 1419984000),
tzone …

我在数据框中有一列，其中包含以多种形式存储的日期信息，例如

dob <- c("18/02/1983","36782","01/11,1999 11:55",
         "Dead 12/12/2001","Alive 03/07/1985")

我想将所有这些转换为POSIXlt格式的日期"%d/%m/%Y"，没有时间信息，也没有"Dead"或没有"Alive"前缀。

以前对类似问题的所有解决方案都只涉及两种可能的格式，我可以告诉，而我有更多，而且我还有转换 5 位数字格式日期的问题（我认为是起源于 1970-01-01 的数字日期）来自 Excel）也。我正在使用 R-3.1.2。任何帮助将不胜感激！

如何删除值在特定阈值内的数据帧中的行？

                x             y
1   -0.111111e-15  0.111111e-15
2   -1.111112e-15  1.111112e-15
3   -1.111111e-15  1.111111e-15

例如,如果我将阈值设置为1e^-8,则将删除第二行或第三行.

我使用以下命令生成了基本的 xts 对象。

library(quantmod)
temp1 <- getSymbols("GOOG",src = 'yahoo',from=Sys.Date()-50,to = Sys.Date(),auto.assign=FALSE)
temp2 <- temp1$GOOG.Close
head(temp2)
           GOOG.Close
2020-05-20    1406.72
2020-05-21    1402.80
2020-05-22    1410.42
2020-05-26    1417.02
2020-05-27    1417.84
2020-05-28    1416.73
lag(temp2,1)
Error in c.xts(NA_real_, c(1406.719971, 1402.800049, 1410.420044, 1417.02002,  : 
  zero-length vectors with non-zero-length index are not allowed

据我所知 temp2 的长度不为零，所以我不明白这个错误。

同样， diff(temp2) 函数确实按预期工作。

这似乎是我最近更新到 R 4.0.1 时开始的

考虑到我确实有一个非零向量，我找不到对此错误的任何解释。