Rコーディング：私は会社の四半期データとデータフレームを持っている

Question

複数の条件で条件付き合計を取るためにのみ4、完全なデータの4分の3とどのようにして記録を保持し、私は2つの質問持ってする方法：

1：どのように私はデータの4分の3を持つ企業のみの記録を残しています（データの1,2または3/4で表示されることがありますが、データフレーム全体で各会社に4分の3が必要です）

2：年と会社の2つの条件を考慮して、4つの四半期にわたって年間平均または合計（可変タイプに基づく）を取っていきたいと思います。

たとえば、1984年の会社iでは、4つの異なる四半期の値に基づいて、平均在庫金額と総収益がそれぞれI1984とREV1984となります。平均値との和のために - - 私は現在、これらのコード行を使用していますが、Rは、「NA」を返し続け、私が検索し、代替案を探してきましたが、何も動いていないようにみえ：

Company i_ I1984 <- with(R, mean(I [FY == "1984" & Co == "AAR CORP" ])) 
Company i_ REV1984 <- with(R, sum(REVQ [FY == "1984" & Co == "AAR CORP" ])) 

Rは私のデータフレーム です私は< - 四半期ごとの在庫 REVQ < - 四半期ごとの売上高は明らか

私は新しいdata.frameにそれぞれの新しい平均/合計値と場所を見つけると、引用符で囲まれた値は、動的行われます。

ご協力いただければ幸いです。 「X線」この例では

company<-c("xray", "xray", "xray", "xray", "foxrot", "foxrot", "delta",  "kilo", "kilo") 
qtr <-c("1","2","3","4", "1", "2","4", "2","3") 

IQ <- rnorm(9,0,10) 
REVQ <- rnorm(9,0,10) 
AssetQ <- rnorm(9,0,10) 
CashQ <- rnorm(9,0,10) 

#Modified dataframe 
data<-data.frame(company, qtr, IQ, REVQ, AssetQ, CashQ) 

我々は平均/合計を取るいる唯一の企業でなければなりません：私は以下のコード例を含めました

ありがとうございます。 （下のコメントから、あなたのDF構造を持つ）あなたの最初の質問については

Answer 1

：あなたの2番目の質問については

company<-c("xray", "xray", "xray", "xray", "foxrot", "foxrot", "delta", "kilo", "kilo") 
qtr <-c("1","2","3","4", "1", "2","4", "2","3") 
IQ <- rnorm(9,0,10) 
REVQ <- rnorm(9,0,10) 
AssetQ <- rnorm(9,0,10) 
CashQ <- rnorm(9,0,10) 
#Modified dataframe 
data<-data.frame(company,qtr, IQ, REVQ, AssetQ, CashQ) 


#Using the dplyr package: 
data.complete<-data.frame(data %>% group_by(company) %>% filter(n() == 4)) 

#Get your sum and means (note that the 'by' command will separate the sums based on the company factor when you have more than 1 company with complete data) 
aggregate(data.complete[,3:6], by=list(data.complete$company), sum) 
aggregate(data.complete[,3:6], by=list(data.complete$company), mean)