data.tableを使用してパーセントとその他の関数を計算する

Question

集計関数とパーセント関数を列に適用したい。集計（Calculating multiple aggregations with lapply(.SD, ...) in data.table R package）とパーセンテージ（How to obtain percentages per value for the keys in R using data.table?とUse data.table to calculate the percentage of occurrence depending on the category in another column）について議論するスレッドが見つかりましたが、両方ではありません。

私はdata.tableに基づいています。 dplyrは実際のデータセットでは機能しません。ここで

は、サンプル・データを生成するコードです：

set.seed(10) 
    IData <- data.frame(let = sample(x = LETTERS, size = 10000, replace=TRUE), numbers1 = sample(x = c(1:20000),size = 10000), numbers2 = sample(x = c(1:20000),size = 10000)) 
    IData$let<-as.character(IData$let) 

    data.table::setDT(IData) 

ここで私はhead(output)を実行した場合の出力例（ヘッダ） dplyr

Output <- IData %>% 
    dplyr::group_by(let) %>% 
    dplyr::summarise(numbers1.mean = as.double(mean(numbers1)),numbers1.median = as.double(median(numbers1)),numbers2.mean=as.double(mean(numbers2)),sum.numbers1.n = sum(numbers1)) %>% 
    dplyr::ungroup() %>% 
    dplyr::mutate(perc.numbers1 = sum.numbers1.n/sum(sum.numbers1.n)) %>% 
    dplyr::select(numbers1.mean,numbers1.median,numbers2.mean,perc.numbers1) 

を使用して出力を生成するコードは私が、です次のようになります。

let numbers1.mean numbers1.median numbers2.mean perc.numbers1 
    <chr>   <dbl>   <dbl>   <dbl>   <dbl> 
    N  10320.951   10473.0  9374.435 0.03567927 
    H  9683.590   9256.5  9328.035 0.03648391 
    L  10223.322   10226.0  9806.210 0.04005400 
    S  9922.486   9618.0  10233.849 0.03678742 
    C  9592.620   9226.0  9791.221 0.03517997 
    F  10323.867   10382.0  10036.561 0.03962035 

は、ここで私が使用してみました何data.table（失敗した）私は2つの質問がある

IData[, as.list(unlist(lapply(.SD, function(x) list(mean=mean(x),median=median(x),sum=sum(x))))), by=let, .SDcols=c("numbers1","numbers2")] [,.(Perc = numbers1.sum/sum(numbers1.sum)),by=let] 

：

A）私はこのdata.tableを使用して解決できますか？

b）私は上記スレッドがprop.tableを使用しているのを見ました。誰か私にこの機能の使い方を教えてもらえますか？

私は心から敬意を表します。

Answer 1

我々はdata.table

ばかな質問して申し訳ありません

res <- IData[, .(numbers1.mean = mean(numbers1), 
      numbers1.median = median(numbers1), 
      numbers2.mean=mean(numbers2), 
      sum.numbers1.n = sum(numbers1)), let 
      ][, perc.numbers1 := sum.numbers1.n/sum(sum.numbers1.n) 
      ][, c("let", "numbers1.mean", "numbers1.median", 
         "numbers2.mean", "perc.numbers1"), with = FALSE] 

head(res) 
# let numbers1.mean numbers1.median numbers2.mean perc.numbers1 
#1: N  10320.951   10473.0  9374.435 0.03567927 
#2: H  9683.590   9256.5  9328.035 0.03648391 
#3: L  10223.322   10226.0  9806.210 0.04005400 
#4: S  9922.486   9618.0  10233.849 0.03678742 
#5: C  9592.620   9226.0  9791.221 0.03517997 
#6: F  10323.867   10382.0  10036.561 0.03962035