2ファクタヒストグラム解析

Question

私はこの問題に対する答えを探していましたが、回答を見つけることができませんでした。

ここに問題があります：フローレート1（CH_SONAR）、流量2（CH_SONAR_2T）、密度（CH_DENSITY）、および2つの流量のパーセント差（per_diff）の変数を持つdata frameがあります。私は、流速1の5レベル係数と密度の5レベル係数を作成しました。

f.factor <- cut(p.pipeline$CH_SONAR_2T, 5, labels = c('Very Low','Low', 'Medium', 'High', 'Very High')) 

d.factor <- cut(p.pipeline$CH_DENSITY, 5, labels = c('Water', 'Very Sparce', 'Sparce', 'Dense', 'Very Dense')) 

私はフィル変数として各因子を使用してggplot2使用して両方をプロットしました：

qplot(per_diff, data = p.pipeline, geom = "histogram", binwidth = 1, xlim = c(-5, 15), fill = f.factor) 

qplot(per_diff, data = p.pipeline, geom = "histogram", binwidth = 1, xlim = c(-5, 15), fill = d.factor) 

今私は、私は流量と密度との関係を見ることができますggplotとのヒストグラムを作成したいです（水と非常に低い、非常に疎と低、疎と低など、すべての25の可能な組み合わせ）。私は新しい要素の作成、データフレームへのd.factorとf.factorのバインド、2つの要素のバインドなどを行い、結果は得られませんでした。どうやってこれにアプローチするのですか？

私は作成したヒストグラムを含めてみましたが、それを行うには十分な評判はないと思います。

ありがとうございました！

Answer 1

fill=interaction(f.factor, d.factor)を使用できます。 「Low.Very Sparce」のように、凡例に表示されない組み合わせは、これらのカテゴリの両方に属する観察がないことを示します。

あなたは隣接するレベルの色がより多くの傑出したしたい場合は、あなたが行うことができます一つのことは、それがホイールに反対だと、他のすべての色を入れ替え、その後、rainbowで色を生成します。

col <- rainbow(length(levels(interaction(f.factor, d.factor))), v=.75, s=.5) 
col.index <- ifelse(seq(col) %% 2, 
        seq(col), 
        (seq(ceiling(length(col)/2), length.out=length(col)) %% length(col)) + 1) 
mixed <- col[col.index] 
qplot(per_diff, data = p.pipeline, 
     geom = "histogram", binwidth = 1, xlim = c(-5, 15), 
     fill = interaction(f.factor, d.factor)) + scale_fill_manual(values=mixed)