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" ...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 1cacao[7,7]## [1] 3.5subset (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