[英]Creating Time Series columns in R from Long to Wide format considering Date Range
首先,我已經成功地將數據從長格式轉換為寬格式。 數據如下。
+======+==========+======+======+
| Name | Date | Val1 | Val2 |
+======+==========+======+======+
| A | 1/1/2018 | 1 | 2 |
+------+----------+------+------+
| B | 1/1/2018 | 2 | 3 |
+------+----------+------+------+
| C | 1/1/2018 | 3 | 4 |
+------+----------+------+------+
| D | 1/4/2018 | 4 | 5 |
+------+----------+------+------+
| A | 1/4/2018 | 5 | 6 |
+------+----------+------+------+
| B | 1/4/2018 | 6 | 7 |
+------+----------+------+------+
| C | 1/4/2018 | 7 | 8 |
+------+----------+------+------+
要將上表從長格式轉換為寬格式,我使用了以下代碼行:
test_wide <- reshape(test_data, idvar = 'Name', timevar = 'Date', direction = "wide" )
以上代碼的結果如下:
+======+===============+===============+===============+===============+
| Name | Val1.1/1/2018 | Val2.1/1/2018 | Val1.1/4/2018 | Val2.1/4/2018 |
+======+===============+===============+===============+===============+
| A | 1 | 2 | 5 | 6 |
+------+---------------+---------------+---------------+---------------+
| B | 2 | 3 | 6 | 7 |
+------+---------------+---------------+---------------+---------------+
| C | 3 | 4 | 7 | 8 |
+------+---------------+---------------+---------------+---------------+
| D | NA | NA | 4 | 5 |
+------+---------------+---------------+---------------+---------------+
我面臨的問題是我需要R考慮Date
格式的Date
列。 日期列的范圍從1/1/2018
到1/4/2018
因為日期1/2/2018
和1/3/2018
沒有值,我看不到任何列為Val1.1/2/2018
, Val2.1/3/2018
, Val3.1/2/2018
Val3.1/3/2018
和Val3.1/3/2018
。
我想轉換為寬格式,以便我可以獲取日期為1/2/2018
和1/3/2018
列,盡管這些列將僅包含NULLS。
這樣做的原因是我需要將數據用作時間序列。
編輯:
復制和粘貼初始數據:
Name Date Val1 Val2
A 1/1/2018 1 2
B 1/1/2018 2 3
C 1/1/2018 3 4
D 1/4/2018 4 5
A 1/4/2018 5 6
B 1/4/2018 6 7
C 1/4/2018 7 8
", header=TRUE)
轉換后的數據復制並粘貼:
Name,Val1.1/1/2018,Val2.1/1/2018,Val1.1/4/2018,Val2.1/4/2018
A,1,2,5,6
B,2,3,6,7
C,3,4,7,8
D,NA,NA,4,5
dput(test_data)結果:
structure(list(Name = structure(c(1L, 2L, 3L, 4L, 1L, 2L, 3L), .Label = c("A",
"B ", "C", "D"), class = "factor"), Date = structure(c(1L, 1L,
1L, 2L, 2L, 2L, 2L), .Label = c("1/1/2018", "1/4/2018"), class = "factor"),
Val1 = 1:7, Val2 = 2:8), class = "data.frame", row.names = c(NA,
-7L))
tidyverse
選項
library(lubridate)
library(tidyverse)
df %>%
mutate(Date=mdy(Date)) %>%
#Or you can do as.Date(Date,'%m/%d/%Y') to avoid loading `lubridate`
complete(Name, Date = seq(min(Date), max(Date), 1)) %>%
gather(key, value, -Name, -Date) %>%
unite(Date, key, Date, sep = ".") %>%
spread(Date, value)
library(dplyr)
library(tidyr) #complete
library(data.table) #dcast and setDT
df %>% mutate(Date=as.Date(Date,'%m/%d/%Y')) %>%
complete(Name, nesting(Date=full_seq(Date,1))) %>%
setDT(.) %>% dcast(Name ~ Date, value.var=c('Val2','Val1'))
聲明:本站的技術帖子網頁,遵循CC BY-SA 4.0協議,如果您需要轉載,請注明本站網址或者原文地址。任何問題請咨詢:yoyou2525@163.com.