集約関数と集計関数を使用してデータフレーム内のユニークな列を取得する方法は？

Question

私は集計関数を使用して、コレクションの場所に基づいて結果の要約を取得しました。サマリは3 obsを返します。 2つの変数からなる。 1つの変数はグループ名であり、1つはグループごとの集計統計です。

データフレーム内で各列（グループ、分、1/4,1メジアンなど）を一意に表示するにはどうすればよいですか？最終的に私はこれを3 obsにしたいと思います。 7つの変数、各列に1つまたは私はきれいに分、中央値、および最大位置を取得する方法を知りたいです。ありがとう！ aggregate年代simplifyパラメータのデフォルト以来

Result <- c(1,1,2,100,50,30,45,20, 10, 8) 
Location <- c("Alpha", "Beta", "Gamma", "Alpha", "Beta", "Gamma", "Alpha", "Beta", "Gamma", "Alpha") 

df <- data.frame(Result, Location) 
head(df) 

Agg <- aggregate(df$Result, list(df$Location), summary) 

head(Agg) 
    Group.1 x.Min. x.1st Qu. x.Median x.Mean x.3rd Qu. x.Max. 
1 Alpha 1.00  6.25 26.50 38.50  58.75 100.00 
2 Beta 1.00  10.50 20.00 23.67  35.00 50.00 
3 Gamma 2.00  6.00 10.00 14.00  20.00 30.00 

Answer 1

TRUEに、それはマトリックスに（ここでは、summary）関数を呼び出した結果を簡素化しています。あなたは、独自のdata.frameに列を強要、data.frameを再構築することができます

with(Agg, data.frame(Group.1, as.data.frame(x))) 

## Group.1 Min. X1st.Qu. Median Mean X3rd.Qu. Max. 
## 1 Alpha 1  6.25 26.5 38.50 58.75 100 
## 2 Beta 1 10.50 20.0 23.67 35.00 50 
## 3 Gamma 2  6.00 10.0 14.00 20.00 30 

代わりに、機能のdplyrのsummarise家族はよく、複数の要約統計量を扱うことができます。

library(dplyr) 

df %>% group_by(Location) %>% summarise_all(funs(min, median, max)) 

## # A tibble: 3 × 4 
## Location min median max 
##  <fctr> <dbl> <dbl> <dbl> 
## 1 Alpha  1 26.5 100 
## 2  Beta  1 20.0 50 
## 3 Gamma  2 10.0 30 

あなたが本当にしたい場合summaryのすべて、あなたはdata.frameに結果を有効にするbroom::tidyを使用することができます。

df %>% group_by(Location) %>% do(broom::tidy(summary(Result))) 

## Source: local data frame [3 x 7] 
## Groups: Location [3] 
## 
## Location minimum q1 median mean q3 maximum 
##  <fctr> <dbl> <dbl> <dbl> <dbl> <dbl> <dbl> 
## 1 Alpha  1 6.25 26.5 38.50 58.75  100 
## 2  Beta  1 10.50 20.0 23.67 35.00  50 
## 3 Gamma  2 6.00 10.0 14.00 20.00  30