如何在R中转换超过3列的数据帧？

Question

从Access数据库导入时，我得到的数据如下所示：

p <- data.frame(SurvDate = as.Date(c('2018-11-1','2018-11-1','2018-11-1',
                                     '2018-11-3', '2018-11-3')), 
                Area = c('AF','BB','CT', 'DF', 'BB'), 
                pCount = c(6, 3, 0, 12, 32), 
                ObsTime = c('8:51','8:59','9:13', '9:24', '9:30'), 
                stringsAsFactors = FALSE)

我希望将数据转换为行为SurvDate，列为区域(值为pCount)，每个区域旁边为ObsTime列，值为ObsTime。

示例：

n <- data.frame(SurvDate = as.Date(c('2018-11-1','2018-11-3')), 
                AF = c(6, NA), 
                TimeAF = c('8:51', NA), 
                BB = c(3, 32), 
                TimeBB = c('8:59', '9:30'), 
                CT = c(0, NA), 
                TimeCT = c(NA, '9:13'), 
                DF = c(NA,12), 
                TimeDF = c(NA, '9:24'))

我已经尝试了这个主题的变化，但没有时间工作。

library(reshape2)
dcast(p, SurvDate+ObsTime ~ Area)

Answer 1

以下是使用tidyverse工具的一种方法。注意，输出与您的预期输出不同，因为您似乎没有将CT的值放在正确的位置(值分布在两个日期)。一种方法是对这些值进行unite，这样我们就有一个单独的键值对用于spread，然后使用mutate_at再次分隔这些列。我们也可以多次使用separate，尽管使用太多的Area会变得很笨拙。

SurvDate <- as.Date(c('2018-11-1','2018-11-1','2018-11-1', '2018-11-3', '2018-11-3'))
Area <- c('AF','BB','CT', 'DF', 'BB')
People <- c(6, 3, 0, 12, 32)
ObsTime <- (c('8:51','8:59','9:13', '9:24', '9:30'))
p <- data.frame(SurvDate, Area, People, ObsTime, stringsAsFactors = FALSE)

library(tidyverse)
p %>%
  unite(vals, People, ObsTime) %>%
  spread(Area, vals) %>%
  mutate_at(
    .vars = vars(-SurvDate),
    .funs = funs(
      Time = str_extract(., "(?<=_).*$"),
      Area = str_extract(., "^.*(?=_)")
    )
  ) %>%
  filter(!is.na(SurvDate)) %>%
  select(SurvDate,  matches("_")) %>%
  select(SurvDate, order(colnames(.)))
#>     SurvDate AF_Area AF_Time BB_Area BB_Time CT_Area CT_Time DF_Area
#> 1 2018-11-01       6    8:51       3    8:59       0    9:13    <NA>
#> 2 2018-11-03    <NA>    <NA>      32    9:30    <NA>    <NA>      12
#>   DF_Time
#> 1    <NA>
#> 2    9:24

由reprex package创建于2018-04-30 (v0.2.0)。