512 lines
16 KiB
Text
512 lines
16 KiB
Text
scale_y_continuous(limits=c(-.25,.25)) +
|
|
geom_hline(y=0,size=1,color='purple') +
|
|
theme(axis.text.y = element_blank()) +
|
|
element_text(size=14)+
|
|
ylab('') +
|
|
xlab('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=150, width=600)
|
|
plot
|
|
dev.off()
|
|
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()) +
|
|
element_text(size=14)
|
|
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()) +
|
|
element_text(size=14)+
|
|
ylab('') +
|
|
xlab('')
|
|
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()) +
|
|
element_text(size=14) +
|
|
ylab('') +
|
|
xlab('')
|
|
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())
|
|
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()) +
|
|
element_text(size=14)
|
|
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(), text=element_text(size=14)) +
|
|
ylab('') +
|
|
xlab('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=150, width=600)
|
|
plot
|
|
dev.off()
|
|
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('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=150, width=600)
|
|
plot
|
|
dev.off()
|
|
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('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=150, width=600)
|
|
plot
|
|
dev.off()
|
|
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('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=150, width=600)
|
|
plot
|
|
dev.off()
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
pdf(height=150, width=600)
|
|
plot
|
|
dev.off()
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
pdf(height=150, width=600)
|
|
plot
|
|
dev.off()
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=600, width=2400)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=10,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('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=600, width=2400)
|
|
plot
|
|
dev.off()
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=4,vjust=0) +
|
|
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('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=4,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('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=4,vjust=1.5) +
|
|
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('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=5,vjust=1.5) +
|
|
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('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=5,vjust=c(1.5,-1.5,1.5,-1.5)) +
|
|
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('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=5,vjust=c(1.5,-1.5,1.5,-1.5)) +
|
|
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=200, width=800)
|
|
plot
|
|
dev.off()
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=5,vjust=c(1.5,-1.5,1.5,-1.5)) +
|
|
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('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=5,vjust=0) +
|
|
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('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=4,vjust=0) +
|
|
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('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
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=4,vjust=0) +
|
|
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('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=4,vjust=0) +
|
|
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('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
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=4,vjust=0) +
|
|
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('')
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
library(ggplot2)
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
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=4,vjust=0) +
|
|
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=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=4,vjust=0) +
|
|
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())
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=4,vjust=0) +
|
|
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())
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=4,vjust=0) +
|
|
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())
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
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=4,vjust=0) +
|
|
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())
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=4,vjust=0) +
|
|
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=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=4,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=200, width=800)
|
|
plot
|
|
dev.off()
|
|
library(ggplot2)
|
|
setwd("/home/francois/git/decouverte/Timeline")
|
|
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=4,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=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=4,vjust=1.5) +
|
|
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=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=4,vjust=1.5) +
|
|
geom_point(aes(y=y)) +
|
|
scale_y_continuous(limits=c(-.25,.25)) +
|
|
geom_hline(y=0,size=1,color='green') +
|
|
theme(axis.text.y = element_blank()) + ylab("")+xlab("")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=5,vjust=1.5) +
|
|
geom_point(aes(y=y)) +
|
|
scale_y_continuous(limits=c(-.25,.25)) +
|
|
geom_hline(y=0,size=1,color='green') +
|
|
theme(axis.text.y = element_blank()) + ylab("")+xlab("")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=5,vjust=1.5) +
|
|
geom_point(aes(y=y)) +
|
|
scale_y_continuous(limits=c(-.25,.25)) +
|
|
geom_hline(y=0,size=1,color='black') +
|
|
theme(axis.text.y = element_blank()) + ylab("")+xlab("")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=5,vjust=1.5) +
|
|
geom_point(aes(y=y)) +
|
|
scale_y_continuous(limits=c(-.25,.25)) +
|
|
scale_x_continuous(limits=c(1775,2025)) +
|
|
geom_hline(y=0,size=1,color='black') +
|
|
theme(axis.text.y = element_blank()) + ylab("")+xlab("")
|
|
png(height=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=5,vjust=1.5) +
|
|
geom_point(aes(y=y)) +
|
|
scale_y_continuous(limits=c(-.25,.25)) +
|
|
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=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=5,vjust=1.5, fontface="Arial") +
|
|
geom_point(aes(y=y)) +
|
|
scale_y_continuous(limits=c(-.25,.25)) +
|
|
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=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=5,vjust=1.5, fontface="arial") +
|
|
geom_point(aes(y=y)) +
|
|
scale_y_continuous(limits=c(-.25,.25)) +
|
|
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=200, width=800)
|
|
plot
|
|
dev.off()
|
|
plot <- ggplot(timeset,aes(x=year,y=0)) +
|
|
geom_segment(aes(y=0,yend=y,xend=year)) +
|
|
geom_text(aes(label=text),size=5,vjust=1.5, fontface=3) +
|
|
geom_point(aes(y=y)) +
|
|
scale_y_continuous(limits=c(-.25,.25)) +
|
|
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=200, width=800)
|
|
plot
|
|
dev.off()
|
|
read.csv("/home/francois/git/decouverte/mnbaq_collections_septembre_2015.csv")
|
|
read.csv("/home/francois/git/decouverte/mnbaq_collections_septembre_2015.csv",header=TRUE)
|
|
read.csv("/home/francois/git/decouverte/mnbaq_collections_septembre_2015.csv",header=TRUE)
|
|
read.csv("/home/francois/git/decouverte/mnbaq_collections_septembre_2015.csv",header=TRUE)
|
|
read.csv(file="/home/francois/git/decouverte/mnbaq_collections_septembre_2015.csv",header=TRUE)
|
|
read.csv(file="/home/francois/git/decouverte/mnbaq_collections_septembre_2015.csv",header=TRUE,sep=";")
|
|
donnees_mnbaq <- read.csv(file="/home/francois/git/decouverte/mnbaq_collections_septembre_2015.csv",header=TRUE,sep=";")
|
|
donnees_mnbaq[donnees_mnbaq$Artiste = "Lemieux, Jean-Paul"]
|
|
donnees_mnbaq[donnees_mnbaq$Artiste == "Lemieux, Jean-Paul"]
|
|
donnees_mnbaq[donnees_mnbaq$Artiste == "Éditions internationales Alain Stanké ltée
|
|
Lemieux, Jean Paul"]
|
|
donnees_mnbaq[donnees_mnbaq$Numéro.d.inventaire == "1989.295.08"]
|
|
donnees_mnbaq$Numéro.d.inventaire == "1989.295.08"
|
|
donnees_mnbaq[donnees_mnbaq$Numéro.d.inventaire == "1989.295.08",]
|
|
donnees_oeuvre <- donnees_mnbaq[donnees_mnbaq$Numéro.d.inventaire == "1989.295.08",]
|
|
View(donnees_oeuvre)
|
|
donnees_oeuvre <- donnees_mnbaq[donnees_mnbaq$Numéro.d.inventaire == "1989.295.08",c("Artiste","Titre","Date.de.production")]
|
|
View(donnees_oeuvre)
|
|
require("xtable")
|
|
print(xtable(as.data.frame),type="html")
|
|
print(xtable(donnees_oeuvre),type="html")
|