summaryとgroup byを使用してrでサマリーテーブルを作成する方法は？

Question

だから私持って次のデータセット（これは小さなサンプル/それが元であること7K行で、どのように見えるかの例と30列7十年以上である）：

Year,Location,Population Total, Median Age, Household Total 
2000, Adak, 220, 45, 67 
2000, Akiachak, 567, NA, 98 
2000, Rainfall, 2, NA, 11 
1990, Adak, NA, 33, 56 
1990, Akiachak, 456, NA, 446 
1990, Tioga, 446, NA, NA 

私は概要を作成したいです各変数の場所によって何年のデータが利用可能であるかを示す表。したがって、このような何か（前から小規模例えば）働くだろう：

Location,Population Total, Median Age, Household Total 
Adak,1,2,2 
Akiachak,2,0,2 
Rainfall,1,0,1 
Tioga,1,0,0 

私はRに新たなんだと私は構文がわからないんですので、一緒にこれらの2つのコマンドを使用していません。どんな助けが素晴らしいか選択肢になるでしょう。

x %>% 
    group_by(Location) %>% 
    summarise(count_years = n(), 
      count_pop_total = sum(!is.na(Population_Total)), 
      count_median_age = sum(!is.na(Median_Age)), 
      count_house_total = sum(!is.na(Household_Total))) 

あなたが実行したいものは何でも操作して平均値を置き換えることができます。

Answer 1

dplyrからsummarize_allと解決策：

library(dplyr) 
df %>% 
    group_by(Location) %>% 
    summarize_all(funs(sum(!is.na(.)))) %>% 
    select(-Year) 

それともsummarize_atを使用することができます。

df %>% 
    group_by(Location) %>% 
    summarize_at(vars(-Year), funs(sum(!is.na(.)))) 

結果：

# A tibble: 4 x 4 
    Location PopulationTotal MedianAge HouseholdTotal 
     <chr>   <int>  <int>   <int> 
1  Adak    1   2    2 
2 Akiachak    2   0    2 
3 Rainfall    1   0    1 
4  Tioga    1   0    0 

データ：

df = read.table(text = "Year,Location,PopulationTotal, MedianAge, HouseholdTotal 
       2000, Adak, 220, 45, 67 
       2000, Akiachak, 567, NA, 98 
       2000, Rainfall, 2, NA, 11 
       1990, Adak, NA, 33, 56 
       1990, Akiachak, 456, NA, 446 
       1990, Tioga, 446, NA, NA", header = TRUE, sep = ",", stringsAsFactors = FALSE) 

library(dplyr)  
df = df %>% 
    mutate_at(vars(PopulationTotal:HouseholdTotal), as.numeric) 

Answer 2

あなたはこのような何かを行うことができます。より一般的な解決法についてはdplyr vignetteをご覧ください。