Question

我想咨询有关将数据帧（或小标题）转换为小标题的最有效方法的建议。

数据框的第一列中有日期，所有其他列代表各种时间序列，并在相应的日期给出值。我想有效地创建一个带有key =每个时间序列名称和index =每个日期的标签。

所以输出将是这样显示的小插曲：

Key                  Index             Value
TimeSeriesOne       FirstDate        Value TimeSeriesOne on first date
TimeSeriesOne       SecondDate       Value TimeSeriesOne on second date
......................................................................
TimeSeriesOne       LastDate         Value TimeSeriesOne on last date
TimeSeriesTwo       FirstDate        Value TimeSeriesTwo on first date
......................................................................
TimeSeriesN         LastDate         Value TimeSeriesN on last date

输入数据示例：

numRows <- 15
startDate <- lubridate::as_date('2018-06-10')
endDate <- startDate + base::months(x = numRows-1)
theDates <- base::seq.Date(
    from = startDate,
    to = endDate,
    by = "month")  
inputData <- tibble::tibble(
    "Dates" = theDates,
    "SeriesOne" = stats::rnorm(numRows),
    "SeriesTwo" = stats::rnorm(numRows),
    "SeriesThree" = stats::rnorm(numRows), 
    "SeriesFour" = stats::rnorm(numRows))

Answer 1

您可以使用tidyr转换为“长格式”：

tsibble_input <- tidyr::pivot_longer(inputData, cols = -Dates, names_to = "Key", values_to = "Value")

并获取tsibble：

tsibble::as_tsibble(tsibble_input, index = "Dates", key = "Key")

Answer 2

我们可以使用melt中的data.table高效地执行此操作，然后将其转换为tibble

library(data.table)
library(tibble)
as_tibble(melt(setDT(inputData), id.var = 'Dates', variable.name = 'Key', 
      value.name = 'Value')[, Key := paste0("Time", Key)])

Answer 3

转换为动物园，然后转换为长数据帧，最后转换为斜拍

library(tsibble)
library(zoo)

inputData %>%
  read.zoo %>%
  fortify.zoo(melt = TRUE) %>%
  as_tsibble(key = "Series", index = "Index")

或使用stack（或许多其他重塑函数中的任何一个，包括重塑，融合，聚集，pivot_longer）来创建一个长数据帧，然后进行摆盘。如果有效率的话，您要求的前提条件是最低限度，则仅使用tsibble软件包及其依赖项。

library(tsibble)

inputData %>%
  { cbind(.[1], stack(.[-1])) } %>%
  as_tsibble(key = "ind", index = "Dates")

将数据帧（或小标题）转换为小标题的有效方法

3 个答案: