timeline et grenouille

This commit is contained in:
François Pelletier 2015-09-26 15:25:14 -04:00
parent 18d416e84d
commit 4988dfe184
4 changed files with 20 additions and 0 deletions

View file

@ -0,0 +1 @@
François Pelletier,francois,francois-K53SV,26.09.2015 13:48,file:///home/francois/.config/libreoffice/4;

BIN
Timeline/Rplot001.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 8.2 KiB

19
Timeline/timeline.R Normal file
View file

@ -0,0 +1,19 @@
library(ggplot2)
timeset<-data.frame(year=c(1600,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_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('')
png(height=100)
plot
dev.off()

BIN
frog-152633_640.png Normal file

Binary file not shown.

After

Width:  |  Height:  |  Size: 242 KiB