timeline et grenouille

.Rhistory

@@ -0,0 +1,11 @@
+donnees_mnbaq <- read.csv(file="/home/francois/git/mnbaq_collections_septembre_2015.csv",header=TRUE,sep=";")
+donnees_oeuvre <- donnees_mnbaq[donnees_mnbaq$Numéro.d.inventaire %in% c("1989.295.08","CP.1983.107","1966.167"),
+print(xtable(donnees_oeuvre),type="html")
+)
+donnees_mnbaq <- read.csv(file="/home/francois/git/mnbaq_collections_septembre_2015.csv",header=TRUE,sep=";")
+donnees_oeuvre <- donnees_mnbaq[donnees_mnbaq$Numéro.d.inventaire %in% c("1989.295.08","CP.1983.107","1966.167"),
+c("Artiste","Titre","Date.de.production","Département","Technique.d.expression")])
+donnees_mnbaq$Numéro.d.inventaire %in% c("1989.295.08","CP.1983.107","1966.167")
+donnees_oeuvre <- donnees_mnbaq[donnees_mnbaq$Numéro.d.inventaire %in% c("1989.295.08","CP.1983.107","1966.167"),
+c("Artiste","Titre","Date.de.production","Département","Technique.d.expression")]
+print(xtable(donnees_oeuvre),type="html")

Timeline/.Rhistory

@@ -0,0 +1,512 @@
+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")

extraction_donnees.R

@@ -1,5 +0,0 @@
-donnees_mnbaq <- read.csv(file="/home/francois/git/decouverte/mnbaq_collections_septembre_2015.csv",header=TRUE,sep=";")
-
-donnees_oeuvre <- donnees_mnbaq[donnees_mnbaq$Numéro.d.inventaire == "1989.295.08",c("Artiste","Titre","Date.de.production")]
-
-xtable(as.data.frame)

extraction_donnees.Rmd

@@ -8,7 +8,8 @@ require("xtable")
 ```{r}
 donnees_mnbaq <- read.csv(file="/home/francois/git/mnbaq_collections_septembre_2015.csv",header=TRUE,sep=";")
 
-donnees_oeuvre <- donnees_mnbaq[donnees_mnbaq$Numéro.d.inventaire == "1989.295.08",c("Artiste","Titre","Date.de.production","Collection")]
+donnees_oeuvre <- donnees_mnbaq[donnees_mnbaq$Numéro.d.inventaire %in% c("1989.295.08","CP.1983.107","1966.167"),
+                                c("Artiste","Titre","Date.de.production","Département","Technique.d.expression")]
 ```
 
 ## Présentation des données
@@ -18,4 +19,6 @@ print(xtable(donnees_oeuvre),type="html")
 
 ## Extraction de l'image
 
-![oeuvre](https://d2bkax9t3zigfp.cloudfront.net/attachments/000/122/513/normal/bc275d82a7a748296ebccb69af5844c3?v=1)
+![oeuvre](https://d2bkax9t3zigfp.cloudfront.net/attachments/000/122/513/normal/bc275d82a7a748296ebccb69af5844c3?v=1)
+![oeuvre](https://d2bkax9t3zigfp.cloudfront.net/attachments/000/092/121/normal/83f808ae6d3be2c5218510cd412f5651?v=1)
+![oeuvre](https://d2bkax9t3zigfp.cloudfront.net/attachments/000/114/040/normal/1bc365039b6915b3c615d402e7df91d6?v=1)