Exploring Art Data 9

Now let's see which artists are described most similarly by Vasari:

## Dissimilarity

dis<-dissimilarity(dtm, method="cosine")

## The most similar artists for each artist, in order of similarity

similarityMin<-0.2
mostSimilarArtists<-apply(dis, 1,
                          function(row){
                            sorted<-sort(row)
                            ordered<-order(row)
                            ## 0.0 == same artist
                            ordered[sorted > 0.0 & sorted < similarityMin]
                          })

for(doc in 1:length(mostSimilarArtists)){
  mostSimilar<-unlist(mostSimilarArtists[doc])
  if(length(mostSimilar) > 0){
    count<-min(length(mostSimilar), 5)
    similar<-paste(artists.names[mostSimilar[1:count]], collapse=", ")
  }else{
    similar<-"None"
  }
  cat(artists.names[[doc]], ": ", similar, "\n\n")
}

Which gives us (truncated...):

Giovanni Cimabue :  Giotto, Masaccio, Agnolo Gaddi 

Arnolfo Di Lapo :  Niccola And Giovanni Of Pisa 

Niccola And Giovanni Of Pisa :  Arnolfo Di Lapo, Agostino And Agnolo Of Siena 

Andrea Tafi :  None 

Gaddo Gaddi :  None 

Margaritone :  None 

Giotto :  Buonamico Buffalmacco, Pietro Perugino, Giovanni Cimabue, Raffaello Da Urbino, Taddeo Gaddi 

...

And let's cluster the artists together using k-means clustering:

## Clusters of similar artists

clusterCount<-10
clusters<-kmeans(dtm, clusterCount)
clusters.artists<-lapply(1:clusterCount,
                         function(cluster){
                           artists.names[clusters$cluster == cluster]})

for(cluster in 1:clusterCount){
  cat("Cluster", cluster, ":",
      paste(unlist(clusters.artists[cluster]), collapse=", "),
      "\n\n")
}

Which gives us:

Cluster 1 : Filippo Brunelleschi, Torrigiano, Antonio Da San Gallo The Younger, Niccolò Called Tribolo, Simone Mosca, Fra Giovanni Agnolo Montorsoli 

Cluster 2 : Domenico Puligo, Francesco Mazzuoli, Niccolò Soggi, Giovanni Antonio Bazzi Called Il Sodoma 

Cluster 3 : Giotto, Lorenzo Di Bicci, Ercole Ferrarese, Baldassarre Peruzzi, Madonna Properzia De Rossi, Girolamo Da Treviso, Il Rosso, Franciabigio, Giulio Romano, Fra Sebastiano Viniziano Del Piombo, Domenico Beccafumi Of Siena, Cristofano Gherardi Called Doceno Of Borgo San Sepolcro, Michele San Michele, Giovanni Da Udine, Battista Franco, Daniello Ricciarelli 

Cluster 4 : Baccio Bandinelli 

Cluster 5 : Andrea Tafi, Gaddo Gaddi, Margaritone, Stefano Painter Of Florence And Of Ugolino Sanese, Pietro Laurati, Ambrogio Lorenzetti, Pietro Cavallini, Tommaso Called Giottino, Giovanni Dal Ponte, Agnolo Gaddi, Berna, Duccio, Antonio Viniziano, Jacopo Di Casentino, Gherardo Starnina, Lippo, Don Lorenzo Monaco, Taddeo Bartoli, Niccolò Aretino, Dello, Nanni Dantonio Di Banco, Masolino Da Panicale, Giuliano Da Maiano, Piero Della Francesca, Leon Batista Alberti, Lazzaro Vasari, Antonello Da Messina, Alesso Baldovinetti, Vellano Da Padova, Benozzo Gozzoli15, Galasso Ferrarese17, Desiderio Da Settignano, Mino Da Fiesole, Lorenzo Costa, Benedetto Da Maiano, Jacopo Called Lindaco, Giorgione Da Castelfranco, Antonio Da Correggio, Mariotto Albertinelli, Raffaellino Del Garbo, Simone Called Il Cronaca, Marco Calavrese, Francesco Granacci Il Granaccio, Giuliano Bugiardini 

Cluster 6 : Baccio D Agnolo, Perino Del Vaga, Bastiano Da San Gallo Called Aristotile, Francesco Salviati, Taddeo Zucchero 

Cluster 7 : Pietro Perugino, Raffaello Da Urbino, Andrea Del Sarto, Jacopo Da Pontormo 

Cluster 8 : Arnolfo Di Lapo, Niccola And Giovanni Of Pisa, Agostino And Agnolo Of Siena, Andrea Pisano, Jacopo Della Quercia, Luca Della Robbia, Lorenzo Ghiberti, Donato, Michelozzo Michelozzi, Andrea Verrocchio, Bramante Da Urbino, Andrea Dal Monte Sansovino, Benedetto Da Rovezzano, Pierino Piero Da Vinci, Giovan Francesco Rustici 

Cluster 9 : Michelagnolo Buonarroti 

Cluster 10 : Giovanni Cimabue, Buonamico Buffalmacco, Simone Sanese, Taddeo Gaddi, Andrea Di Cione Orcagna, Spinello Aretino, Paolo Uccello, Parri Spinelli, Masaccio, Fra Filippo Lippi, Cosimo Rosselli, Sandro Botticelli, Andrea Mantegna, Filippo Lippi Called Filippino, Bernardino Pinturicchio, Francesco Francia, Luca Signorelli Of Cortona, Leonardo Da Vinci10, Piero Di Cosimo, Fra Bartolommeo Di San Marco, Guglielmo Da Marcilla, Lorenzo Di Credi, Giovanni Antonio Sogliani, Giovanni Antonio Lappoli

Michaelangelo is clearly singular. ;-)