timeline et grenouille
This commit is contained in:
parent
54ad03e8c2
commit
2fc0a39f1f
12 changed files with 567 additions and 11 deletions
11
.Rhistory
Normal file
11
.Rhistory
Normal file
|
@ -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")
|
Binary file not shown.
BIN
Catégorie Portrait/francoismod3.xcf
Normal file
BIN
Catégorie Portrait/francoismod3.xcf
Normal file
Binary file not shown.
BIN
Catégorie Portrait/galerie/francoismod1.jpeg
Normal file
BIN
Catégorie Portrait/galerie/francoismod1.jpeg
Normal file
Binary file not shown.
After Width: | Height: | Size: 154 KiB |
BIN
Catégorie Portrait/galerie/francoismod2.jpeg
Normal file
BIN
Catégorie Portrait/galerie/francoismod2.jpeg
Normal file
Binary file not shown.
After Width: | Height: | Size: 123 KiB |
BIN
Catégorie Portrait/galerie/francoismod3.jpeg
Normal file
BIN
Catégorie Portrait/galerie/francoismod3.jpeg
Normal file
Binary file not shown.
After Width: | Height: | Size: 154 KiB |
BIN
Catégorie Portrait/grenouille bleue.xcf
Normal file
BIN
Catégorie Portrait/grenouille bleue.xcf
Normal file
Binary file not shown.
512
Timeline/.Rhistory
Normal file
512
Timeline/.Rhistory
Normal file
|
@ -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")
|
|
@ -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)
|
|
@ -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)
|
File diff suppressed because one or more lines are too long
BIN
timeline.xcf
BIN
timeline.xcf
Binary file not shown.
Loading…
Reference in a new issue