3

このデータの棒グラフをプロットしようとしています

これまでに作成した R スクリプトは次のとおりです。

library(ggplot2)
f<-read.table("Coverage_test", sep="\t", header=TRUE)
f$Coverage <- factor(f$Coverage, levels=unique(as.character(f$Coverage)))
g = ggplot(data=f, aes(x=Coverage, y=Variable_counts, group=Form, fill=Type)) 
+ geom_bar(position="dodge", stat="identity", colour="black") 
+ facet_grid( ~ Sample_name, scales="free") + opts(title = "Coverage", axis.text.x = theme_text(angle = 90, hjust = 1, size = 8, colour = "grey50")) 
+ ylab("Number of variables") + scale_fill_hue() + scale_y_continuous(formatter="comma")
ggsave("Figure_test_coverage.pdf")

このコードの出力は次のとおりです。

ここに画像の説明を入力

私の質問は次のとおりです。グラフベースの 2 つの変数の動作の違いを示す方法はありますか。各 x 軸変数には 4 つのバーがあります。「タイプ」で色を塗りつぶすことを既に選択しました。これは、「タイプ」(1 つの変数) がデータ内でどのように動作するかを示しています。しかし、変数 'Form' がデータ内でどのように動作するかも示したいと思います。コード 'group=Form' でそれらをグループ化しましたが、実際のグラフでは (視覚的に) 区別できません。これは、1 つの変数に異なる色を表示し、他の変数に異なる線種 (実線と破線) を表示することにより、折れ線グラフで実行できます。以下のようなもの: ここに画像の説明を入力.

「フォーム」変数を異なる色で表示できるかどうか、または少なくともそれぞれのバーの下に名前を付けることができるかどうか、または可能なことを知りたいですか? どんな助けでも大歓迎です。

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

4

1 に答える 1

7

私はあなたがこのようなものが欲しいと思います：

ggplot(data=dat, aes(x=Coverage, 
                        y=Variable_counts, 
                         group=interaction(Form,Type), 
                         fill=interaction(Form,Type))) +
 geom_bar(position="dodge", stat="identity", colour="black")

ここに画像の説明を入力してください

編集

ここでは、棒グラフとsamrtの式の表記法のために格子状になります。楽しみのために、私はを使用してテーマのようなggplotを使用しlatticeExtraます。

library(latticeExtra)
barchart(Variable_counts~Coverage|Sample_name,
         groups=interaction(Type,Form),
         data=dat,stack=F,auto.key=list(columns = 4),
         par.settings = ggplot2like(),
         axis = axis.grid,
         between=list(x=2))

ここに画像の説明を入力してください

于 2013-02-25T03:53:54.997 に答える