r - ddply と列の追加

Question

年|国|成長率の列を持つデータフレームがあります。毎年最も成長率が高い国を見つけたかったので、次のようにしました。

ddply(data, .(year), summarise, highest=max(growth_rate))

2列のデータフレームがあります。年と最高

ここに 3 番目の列を追加したいと思います。これは、その最大 growth_rate を持つ国を示しますが、これを行う方法がわかりません。

Answer 1

R> data = data.frame(year = rep(1990:1993, 2), growth_rate = runif(8), country = rep(c("US", "FR"), each = 4))
R> data
  year growth_rate country
1 1990  0.82785327      US
2 1991  0.86724498      US
3 1992  0.84813164      US
4 1993  0.35884355      US
5 1990  0.92792399      FR
6 1991  0.08659153      FR
7 1992  0.26732516      FR
8 1993  0.37819132      FR
R> ddply(data, .(year), summarize, highest = max(growth_rate), country = country[which.max(growth_rate)])
  year   highest country
1 1990 0.9279240      FR
2 1991 0.8672450      US
3 1992 0.8481316      US
4 1993 0.3781913      FR