0

我想将看起来像左表的数据重组到右表，我想将其转换为。

在此处输入图像描述

上述左表中的样本数据编码如下。

data <- data.frame(country=c('US', 'US', 'US', 'US', 'US', 'UO', 'UO', 'UO', 'UO', 'UO'),
               year=c(2015, 2015, 2016, 2016, 2016, 2015, 2015, 2015, 2016, 2016),
               region=c('NY', 'CA', 'MI', 'MA', 'IL', 'GH', 'FD', 'AH', 'PO', 'LQ'))

谢谢你的建议。

4

1 回答 1

1

使用 dplyr 和 purrr 包来解决这个问题

#collection of many packagaes like tibble,dplyr,purrr,ggplot and etc.
library(tidyverse) 
data %>%
    #First two columns contain grouping variables
    group_by(year,country) %>%
    #based on grouping variables, make other columns into a list and store 
    #them in an other column
    nest() %>%
    #map is from purrr package, which can deal with list in a dataframe
    # t() transpose the dataframe, as.tibble() make them into tibble class
    mutate(data = map(data,~ as.tibble(t(.x)))) %>%
    #unnest the list column
    unnest() %>%
    #rename columns
    rename(region1 = V1, region2 = V2, region3 = V3)

结果：

# A tibble: 4 x 5
   year country region1 region2 region3
  <dbl> <fct>   <chr>   <chr>   <chr>  
1  2015 US      NY      CA      NA     
2  2016 US      MI      MA      IL     
3  2015 UO      GH      FD      AH     
4  2016 UO      PO      LQ      NA

如果需要，将 NA 替换为空字符串 ""。

或者以这种方式重命名：

library(stringr)
colnames(temp) <- str_replace(colnames(temp),pattern = fixed("V"),replacement = "region")           
colnames(temp)
#result
[1] "year"    "country" "region1" "region2" "region3"
于 2018-02-04T06:18:51.080 回答