スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

geom area, geom line

timeseries2.dat

Date Distance Bugs
2011-03-31 0 Ant
2011-04-01 -45 Ant
2011-04-08 -45 Ant
2011-04-11 0 Ant

2011-04-11 0 Butterfly
2011-04-18 45 Butterfly
2011-06-23 45 Butterfly
2011-06-30 0 Butterfly

2011-06-30 0 Ant
2011-07-07 -45 Ant
2011-10-27 -45 Ant
2011-11-03 0 Ant

2011-11-03 0 Centipede
2011-11-10 70 Centipede
2012-05-05 70 Centipede
2012-05-12 0 Centipede

2012-05-12 0 Ant
2012-05-19 -45 Ant
2012-09-16 -45 Ant
2012-09-23 0 Ant

2012-09-23 0 Dragonfly
2012-09-30 -25 Dragonfly
2012-11-23 -25 Dragonfly
2012-11-30 0 Dragonfly

2012-11-30 0 Ant
2012-12-07 -45 Ant
2013-01-30 -45 Ant
2013-02-06 0 Ant

2013-02-06 0 Longhorn
2013-02-14 85 Longhorn
2013-05-24 85 Longhorn



data <- read.table("timeseries2.dat",header=T)
data[,1] <- as.Date(data[,1])
pdf("ggplot2test-01.pdf", height=3, width=8, pointsize=14)
ggplot(data,aes(x=Date,y=Distance,group=Bugs,fill=Bugs)) +
geom_area(alpha=0.6,colour="black") +
geom_line(aes(x=Date,y=Distance)) + ylab("Distance")
dev.off()

ggplot2test-01.png

 
スポンサーサイト
Profile

zoa

Author:zoa
Metropolis (1927)

Calendar
04 | 2013/05 | 06
- - - 1 2 3 4
5 6 7 8 9 10 11
12 13 14 15 16 17 18
19 20 21 22 23 24 25
26 27 28 29 30 31 -
Labels
Admin
Previous Posts
Recent Comments
Recent Trackback
Archive
このページのトップへ
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。