R：将复杂的时间序列 dataframe 转换为长

Question

这是针对 R

date <- seq(as.Date("2020/03/11"), as.Date("2020/03/16"), "day")

x_pos_a <- c(1, 5, 4, 9, 0)

x_pos_b <- c(2, 6, 9, 5, 4)

like so [...]

我有一个时间序列 dataframe 有 69 个时间点。 dataframe 中的行是日期。 从三个群体（A、B、C）测量了四个变量（pos、anx、ang、sad）。 从每个群体（x、y、z）中抽取三个样本。 目前，变量、总体和样本 forms 的每个组合在 dataframe 中的一列。 例如，“x_pos_A”、“x_pos_B”、“x_pos_C”、“x_anx_A”...“z_sad_b”、“z_sad_c”。

我想将它重塑为以下形状

“日期”“变量”“人口”“样本”“值”

我花了最后 3 个小时在论坛上寻找答案，但没有成功。

非常感谢任何帮助！ 谢谢

Answer 1

您可以使用pivot_longer的tidyr ：

tidyr::pivot_longer(df, 
                    cols = -date,
                    names_to = c('sample', 'variable', 'population'), 
                    names_sep = '_')

#    date       sample variable population value
#   <date>     <chr>  <chr>    <chr>      <dbl>
# 1 2020-03-11 x      pos      a              1
# 2 2020-03-11 x      pos      b              2
# 3 2020-03-12 x      pos      a              5
# 4 2020-03-12 x      pos      b              6
# 5 2020-03-13 x      pos      a              4
# 6 2020-03-13 x      pos      b              9
# 7 2020-03-14 x      pos      a              9
# 8 2020-03-14 x      pos      b              5
# 9 2020-03-15 x      pos      a              0
#10 2020-03-15 x      pos      b              4 

数据

date <- seq(as.Date("2020/03/11"), as.Date("2020/03/15"), "day")
x_pos_a <- c(1, 5, 4, 9, 0)
x_pos_b <- c(2, 6, 9, 5, 4)
df <- data.frame(date, x_pos_a, x_pos_b)