R中的数据框从宽格式重组为两列 数据

如何解决R中的数据框从宽格式重组为两列 数据

我正在处理一个包含 4 列的数据集，这些列表示某个森林补丁的砍伐时间。

其中三列代表一年，每一行代表一个月。例如列：2015，行：1 = 2015 年 1 月

最后一列是每个站点的唯一 ID。

对于我的分析，我需要重构这些数据，使其为 2 行、站点和剪切的日期格式。由于我们不知道确切的日期，我们选择每月 15 日作为代理。

我附上了数据的照片和摘要。

我想要的最终结果是这样

uniqueid <- c(21000,23400,26800)
cut <- as.Date(c('2015-1-15','2016-3-15','2017-3-15'))
stack_example <- data.frame(uniqueid,cut)

有人可以帮我重组数据，使其与示例输出一样吗？

非常感谢

>>>>

 dput(head(clf))

结构（列表（X2017 = c（NA_integer_，NA_integer_，NA_integer_， NA_integer_,NA_integer_,NA_integer_),X2016 = c(NA_integer_,NA_integer_ ),X2015 = c(NA_integer_,idunique = 1:6),row.names = c(NA,6L),class = "data.frame")

解决方法

我们可以使用 pivot_longer 转为长格式，然后使用 paste 或 str_c 或 sprintf

library(dplyr)
library(tidyr)
library(stringr)
clf %>%
      pivot_longer(cols = -idunique,values_drop_na = TRUE,names_to = 'date',values_to = 'value') %>%
      transmute(idunique,cut = sprintf('%s-%02d-15',str_remove(date,'^X'),value))
# A tibble: 1 x 2
#  idunique cut       
#     <int> <chr>     
#1        3 2017-03-15

数据

# OP's dput showed all rows NA.  So,added a value for test
clf$X2017[3] <- 3