r - 使用 xts 对象本身的变量子集 xts 对象
问题描述
我有 2 个数据系列,即“usagexts”和“tempxts”。我想为 2 个对象中的每一个创建 3 个子集。我可以为每个系列单独循环使用开始和结束期间的变量来遍历日期参数。那里没问题。但是,我也想对 2 系列循环遍历 2 系列的名称执行相同的操作。
换句话说,xts 对象名称也需要来自变量。
Thsi 是我尝试过的 - 一个带有硬编码系列名称,带有用于开始和结束日期的变量名称,但另一个带有用于系列名称以及开始和结束日期的变量名称不喜欢这样:
此代码有效:
varcount <- 2
usagextsobjects <- vector((varcount * nrow(sum_datesdf)), mode = "list")
for (i in 1:varcount)
{for (j in 1:nrow(sum_datesdf))
{if (i == 1)
{usagextsobjects[[(((i - 1) * nrow(sum_datesdf)) + j)]] <- usagexts[paste(sum_datesdf$startperioddate[j], sum_datesdf$endperioddate[j], sep = "/")]
}
else
{usagextsobjects[[(((i - 1) * nrow(sum_datesdf)) + j)]] <- tempxts[paste(sum_datesdf$startperioddate[j], sum_datesdf$endperioddate[j], sep = "/")]
}
}
}
这不会:
for (i in 1:varcount)
{for (j in 1:nrow(sum_datesdf))
{if (i == 1)
{modelformulae <- paste0(paste(paste0(sum_datesdf$var1[i], "xts[", sum_datesdf$startperioddate[j]), sum_datesdf$endperioddate[j], sep = "/"),"]")
}
else
{modelformulae <- paste0(paste(paste0(sum_datesdf$var2[i], "xts[", sum_datesdf$startperioddate[j]), sum_datesdf$endperioddate[j], sep = "/"),"]")
}
usagextsobjects[[(((i - 1) * nrow(sum_datesdf)) + j)]] <- as.formula(modelformulae)
}
}
i == 1 的变量模型公式的内容如下usagexts[2015-10-01/2016-03-31]
:但这并不能转化为创建相关的 xts 对象
sum_datesdf 数据框是这样的:
startperioddate,endperioddate,checkval,var1,var1_1,var2,var2_1,varname1,varname1_1,varname2,varname2_1
1,2015-10-01,2016-03-31,1,usage,dusage,temp,dtemp,usage_1510_1603,dusage_1510_1603,temp_1510_1603,dtemp_1510_1603
6,2016-10-01,2017-03-31,1,usage,dusage,temp,dtemp,usage_1610_1703,dusage_1610_1703,temp_1610_1703,dtemp_1610_1703
11,2017-10-01,2018-03-31,1,usage,dusage,temp,dtemp,usage_1710_1803,dusage_1710_1803,temp_1710_1803,dtemp_1710_1803
我期待对象“usagextsobjects”包含 6 个 xts 对象的列表。使用第一个代码,它会,但使用第二个代码它不会。
错误是这样说的:
( usageexts
[.xts
, 2015 - 10 - 1/2016 - 3 - 31) 中的错误:下标越界
解决方案
通常,要通过字符串引用命名对象,您需要使用get()
而不仅仅是您尝试paste
调用的字符串本身。而且您不是从要求的字符串构建公式对象,as.formula
因此请删除该调用。请参阅下面的调整:
for (i in 1:varcount)
{for (j in 1:nrow(sum_datesdf))
{if (i == 1)
{ data <- get(sum_datesdf$var1[i])[paste(sum_datesdf$startperioddate[j], sum_datesdf$endperioddate[j], sep = "/")]
}
else
{ data <- get(sum_datesdf$var2[i])[paste(sum_datesdf$startperioddate[j], sum_datesdf$endperioddate[j], sep = "/")]
}
usagextsobjects[[(((i - 1) * nrow(sum_datesdf)) + j)]] <- data
}
}
但是,请考虑使用Map
(wrapper to mapply
) 逐元素地遍历sum_datesdf列并构建所需的列表,而不是通过嵌套for
循环进行初始化和分配。此外,拆分为两个Map
调用以绑定到c()
一个列表中:
get_data <- function(obj, start, end) {
get(obj)[paste(start, end, sep = "/")]
}
usagextsobjects <- with(sum_datesdf,
c(Map(get_data, var1, startperioddate, endperioddate),
Map(get_data, var2, startperioddate, endperioddate)
)
)
推荐阅读
- assembly - 什么是描述符寄存器?
- r - 错误:无法从私有 SVN 服务器安装 R 包
- html - 导航面板粘在屏幕顶部的问题
- javascript - 将输入值保存到本地存储并在不同的页面上检索它
- excel - Excel 的 VBA UDF 变得有价值!在另一个 UDF 上使用 hidden = true 之后
- php - 如何使用 PHP 通过选择列表从表中获取周数据计数、昨天数据、月份数据
- c++ - 布尔真值表 C++
- java - 如何在 Jersey 中获取请求和响应信息作为发布请求?
- java - 即时更改方向更改样式
- python - aws lambda的字典问题 - Python