0

私はRが初めてで、本当に助けが必要です。

これらの 3 つのデータ フレームがあります。

> Botcv
        Date Average 
1 2014-09-01     4.0 
2 2014-10-02     5.5 
> Botc1
        Date Average 
1 2014-10-15   2.125 
2 2014-11-12   1.000
3 2014-12-11   0.500
> Botc2
        Date Average 
1 2014-10-15   3.375 
2 2014-11-12   1.750
3 2014-12-11   0.625

これらのデータ フレームを使用して、このプロットを作成します

plot(Botcv$Date, Botcv$Average, type='p', pch=4, col="red", xlab='Date', ylab='', main=expression(italic('Botrylloides sp.')), xlim=c(as.Date("2014-09-01"),as.Date("2014-12-11")), ylim=c(0,10))

points(Botc1$Date, Botc1$Average, type='p', pch=19, xlab='Date', xlim=c(as.Date("2014-09-01"),as.Date("2014-12-11")), ylim=c(0,10))

points(Botc2$Date, Botc2$Average, type='p', pch=2, col="blue", xlab='Date', ylab='Average num ind.', xlim=c(as.Date("2014-09-01"),as.Date("2014-12-11")), ylim=c(0,10))
axis(4)
mtext("Average % cover",side=2,line=3, col="red")
mtext("Average num. ind.",side=4,line=3)

このプロットを、個々の点だけでなく積み上げ棒グラフとして作成したいと思います。どんな助けでも大歓迎です、ありがとう！

4

1 に答える 1

0

これはあなたが望むものに沿っていますか？ここにあなたのデータがあります：

dput(df)
structure(list(id = structure(c(1L, 1L, 1L, 2L, 2L, 2L, 3L, 3L, 
3L), .Label = c("cv", "c1", "c2"), class = "factor"), Date = structure(c(1L, 
2L, NA, 3L, 4L, 5L, 3L, 4L, 5L), .Label = c("2014-09-01", "2014-10-02", 
"2014-10-15", "2014-11-12", "2014-12-11"), class = "factor"), 
    Average = c(4, 5.5, NA, 2.125, 1, 0.5, 3.375, 1.75, 0.625
    )), .Names = c("id", "Date", "Average"), row.names = c(NA, 
9L), class = "data.frame")

ベース R グラフィックスの代わりに使用ggplot2する、飾り気のない積み上げ棒グラフを次に示しますが、まばらなデータを考えると、積み上げるものはあまりありません。

ggplot(df, aes(x=Date, y = Average)) + geom_bar(stat = "identity", position = "stack")

ここに画像の説明を入力

編集 ccapizzano は良い点です。彼のコードの結果は次のとおりです。

ここに画像の説明を入力

于 2015-04-19T11:59:29.413 に答える