ggplot2でgeom_barの 'パーセント'形式を変更する

Question

geom_barを使って、sum（.. counts ..）で除算するのではなく、正規化係数で除算するようにしようとしています。

n=200 
df = data.frame(let = letters[sample(1:26,n,replace=TRUE)], 
    cat=letters[sample(1:2,n,replace=TRUE)], 
    norm = as.integer(1+round(runif(n)*10)) 

d <- ggplot(df, aes(let,fill=cat)) + 
    geom_bar(aes(y = ((..count..)/sum(..count..))),position='dodge') 

代わりに、私は正規化係数で除算したいと思います：

d <- ggplot(df, aes(let,fill=cat)) + 
    geom_bar(aes(y = ((..count..)/norm)),position='dodge') 

しかし、これはエラーを生成します。

> d 
Error in (count)/norm : non-numeric argument to binary operator 

これは単なるおもちゃの一例です。

> ggplot(droplevels(dfR[keep,]), aes(x=loc_breakBinned,fill=amalgamated_group)) + 
    geom_bar(aes(y = ((..count..)/subject_count_ASDvTD)),position='dodge') 
Error in eval(expr, envir, enclos) : 
    object 'subject_count_ASDvTD' not found 

ggplot2はsubject_count_ASDvTDは、DFRの一部ではないと主張しているが、迅速なルックスは、それが明確であることを示しています：

> str(dfR[keep,c('amalgamated_group','loc_breakBinned','subject_count_ASDvTD')]) 
'data.frame': 3694 obs. of 3 variables: 
$ amalgamated_group : Factor w/ 6 levels "ASD","CONTRAST",..: 1 1 1 1 1 1 1 1 1 1 ... 
$ loc_breakBinned  : Factor w/ 18 levels "pos:(10.7,12.8]_totExonD:(-0.00822,1.64]",..: 14 1 8 8 14 4 8 13 8 14 ... 
$ subject_count_ASDvTD: int 213 213 213 213 213 213 213 213 213 213 ... 

は何である私の実際のコードは、私がまだ複製することができなかったさまざまなエラーが発生しましたここにいる？なぜggplotはsubject_count_ASDvTDと表示されますか？

注：溶液がAES内で変数を定義である

ggplot(droplevels(dfR[keep,]), aes(x=loc_breakBinned,fill=amalgamated_group,y = ((..count..)/subject_count_ASDvTD))) + 
    geom_bar(position='dodge') 

Answer 1

から同じエラーarrises。私はそれを整理するための@aosmithに感謝します。

d <- ggplot(df, aes(let,fill=cat,norm=norm)) + 
    geom_bar(aes(y = ((..count..)/norm)),position='dodge') 

そして、もっと複雑な実際のコード：上記のコードの修正されたバージョンが下に見つけることができます `重みを使用して

ggplot(droplevels(dfR[keep,]), aes(subject_count=subject_count_ASDvTD,x=loc_breakBinned,fill=amalgamated_group,y = ((..count..)/subject_count))) + 
    geom_bar(position='dodge')