R Изменить кадр данных из длинного в широкий формат? - PullRequest
Новая
       6

R Изменить кадр данных из длинного в широкий формат?

0 голосов
/ 08 июня 2018

Как лучше всего преобразовать приведенный ниже кадр данных из длинного в широкоформатный формат?Я пытался использовать изменение формы, но не получил желаемых результатов. 

2015    PROD A  test1
2015    PROD A  blue
2015    PROD A  50
2015    PROD A  66
2015    PROD A  66
2018    PROD B  test2
2018    PROD B  yellow
2018    PROD B  70
2018    PROD B  88.8
2018    PROD B  88.8
2018    PROD A  test3
2018    PROD A  red
2018    PROD A  55
2018    PROD A  88
2018    PROD A  90

enter image description here

Ответы [ 3 ]

0 голосов
/ 08 июня 2018

Возможное решение - это 

library(tidyverse)

df = read.table(text = "
                year prod value
                2015    PRODA  test1
                2015    PRODA  blue
                2015    PRODA  50
                2015    PRODA  66
                2015    PRODA  66
                2018    PRODB  test2
                2018    PRODB  yellow
                2018    PRODB  70
                2018    PRODB  88.8
                2018    PRODB  88.8
                2018    PRODA  test3
                2018    PRODA  red
                2018    PRODA  55
                2018    PRODA  88
                2018    PRODA  90
                ", header=T, stringsAsFactors=F)

df %>%
  group_by(year, prod) %>%                           # for each year and prod combination
  mutate(id = paste0("new_col_", row_number())) %>%  # enumerate rows (this will be used as column names in the reshaped version)
  ungroup() %>%                                      # forget the grouping
  spread(id, value)                                  # reshape

# # A tibble: 3 x 7
#    year prod  new_col_1 new_col_2 new_col_3 new_col_4 new_col_5
#   <int> <chr> <chr>     <chr>     <chr>     <chr>     <chr>    
# 1  2015 PRODA test1     blue      50        66        66       
# 2  2018 PRODA test3     red       55        88        90       
# 3  2018 PRODB test2     yellow    70        88.8      88.8
0 голосов
/ 30 мая 2019

Для полноты картины, вот решение, которое использует удобную функцию data.table rowid().

Важнейший вопрос заключается в том, что изменение формы зависит исключительно от строки положение из value в каждой (year, product) группе.rowid(year, product) нумерует строки в каждой группе.Таким образом, изменение формы по существу становится однострочным: 

library(data.table)
dcast(setDT(df1), year + product ~ rowid(year, product, prefix = "col_"))

   year product col_1  col_2 col_3 col_4 col_5
1: 2015  PROD A test1   blue    50    66    66
2: 2018  PROD A test3    red    55    88    90
3: 2018  PROD B test2 yellow    70  88.8  88.8

Обратите внимание, что rowid() принимает параметр prefix, чтобы гарантировать, что результирующие имена столбцов синтаксически верны.

Предупреждение: В этом решении предполагается, что year и product образуют уникальный ключ для каждой группы.

Данные

Данные считываются как опубликованные ОП без каких-либо изменений данных.Однако для этого требуется несколько строк постобработки: 

library(data.table)    
df1 <- fread("
2015    PROD A  test1
2015    PROD A  blue
2015    PROD A  50
2015    PROD A  66
2015    PROD A  66
2018    PROD B  test2
2018    PROD B  yellow
2018    PROD B  70
2018    PROD B  88.8
2018    PROD B  88.8
2018    PROD A  test3
2018    PROD A  red
2018    PROD A  55
2018    PROD A  88
2018    PROD A  90", 
      header = FALSE, col.names = c("year", "product", "value"), drop = 2L)[
        , product := paste("PROD", product)][]
0 голосов
/ 08 июня 2018

Вы ищете функцию dcast.Используется как:

dcast(data, col1 + col2 ~ col3)

Этот вопрос также может быть дубликатом, поэтому его можно снять.

...