animals sorted by brain size

brains.R

require(ggplot2); data(msleep); attach(msleep)



animal.brains <- na.omit( data.frame( name,      round( brainwt / bodywt * 100, 1)       ))

names(list) <- c("animal", "how.brainy")




animal.brains[ order( -how.brainy, ) ]

#                         animal           how.brainy
#
# Thirteen-lined ground squirrel                  4.0
#                     Owl monkey                  3.2
#      Lesser short-tailed shrew                  2.8
#                Squirrel monkey                  2.7
#                        Macaque                  2.6
#                         Galago                  2.5
#               Little brown bat                  2.5
#                       Mole rat                  2.5
#                     Tree shrew                  2.4
#                          Human                  2.1
#                    House mouse                  1.8
#                Star-nosed mole                  1.7
#          Eastern american mole                  1.6
#     Greater short-tailed shrew                  1.5
#                     Chinchilla                  1.5
#                  Big brown bat                  1.3
#                     Arctic fox                  1.3
#                        Red fox                  1.2
#                   Patas monkey                  1.1
#                     Slow loris                  0.9
#                          Genet                  0.9
#                     Guinea pig                  0.8
#                   Domestic cat                  0.8
#                 Golden hamster                  0.8
#                     Chimpanzee                  0.8
#                     Cotton rat                  0.8
#                       Roe deer                  0.7
#      African giant pouched rat                  0.7
#                         Baboon                  0.7
#                      Phalanger                  0.7
#                     Musk shrew                  0.7
#                     Rock hyrax                  0.6
#                 Laboratory rat                  0.6
#         Arctic ground squirrel                  0.6
#            Short-nosed echidna                  0.6
#                            Dog                  0.5
#              European hedgehog                  0.5
#                     Gray hyrax                  0.5
#                         Rabbit                  0.5
#                     Tree hyrax                  0.4
#         North American Opossum                  0.4
#                      Gray seal                  0.4
#                Desert hedgehog                  0.4
#                           Goat                  0.3
#           Long-nosed armadillo                  0.3
#                          Sheep                  0.3
#                         Tenrec                  0.3
#                 Asian elephant                  0.2
#                         Donkey                  0.2
#                         Jaguar                  0.2
#                            Pig                  0.2
#                            Cow                  0.1
#                          Horse                  0.1
#               African elephant                  0.1
#                Giant armadillo                  0.1
#                Brazilian tapir                  0.1