2015-09-26 19:25:14 +00:00
|
|
|
library(ggplot2)
|
2015-09-26 20:05:40 +00:00
|
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
2015-09-26 19:25:14 +00:00
|
|
|
|
2015-09-26 20:05:40 +00:00
|
|
|
timeset<-data.frame(year=c(1800,1900,1950,2015),
|
2015-09-26 19:25:14 +00:00
|
|
|
text=c('Art ancien','Art moderne','Art contemporain','Aujourd\'hui'),
|
|
|
|
|
y=0)
|
|
|
|
|
|
|
|
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
|
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
2015-09-26 20:05:40 +00:00
|
|
|
geom_text(aes(label=text),size=5,vjust=1.5, fontface=3) +
|
2015-09-26 19:25:14 +00:00
|
|
|
geom_point(aes(y=y)) +
|
|
|
|
|
scale_y_continuous(limits=c(-.25,.25)) +
|
2015-09-26 20:05:40 +00:00
|
|
|
scale_x_continuous(limits=c(1775,2025)) +
|
|
|
|
|
geom_hline(y=0,size=1,color='dark green') +
|
|
|
|
|
theme(axis.text.y = element_blank()) + ylab("")+xlab("")
|
2015-09-26 19:25:14 +00:00
|
|
|
|
2015-09-26 20:05:40 +00:00
|
|
|
|
|
|
|
|
|
|
|
|
|
png(height=200, width=800)
|
2015-09-26 19:25:14 +00:00
|
|
|
plot
|
|
|
|
|
dev.off()
|
