2

これを実際よりもはるかに複雑にしていると思いますが、理解できませんでした。

基本的に、いくつかのカウント データ (ベクター カウント) から、日 (ベクター日) ごとに棒グラフを作成しました。プロット内で、処理 (ベクトル処理) によって色を因数分解しています。私がやりたいのは、バーの代わりにある種の曲線を重ねることです。私は、ピークが各御馳走のベクトル「カウント」のどこにあるかを示すことに最も興味があります。

これが、「データ」と名付けたデータフレーム内のベクトルです。

treat<-c(1,1,1,1,1,1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3,3,3,3,3,3,4,4,4,4,4,4,4,4,4,4,4,4,4)
counts<-c(9,12,11,5,3,2,0,2,0,0,1,1,0,10,4,7,6,1,4,1,1,0,0,0,0,0,12,5,15,3,4,2,0,0,1,0,0,0,0,4,6,11,7,7,4,1,1,0,0,0,0,0)
day<-c(1,2,3,4,5,6,7,8,9,10,11,12,13,1,2,3,4,5,6,7,8,9,10,11,12,13,1,2,3,4,5,6,7,8,9,10,11,12,13,1,2,3,4,5,6,7,8,9,10,11,12,13)

q=ggplot(data, aes(x=factor(day), y=counts, fill=factor(treat), color=factor(treat)))
q+geom_bar(stat= "identity", position=position_dodge(), width=.75)

ご覧いただきありがとうございます！

4

2 に答える 2

2

これはあなたが探しているものですか？

data = data.frame(treat, counts, day)

ggplot(data, aes(x=factor(day), y=counts, group=factor(treat), color=factor(treat))) +
  geom_line(lwd=1) +
  geom_point()

これらのデータの結果は少し読みにくいですが、実際のデータの方が見栄えが良いかもしれません。または、@Jaap で示されているように、ファセットを使用できます。

ここに画像の説明を入力

また、次のようにデータ作成を簡素化できます。

treat = rep(1:4, each=13)
day = rep(1:13, 4)
于 2015-10-04T19:48:12.847 に答える
2

countそれぞれの のピークを表示したい場合は、またはtreatでファセットを使用することを検討してください。例:facet_wrapfacet_gridfacet_wrap

ggplot(data, aes(x=factor(day), y=counts, color=factor(treat), group=factor(treat))) +
  geom_line() +
  facet_wrap(~treat)

これにより、次のプロットが得られます。

ここに画像の説明を入力

于 2015-10-04T19:49:56.797 に答える