Ранжирование в нескольких группах - R

Question

У меня есть такой фрейм данных:

country =  c("Austria", "Austria","Austria","Austria", "Brazil", "Brazil", "Brazil", "Brazil", "USA", "USA", "USA", "USA",
             "Austria", "Austria","Austria","Austria", "Brazil", "Brazil", "Brazil", "Brazil", "USA", "USA", "USA", "USA")
tech = c("cars", "cars","cars","cars","cars","cars","cars","cars","cars","cars","cars","cars","planes","planes","planes",
         "planes","planes","planes","planes","planes","planes","planes","planes","planes")
year =  c(2010, 2011, 2012, 2013, 2010, 2011, 2012, 2013, 2010, 2011, 2012, 2013,2010, 2011, 2012, 2013, 2010, 2011, 2012,
          2013, 2010, 2011, 2012, 2013)
value = c(42, 23, 13, 13, 646,454, 23, 234, 12, 123, 1, 23, 23, 54, 2, 77, 584, 66, 767, 6767, 23, 12, 12, 99)


df = data.frame(tech, country, year, value)

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

Итак, в 2013 году для самолетов я хочу сказать, что «США» заняла 1-е место (имело наибольшее значение для этого года и технологий).

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

df = df %>% 
  group_by(year) %>% 
  arrange(country) %>% 
  mutate(`whatever` = order(order(value, decreasing = TRUE)))

Тем не менее, я поставлен в тупик, как добавить технологию в смесь, то есть ранжировать по технологии для каждого года для стран.

Кто-нибудь есть руководство?

Answer 1

Вам это поможет?

library(tibble)
library(dplyr)

country =  c("Austria", "Austria","Austria","Austria", "Brazil", "Brazil", "Brazil", "Brazil", "USA", "USA", "USA", "USA",
             "Austria", "Austria","Austria","Austria", "Brazil", "Brazil", "Brazil", "Brazil", "USA", "USA", "USA", "USA")
tech = c("cars", "cars","cars","cars","cars","cars","cars","cars","cars","cars","cars","cars","planes","planes","planes",
         "planes","planes","planes","planes","planes","planes","planes","planes","planes")
year =  c(2010, 2011, 2012, 2013, 2010, 2011, 2012, 2013, 2010, 2011, 2012, 2013,2010, 2011, 2012, 2013, 2010, 2011, 2012,
          2013, 2010, 2011, 2012, 2013)
value = c(42, 23, 13, 13, 646,454, 23, 234, 12, 123, 1, 23, 23, 54, 2, 77, 584, 66, 767, 6767, 23, 12, 12, 99)


df = tibble(tech, country, year, value)
df
#> # A tibble: 24 x 4
#>    tech  country  year value
#>    <chr> <chr>   <dbl> <dbl>
#>  1 cars  Austria  2010    42
#>  2 cars  Austria  2011    23
#>  3 cars  Austria  2012    13
#>  4 cars  Austria  2013    13
#>  5 cars  Brazil   2010   646
#>  6 cars  Brazil   2011   454
#>  7 cars  Brazil   2012    23
#>  8 cars  Brazil   2013   234
#>  9 cars  USA      2010    12
#> 10 cars  USA      2011   123
#> # … with 14 more rows

df %>% 
  group_by(tech, year) %>% 
  mutate(rank = rank(value)) %>% 
  arrange(tech, year, rank)
#> # A tibble: 24 x 5
#> # Groups:   tech, year [8]
#>    tech  country  year value  rank
#>    <chr> <chr>   <dbl> <dbl> <dbl>
#>  1 cars  USA      2010    12     1
#>  2 cars  Austria  2010    42     2
#>  3 cars  Brazil   2010   646     3
#>  4 cars  Austria  2011    23     1
#>  5 cars  USA      2011   123     2
#>  6 cars  Brazil   2011   454     3
#>  7 cars  USA      2012     1     1
#>  8 cars  Austria  2012    13     2
#>  9 cars  Brazil   2012    23     3
#> 10 cars  Austria  2013    13     1
#> # … with 14 more rows

^{Создано в 2020-03-20 с помощью пакета представительства (v0.3.0)}