数据操作：制作时间序列数据

Question

t1＆lt; -c（196613,196713,196813,196913,197013,197113,197213,197301,197302,197303,197304,197305,197306,197307,197308,197309,197310,197311,197312）

我想删除xxxx13并制作时间序列月度数据集。

`last two digits` <- function(x) { return(substring(as.character(x),   nchar(x)-1, nchar(x))) }

filter(t1, `last two digits`(t1)<13)


date <- as.Date(as.character((t1)),format="%Y%m")

---

我使用了dplyr并编写了类似上面的代码，但函数last two digits读取了＆＃34; TRUE＆＃34;或者＆＃34;错误＆＃34;而是数字数据。

在固定t [t %% 100 <13]并运行＆＃34;日期＆＃34;，但结果都是＆＃34; NA＆＃34;。 你能帮我解决一下吗？

Answer 1

你的问题并不明显，但我怀疑你想要这个：

t1[t1 %% 100 < 13]
#[1] 197301 197302 197303 197304 197305 197306 197307 197308 197309 197310 197311 197312