tidyr: Pivot_wider заменяет значения типом данных - PullRequest
Новая
       7

tidyr: Pivot_wider заменяет значения типом данных

2 голосов
/ 26 сентября 2019

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

head(df)
# A tibble: 6 x 4
  State    Year Var                                                           X
  <chr>   <dbl> <chr>                                                     <dbl>
1 ALABAMA  2001 APPALACHIAN REGIONAL COMMISSION (ARC)                   3048031
2 ALABAMA  2001 CORPORATION FOR NATIONAL AND COMMUNITY SERVICE (CNCS)   1765835
3 ALABAMA  2001 DEPARTMENT OF AGRICULTURE (USDA)                      282530429
4 ALABAMA  2001 DEPARTMENT OF COMMERCE (DOC)                           17838084
5 ALABAMA  2001 DEPARTMENT OF DEFENSE (DOD)                            21160159
6 ALABAMA  2001 DEPARTMENT OF EDUCATION (ED)                          174634348

Где состояние - это сущность, Год - это измерение времени, Var - это список переменных, которые я пытаюсь развернуть, а X - это список значений для каждогопеременная.Когда я использую следующий код: 

library(tidyverse)

df %<>% 
  pivot_wider(names_from = Var, values_from = X)

R возвращает предупреждающее сообщение о том, что: 

Warning message:
Values in `X` are not uniquely identified; output will contain list-cols.
* Use `values_fn = list(X = list)` to suppress this warning.
* Use `values_fn = list(X = length)` to identify where the duplicates arise
* Use `values_fn = list(X = summary_fun)` to summarise duplicates

и мои данные заменяют все значения данными, как показано ниже. 

head(df)
# A tibble: 6 x 35
  State  Year `APPALACHIAN RE~ `CORPORATION FO~ `DEPARTMENT OF ~ `DEPARTMENT OF ~ `DEPARTMENT OF ~ `DEPARTMENT OF ~ `DEPARTMENT OF ~ `DEPARTMENT OF ~
  <chr> <dbl>      <list<dbl>>      <list<dbl>>      <list<dbl>>      <list<dbl>>      <list<dbl>>      <list<dbl>>      <list<dbl>>      <list<dbl>>
1 ALAB~  2001              [1]              [1]              [1]              [1]              [1]              [1]              [1]              [1]
2 ALAS~  2001              [0]              [1]              [1]              [1]              [1]              [1]              [1]              [1]
3 ARIZ~  2001              [0]              [1]              [1]              [1]              [1]              [1]              [1]              [1]
4 ARKA~  2001              [0]              [1]              [1]              [1]              [1]              [1]              [1]              [1]
5 CALI~  2001              [0]              [1]              [1]              [1]              [1]              [1]              [1]              [1]
6 COLO~  2001              [0]              [1]              [1]              [1]              [1]              [1]              [1]              [1]
# ... with 25 more variables: `DEPARTMENT OF HOUSING AND URBAN DEVELOPMENT (HUD)` <list<dbl>>, `DEPARTMENT OF JUSTICE (DOJ)` <list<dbl>>, `DEPARTMENT OF
#   LABOR (DOL)` <list<dbl>>, `DEPARTMENT OF THE INTERIOR (DOI)` <list<dbl>>, `DEPARTMENT OF TRANSPORTATION (DOT)` <list<dbl>>, `ENVIRONMENTAL PROTECTION
#   AGENCY (EPA)` <list<dbl>>, `FEDERAL EMERGENCY MANAGEMENT AGENCY (FEMA)` <list<dbl>>, `INSTITUTE OF MUSEUM AND LIBRARY SERVICES (IMLS)` <list<dbl>>,
#   `NATIONAL AERONAUTICS AND SPACE ADMINISTRATION (NASA)` <list<dbl>>, `NATIONAL ENDOWMENT FOR THE ARTS (NEA)` <list<dbl>>, `NATIONAL ENDOWMENT FOR THE
#   HUMANITIES (NEH)` <list<dbl>>, `NATIONAL SCIENCE FOUNDATION (NSF)` <list<dbl>>, `SMALL BUSINESS ADMINISTRATION (SBA)` <list<dbl>>, `FEDERAL MEDIATION
#   AND CONCILIATION SERVICE (FMCS)` <list<dbl>>, `NATIONAL ARCHIVES AND RECORDS ADMINISTRATION (NARA)` <list<dbl>>, `AGENCY FOR INTERNATIONAL DEVELOPMENT
#   (USAID)` <list<dbl>>, `JAPAN-UNITED STATES FRIENDSHIP COMMISSION (JUSFC)` <list<dbl>>, `UNITED STATES INSTITUTE OF PEACE (USIP)` <list<dbl>>, `CORPS OF
#   ENGINEERS - CIVIL WORKS (USACE)` <list<dbl>>, `DEPARTMENT OF STATE (DOS)` <list<dbl>>, `NATIONAL LABOR RELATIONS BOARD (NLRB)` <list<dbl>>, `NUCLEAR
#   REGULATORY COMMISSION (NRC)` <list<dbl>>, `SOCIAL SECURITY ADMINISTRATION (SSA)` <list<dbl>>, `SELECTIVE SERVICE SYSTEM (SSS)` <list<dbl>>,
#   `NA` <list<dbl>>

Мне интересно, почему исходные значения стираются из оси, а также что я могу сделать, чтобы этого не произошло.

1 Ответ

0 голосов
/ 26 сентября 2019

Нам может понадобиться столбец последовательности, поскольку есть дубликаты.Сгруппированные по «State», «Year», «Var», создайте столбец последовательности с row_number(), а затем примените pivot_wider

library(dplyr)
library(tidyr)
df %>% 
  group_by(State, Year, Var) %>%
  mutate(rn = row_number()) %>%
  pivot_wider(names_from = Var, values_from = X)
...