"частичный" стержень широкий в г - PullRequest
Новая
       26

"частичный" стержень широкий в г

2 голосов
/ 30 апреля 2020

У меня есть фрейм данных, который выглядит следующим образом: 

Time Y
1 2
1 3
1 2
2 5
2 7
2 5
3 10
3 9
3 8

И я хотел бы создать что-то похожее на 

Time R1 R2 R3
1 2 3 2
2 5 7 5
3 10 9 8

Я должен сохранить столбец времени для дальнейший регрессионный анализ. Я могу сделать это sh, используя Time2 = Time и используя Time2 для аргумента names_from. Тем не менее, я получаю сообщения об ошибках: 

> foo
  Time  Y Time2
1    1  2     1
2    1  3     1
3    1  2     1
4    2  5     2
5    2  7     2
6    2  5     2
7    3 10     3
8    3  9     3
9    3  8     3
> pivot_wider(foo, names_from=Time2, values_from=Y)
# A tibble: 3 x 4
   Time `1`       `2`       `3`      
  <dbl> <list>    <list>    <list>   
1     1 <dbl [3]> <NULL>    <NULL>   
2     2 <NULL>    <dbl [3]> <NULL>   
3     3 <NULL>    <NULL>    <dbl [3]>
Warning message:
Values in `Y` are not uniquely identified; output will contain list-cols.
* Use `values_fn = list(Y = list)` to suppress this warning.
* Use `values_fn = list(Y = length)` to identify where the duplicates arise
* Use `values_fn = list(Y = summary_fun)` to summarise duplicates

Я не уверен, что я делаю неправильно.

Ответы [ 2 ]

2 голосов
/ 30 апреля 2020

Может быть, следующие базовые параметры R могут помочь

  • Использование unstack: 
p <- unstack(foo,Y~Time)
res <- data.frame(Time = gsub("X","",names(p)),
                  `colnames<-`(unname(t(p)),
                               paste0("R",seq(ncol(p)))))
  • Использование reshape: 
res <- reshape(within(foo,ID <- ave(Y,Time,FUN = seq_along)),
               direction = "wide",
               idvar = "Time",
               timevar = "ID")
res <- setNames(res,gsub("^Y\\.","R",names(res)))

такой, что 

> res
  Time R1 R2 R3
1    1  2  3  2
2    2  5  7  5
3    3 10  9  8

Данные 

foo <- structure(list(Time = c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 3L), 
    Y = c(2L, 3L, 2L, 5L, 7L, 5L, 10L, 9L, 8L)), class = "data.frame", row.names = c(NA, 
-9L))
2 голосов
/ 30 апреля 2020

Это просто предупреждающее сообщение, поскольку есть дубликаты для «Time2». Вместо этого мы можем создать столбец последовательности на основе времени или времени2 

library(dplyr)
library(tidyr)
library(data.table)
foo %>% 
    mutate(rn = str_c('R', rowid(Time))) %>%
    pivot_wider(names_from = rn, values_from = Y)
# A tibble: 3 x 4
#   Time    R1    R2    R3
#  <int> <int> <int> <int>
#1     1     2     3     2
#2     2     5     7     5
#3     3    10     9     8
...