Exploring Art Data 10

Let’s make a word clouds for all the artists:

## install.packages('snippets',,'http://www.rforge.net/')
library(snippets)
## Create a word cloud for all artists
freqAll<-termFreq(PlainTextDocument(paste(artists, collapse=" "),
language="en"),
control=list(removePunctuation=TRUE, removeNumbers=TRUE,
stopwords=TRUE, minDocFreq=100))
cloud(freqAll, col = col.br(freqAll, fit=TRUE))

vasari-wordcloud-all.pngAnd here’s a tag cloud for just one artist (Giovanni Cimabue) to compare it with:

## Create a word cloud for one artist
freq<-termFreq(PlainTextDocument(artists[1], language="en"),
control=list(removePunctuation=TRUE, removeNumbers=TRUE,
stopwords=TRUE, minDocFreq=3))
cloud(freq, col = col.br(freq, fit=TRUE))

vasari-wordcloud-giovanni-cimabue.png

Posted in Art History, Art Open Data