partage/hackathon-jdc-2105-decouverte
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

ajout images crop

Browse source
This commit is contained in:
François Pelletier 2015-09-26 16:05:40 -04:00
parent 9111da909a
commit 358dd91c04
13 changed files with 324 additions and 37 deletions
Download patch file Download diff file Expand all files Collapse all files

16
Timeline/timeline.R
View file

@ -1,19 +1,21 @@
library(ggplot2)
setwd("/home/francois/git/decouverte/Timeline")
timeset<-data.frame(year=c(1600,1900,1950,2015),
timeset<-data.frame(year=c(1800,1900,1950,2015),
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)) +
geom_text(aes(label=text),size=2.5,vjust=-1) +
geom_text(aes(label=text),size=5,vjust=1.5, fontface=3) +
geom_point(aes(y=y)) +
scale_y_continuous(limits=c(-.25,.25)) +
geom_hline(y=0,size=1,color='purple') +
theme(axis.text.y = element_blank()) +
ylab('') +
xlab('')
scale_x_continuous(limits=c(1775,2025)) +
geom_hline(y=0,size=1,color='dark green') +
theme(axis.text.y = element_blank()) + ylab("")+xlab("")
png(height=100)
png(height=200, width=800)
plot
dev.off()