1

Imagine que tenho a seguinte base:

       Country <- c("Brazil", "Brazil", "Brazil", "Brazil", "Brazil","Brazil", "Argentina", "Argentina", "Argentina", "Argentina", "Argentina", "Argentina")
Year <- c(91, 92, 93, 94, 95, 96, 91, 92, 93, 94, 95, 96)
period <- c(1, 1, 2, 2, 3, 3, 1, 1, 2, 2, 3, 3)
values <- c(5,3, 4, 2, 1, 1, 5, 7, 4, 4, 3, 7)
df <- data.frame(country = Country, year = Year, period = period, pib = values)

    country year period value
    Brazil   91      1     5
    Brazil   92      1     3
    Brazil   93      2     4
    Brazil   94      2     2
    Brazil   95      3     1
    Brazil   96      3     1
 Argentina   91      1     5
 Argentina   92      1     7
 Argentina   93      2     4
 Argentina   94      2     4
 Argentina   95      3     3
 Argentina   96      3     7       

A partir desta base quero criar uma nova variável chamada media, onde será calculado a média do pib para cada país em cada período, de tal forma que o resultado final seria:

   country year period pib media
   Brazil   91      1   5     4
   Brazil   92      1   3     4
   Brazil   93      2   4     3
   Brazil   94      2   2     3
   Brazil   95      3   1     1
   Brazil   96      3   1     1
Argentina   91      1   5     6
Argentina   92      1   7     6
Argentina   93      2   4     4
Argentina   94      2   4     4
Argentina   95      3   3     5
Argentina   96      3   7     5

Não faço ideia de como fazer isto, mas acredito que tenha um jeito. Alguém pode me dar uma luz?

PS: Tentei criar o melhor exemplo possível, mas ainda sou iniciante.

1 Resposta 1

1

Você pode usar o dplyr da seguinte forma:

library(dplyr)
df %>%
  group_by(country, period) %>%
  mutate(media = mean(pib))

Source: local data frame [12 x 5]
Groups: country, period [6]

     country  year period   pib media
      <fctr> <dbl>  <dbl> <dbl> <dbl>
1     Brazil    91      1     5     4
2     Brazil    92      1     3     4
3     Brazil    93      2     4     3
4     Brazil    94      2     2     3
5     Brazil    95      3     1     1
6     Brazil    96      3     1     1
7  Argentina    91      1     5     6
8  Argentina    92      1     7     6
9  Argentina    93      2     4     4
10 Argentina    94      2     4     4
11 Argentina    95      3     3     5
12 Argentina    96      3     7     5

Para criar a variável e já salvá-la no objeto df, use:

df <- df %>%
  group_by(country, period) %>%
  mutate(media = mean(pib)) %>%
  ungroup()

O ungroup não é necessário, mas é recomendado para que as demais operações não sejam realizadas por grupo.

Você deve fazer log-in para responder a esta pergunta.

Esta não é a resposta que você está procurando? Pesquise outras perguntas com a tag .