cacao <- read.csv("flavors_of_cacao.csv")
str(cacao)## 'data.frame': 1795 obs. of 9 variables:
## $ Company...Maker.if.known. : chr "A. Morin" "A. Morin" "A. Morin" "A. Morin" ...
## $ Specific.Bean.Origin.or.Bar.Name: chr "Agua Grande" "Kpime" "Atsane" "Akata" ...
## $ REF : int 1876 1676 1676 1680 1704 1315 1315 1315 1319 1319 ...
## $ Review.Date : int 2016 2015 2015 2015 2015 2014 2014 2014 2014 2014 ...
## $ Cocoa.Percent : chr "63%" "70%" "70%" "70%" ...
## $ Company.Location : chr "France" "France" "France" "France" ...
## $ Rating : num 3.75 2.75 3 3.5 3.5 2.75 3.5 3.5 3.75 4 ...
## $ Bean.Type : chr " " " " " " " " ...
## $ Broad.Bean.Origin : chr "Sao Tome" "Togo" "Togo" "Togo" ...summary(cacao)## Company...Maker.if.known. Specific.Bean.Origin.or.Bar.Name REF
## Length:1795 Length:1795 Min. : 5
## Class :character Class :character 1st Qu.: 576
## Mode :character Mode :character Median :1069
## Mean :1036
## 3rd Qu.:1502
## Max. :1952
## Review.Date Cocoa.Percent Company.Location Rating
## Min. :2006 Length:1795 Length:1795 Min. :1.000
## 1st Qu.:2010 Class :character Class :character 1st Qu.:2.875
## Median :2013 Mode :character Mode :character Median :3.250
## Mean :2012 Mean :3.186
## 3rd Qu.:2015 3rd Qu.:3.500
## Max. :2017 Max. :5.000
## Bean.Type Broad.Bean.Origin
## Length:1795 Length:1795
## Class :character Class :character
## Mode :character Mode :character
##
##
## cacao1 <- read.delim("flavors_of_cacao.txt")
summary(cacao1)## Company...Maker.if.known. Specific.Bean.Origin.or.Bar.Name REF
## Length:1795 Length:1795 Min. : 5
## Class :character Class :character 1st Qu.: 576
## Mode :character Mode :character Median :1069
## Mean :1036
## 3rd Qu.:1502
## Max. :1952
## Review.Date Cocoa.Percent Company.Location Rating
## Min. :2006 Length:1795 Length:1795 Min. :1.000
## 1st Qu.:2010 Class :character Class :character 1st Qu.:2.875
## Median :2013 Mode :character Mode :character Median :3.250
## Mean :2012 Mean :3.186
## 3rd Qu.:2015 3rd Qu.:3.500
## Max. :2017 Max. :5.000
## Bean.Type Broad.Bean.Origin
## Length:1795 Length:1795
## Class :character Class :character
## Mode :character Mode :character
##
##
## head(cacao)## Company...Maker.if.known. Specific.Bean.Origin.or.Bar.Name REF Review.Date
## 1 A. Morin Agua Grande 1876 2016
## 2 A. Morin Kpime 1676 2015
## 3 A. Morin Atsane 1676 2015
## 4 A. Morin Akata 1680 2015
## 5 A. Morin Quilla 1704 2015
## 6 A. Morin Carenero 1315 2014
## Cocoa.Percent Company.Location Rating Bean.Type Broad.Bean.Origin
## 1 63% France 3.75 Sao Tome
## 2 70% France 2.75 Togo
## 3 70% France 3.00 Togo
## 4 70% France 3.50 Togo
## 5 70% France 3.50 Peru
## 6 70% France 2.75 Criollo Venezuelatail(cacao, 10)## Company...Maker.if.known. Specific.Bean.Origin.or.Bar.Name REF Review.Date
## 1786 Zotter Huiwani Coop 879 2012
## 1787 Zotter El Ceibo Coop 879 2012
## 1788 Zotter Santo Domingo 879 2012
## 1789 Zotter Kongo, Highlands 883 2012
## 1790 Zotter Indianer, Raw 883 2012
## 1791 Zotter Peru 647 2011
## 1792 Zotter Congo 749 2011
## 1793 Zotter Kerala State 749 2011
## 1794 Zotter Kerala State 781 2011
## 1795 Zotter Brazil, Mitzi Blue 486 2010
## Cocoa.Percent Company.Location Rating Bean.Type
## 1786 75% Austria 3.00 Criollo, Trinitario
## 1787 90% Austria 3.25
## 1788 70% Austria 3.75
## 1789 68% Austria 3.25 Forastero
## 1790 58% Austria 3.50
## 1791 70% Austria 3.75
## 1792 65% Austria 3.00 Forastero
## 1793 65% Austria 3.50 Forastero
## 1794 62% Austria 3.25
## 1795 65% Austria 3.00
## Broad.Bean.Origin
## 1786 Papua New Guinea
## 1787 Bolivia
## 1788 Dominican Republic
## 1789 Congo
## 1790
## 1791 Peru
## 1792 Congo
## 1793 India
## 1794 India
## 1795 Brazil#Contigency Table
sort(table(cacao$Company.Location), decreasing = TRUE)##
## U.S.A. France Canada U.K.
## 764 156 125 96
## Italy Ecuador Australia Belgium
## 63 54 49 40
## Switzerland Germany Austria Spain
## 38 35 26 25
## Colombia Hungary Venezuela Brazil
## 23 22 20 17
## Japan Madagascar New Zealand Peru
## 17 17 17 17
## Denmark Vietnam Guatemala Scotland
## 15 11 10 10
## Argentina Costa Rica Israel Poland
## 9 9 9 8
## Honduras Lithuania Domincan Republic Nicaragua
## 6 6 5 5
## South Korea Sweden Amsterdam Fiji
## 5 5 4 4
## Ireland Mexico Netherlands Puerto Rico
## 4 4 4 4
## Sao Tome Grenada Iceland Portugal
## 4 3 3 3
## Singapore South Africa Bolivia Chile
## 3 3 2 2
## Finland St. Lucia Czech Republic Eucador
## 2 2 1 1
## Ghana India Martinique Niacragua
## 1 1 1 1
## Philippines Russia Suriname Wales
## 1 1 1 1#Indexing
cacao[8,]## Company...Maker.if.known. Specific.Bean.Origin.or.Bar.Name REF Review.Date
## 8 A. Morin Sur del Lago 1315 2014
## Cocoa.Percent Company.Location Rating Bean.Type Broad.Bean.Origin
## 8 70% France 3.5 Criollo Venezuelacacao[8,9]## [1] "Venezuela"subset(cacao, (Rating>=4)
& (Company.Location %in% c("Italy", "U.S.A.")))## Company...Maker.if.known.
## 55 Amano
## 57 Amano
## 77 Amedei
## 78 Amedei
## 79 Amedei
## 84 Amedei
## 87 Amedei
## 88 Amedei
## 108 Arete
## 109 Arete
## 118 Arete
## 153 Bar Au Chocolat
## 257 Brasstown aka It's Chocolate
## 358 Castronovo
## 567 Domori
## 573 Domori
## 574 Domori
## 601 Durci
## 687 Fresco
## 690 Fresco
## 691 Fresco
## 701 Fresco
## 720 Fruition
## 800 Heirloom Cacao Preservation (Zokoko)
## 883 Just Good Chocolate
## 919 L.A. Burdick (Felchlin)
## 1274 Patric
## 1277 Patric
## 1278 Patric
## 1378 Ritual
## 1394 Rogue
## 1428 Scharffen Berger
## 1433 Scharffen Berger
## 1757 Woodblock
## Specific.Bean.Origin.or.Bar.Name REF Review.Date
## 55 Morobe 725 2011
## 57 Guayas 470 2010
## 77 Porcelana 111 2007
## 78 Nine 111 2007
## 79 Chuao 111 2007
## 84 Madagascar 123 2007
## 87 Toscano Black 40 2006
## 88 Toscano Black 75 2006
## 108 Coto Brus, Terciopelo 1908 2016
## 109 Phantom 1924 2016
## 118 Chuno 1598 2015
## 153 Maranon Canyon 1295 2014
## 257 Chuao 1355 2014
## 358 Maya Mtn, Batch 454, Heirloom 1724 2016
## 567 Porcelana 111 2007
## 573 Ecuador 192 2007
## 574 Ocumare 67, Puertofino 192 2007
## 601 Corona Arriba 1630 2015
## 687 Bellavista Coop, #225, LR, MC, CG Exclusive 1149 2013
## 690 Sambirano Valley, #216, MR, LC 915 2012
## 691 Markham Valley, #220, MR, MC 927 2012
## 701 Chuao, #217, DR, MC 745 2011
## 720 Coto Brus, Heirloom, Batch 1 1780 2016
## 800 Wild Beni, Lower Rio Beni, Tranquilidad, 2015 1744 2016
## 883 Peru 1375 2014
## 919 Brazil 891 2012
## 1274 Madagascar 331 2009
## 1277 Madagascar 196 2007
## 1278 Piura, Choc. Garage Exclusive 1034 2013
## 1378 Sambirano 891 2012
## 1394 Silvestre, Batch 7, 2013 1081 2013
## 1428 San Juan de Cheni 959 2012
## 1433 Asante 336 2009
## 1757 Ocumare 741 2011
## Cocoa.Percent Company.Location Rating Bean.Type
## 55 70% U.S.A. 4
## 57 70% U.S.A. 4
## 77 70% Italy 4 Criollo (Porcelana)
## 78 75% Italy 4 Blend
## 79 70% Italy 5 Trinitario
## 84 70% Italy 4 Trinitario (85% Criollo)
## 87 70% Italy 5 Blend
## 88 66% Italy 4 Blend
## 108 70% U.S.A. 4
## 109 70% U.S.A. 4 Forastero (Nacional)
## 118 70% U.S.A. 4 Criollo, Trinitario
## 153 70% U.S.A. 4 Forastero (Nacional)
## 257 70% U.S.A. 4 Trinitario
## 358 72% U.S.A. 4 Trinitario
## 567 70% Italy 4 Criollo (Porcelana)
## 573 70% Italy 4 Forastero (Arriba)
## 574 70% Italy 4 Criollo (Ocumare 67)
## 601 70% U.S.A. 4
## 687 70% U.S.A. 4 Trinitario
## 690 74% U.S.A. 4 Trinitario
## 691 69% U.S.A. 4 Trinitario
## 701 70% U.S.A. 4 Trinitario
## 720 74% U.S.A. 4 Amazon mix
## 800 72% U.S.A. 4 Beniano
## 883 70% U.S.A. 4
## 919 70% U.S.A. 4
## 1274 75% U.S.A. 4 Trinitario
## 1277 70% U.S.A. 4 Trinitario
## 1278 67% U.S.A. 4
## 1378 75% U.S.A. 4 Trinitario
## 1394 75% U.S.A. 4
## 1428 78% U.S.A. 4
## 1433 65% U.S.A. 4 Forastero
## 1757 70% U.S.A. 4
## Broad.Bean.Origin
## 55 Papua New Guinea
## 57 Ecuador
## 77 Venezuela
## 78
## 79 Venezuela
## 84 Madagascar
## 87
## 88
## 108 Costa Rica
## 109 Peru
## 118 Nicaragua
## 153 Peru
## 257 Venezuela
## 358 Belize
## 567 Venezuela
## 573 Ecuador
## 574 Venezuela
## 601 Ecuador
## 687 Peru
## 690 Madagascar
## 691 Papua New Guinea
## 701 Venezuela
## 720 Costa Rica
## 800 Bolivia
## 883 Peru
## 919 Brazil
## 1274 Madagascar
## 1277 Madagascar
## 1278 Peru
## 1378 Madagascar
## 1394 Bolivia
## 1428 Peru
## 1433 Ghana
## 1757 Venezuela