R 枢轴示例

Question

我在使用 tidyr 解决这个相对论简单的旋转问题时遇到了麻烦。和例子最好地说明了这一点。我有这个未处理的数据:

data_unprocessed <- tribble(
  ~statistic, ~value,
  "median_geo_wo_nw", 2.66, 
  "median_travel_wo_nw", 4.11,
  "mean_geo_wo_nw", 12.4,
  "mean_travel_wo_nw", 34.2)

我需要像这样转换为宽格式:

data_processed <- tribble(
  ~statistic, ~geo_distance, ~travel_distance,
  "median", 2.66, 4.11,
  "mean", 12.4, 34.2)

对不起，如果这看起来很基本，但我无法让它工作。
谢谢，

Answer 1

我们可以separate 'statistic' 列的第一个分隔符 _然后使用 pivot_wider

library(dplyr)
library(tidyr)
library(stringr)
data_unprocessed %>% 
    separate(statistic, into = c('statistic', 'colnm'), sep="_", 
       extra = 'merge') %>% 
    mutate(colnm = str_replace(colnm, '_wo_nw', '_distance')) %>%
    pivot_wider(names_from = colnm, values_from = value)

-输出

# A tibble: 2 x 3
#  statistic geo_distance travel_distance
#  <chr>            <dbl>           <dbl>
#1 median            2.66            4.11
#2 mean             12.4            34.2