#import data
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" ...cacao1 <- read.delim("flavors_of_cacao.txt")
summary ("cacao1")## Length Class Mode
## 1 character characterhead(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)## Company...Maker.if.known. Specific.Bean.Origin.or.Bar.Name REF Review.Date
## 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 Broad.Bean.Origin
## 1790 58% Austria 3.50
## 1791 70% Austria 3.75 Peru
## 1792 65% Austria 3.00 Forastero Congo
## 1793 65% Austria 3.50 Forastero India
## 1794 62% Austria 3.25 India
## 1795 65% Austria 3.00 Brazil#Contigency table
sort(table(cacao$Company.Location))##
## Czech Republic Eucador Ghana India
## 1 1 1 1
## Martinique Niacragua Philippines Russia
## 1 1 1 1
## Suriname Wales Bolivia Chile
## 1 1 2 2
## Finland St. Lucia Grenada Iceland
## 2 2 3 3
## Portugal Singapore South Africa Amsterdam
## 3 3 3 4
## Fiji Ireland Mexico Netherlands
## 4 4 4 4
## Puerto Rico Sao Tome Domincan Republic Nicaragua
## 4 4 5 5
## South Korea Sweden Honduras Lithuania
## 5 5 6 6
## Poland Argentina Costa Rica Israel
## 8 9 9 9
## Guatemala Scotland Vietnam Denmark
## 10 10 11 15
## Brazil Japan Madagascar New Zealand
## 17 17 17 17
## Peru Venezuela Hungary Colombia
## 17 20 22 23
## Spain Austria Germany Switzerland
## 25 26 35 38
## Belgium Australia Ecuador Italy
## 40 49 54 63
## U.K. Canada France U.S.A.
## 96 125 156 764#indexing
cacao[8,9]## [1] "Venezuela"
``` r
cacao[cacao$Rating >=4,]## Company...Maker.if.known.
## 10 A. Morin
## 18 A. Morin
## 21 A. Morin
## 55 Amano
## 57 Amano
## 77 Amedei
## 78 Amedei
## 79 Amedei
## 84 Amedei
## 87 Amedei
## 88 Amedei
## 93 AMMA
## 108 Arete
## 109 Arete
## 118 Arete
## 124 Artisan du Chocolat
## 153 Bar Au Chocolat
## 180 Benoit Nihant
## 181 Benoit Nihant
## 187 Beschle (Felchlin)
## 223 Bonnat
## 232 Bonnat
## 233 Bonnat
## 240 Bonnat
## 243 Bonnat
## 244 Bonnat
## 245 Bonnat
## 248 Bonnat
## 257 Brasstown aka It's Chocolate
## 312 Cacao Sampaka
## 316 Cacao Sampaka
## 317 Cacao Sampaka
## 358 Castronovo
## 437 Claudio Corallo
## 503 Danta
## 567 Domori
## 573 Domori
## 574 Domori
## 582 Duffy's
## 601 Durci
## 650 Felchlin
## 687 Fresco
## 690 Fresco
## 691 Fresco
## 701 Fresco
## 720 Fruition
## 730 Georgia Ramon
## 800 Heirloom Cacao Preservation (Zokoko)
## 828 Hotel Chocolat
## 862 Idilio (Felchlin)
## 864 Idilio (Felchlin)
## 865 Idilio (Felchlin)
## 866 Idilio (Felchlin)
## 883 Just Good Chocolate
## 919 L.A. Burdick (Felchlin)
## 993 Madecasse (Cinagra)
## 1088 Matale
## 1089 Matale
## 1118 Michel Cluizel
## 1119 Michel Cluizel
## 1120 Michel Cluizel
## 1204 Ocelot
## 1241 Pacari
## 1245 Pacari
## 1247 Pacari
## 1274 Patric
## 1277 Patric
## 1278 Patric
## 1289 Pierre Marcolini
## 1291 Pierre Marcolini
## 1293 Pierre Marcolini
## 1295 Pierre Marcolini
## 1323 Pralus
## 1331 Pralus
## 1336 Pralus
## 1378 Ritual
## 1394 Rogue
## 1426 Santander (Compania Nacional)
## 1428 Scharffen Berger
## 1433 Scharffen Berger
## 1479 Smooth Chocolator, The
## 1488 Smooth Chocolator, The
## 1513 Soma
## 1516 Soma
## 1529 Soma
## 1530 Soma
## 1531 Soma
## 1533 Soma
## 1536 Soma
## 1537 Soma
## 1544 Soma
## 1545 Soma
## 1664 Tobago Estate (Pralus)
## 1683 Valrhona
## 1686 Valrhona
## 1688 Valrhona
## 1694 Valrhona
## 1700 Valrhona
## 1740 Willie's Cacao
## 1757 Woodblock
## Specific.Bean.Origin.or.Bar.Name REF Review.Date
## 10 Pablino 1319 2014
## 18 Chuao 1015 2013
## 21 Chanchamayo Province 1019 2013
## 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
## 93 Monte Alegre, 3 diff. plantations 572 2010
## 108 Coto Brus, Terciopelo 1908 2016
## 109 Phantom 1924 2016
## 118 Chuno 1598 2015
## 124 Haiti 729 2011
## 153 Maranon Canyon 1295 2014
## 180 Rio Peripa H. 1141 2013
## 181 Bali, Sukrama Bros. Farm, Melaya, 62hr C 757 2011
## 187 Ecuador 636 2011
## 223 Kaori 1339 2014
## 232 Haiti 629 2011
## 233 Madagascar, 100% criollo 629 2011
## 240 Porcelana, Venezuela 199 2008
## 243 Ocumare, Puerto Cabello 32 2006
## 244 Maracaibo, El Rosario 48 2006
## 245 Madagascar 75 2006
## 248 Chuao 81 2006
## 257 Chuao 1355 2014
## 312 Papua 523 2010
## 316 Porcelana, Tabasco, La Joya 336 2009
## 317 Xoconusco, Chiapas 346 2009
## 358 Maya Mtn, Batch 454, Heirloom 1724 2016
## 437 Terreiro Velho P. 227 2008
## 503 Las Acacias E. 987 2012
## 567 Porcelana 111 2007
## 573 Ecuador 192 2007
## 574 Ocumare 67, Puertofino 192 2007
## 582 Rio Dulce, Xoco 1662 2015
## 601 Corona Arriba 1630 2015
## 650 Alto Beni, Cru Savage 56 2006
## 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
## 730 ABOCFA Coop 1642 2015
## 800 Wild Beni, Lower Rio Beni, Tranquilidad, 2015 1744 2016
## 828 Marcial, single Cote, 2012 1030 2013
## 862 Porcelana, Zulia 733 2011
## 864 Carenero Superior, Urrutia, Barlovento 737 2011
## 865 Coopertiva Amazona w/ nibs 737 2011
## 866 Sur del Lago, Amiari Meridena, Zulia, w/ nibs 737 2011
## 883 Peru 1375 2014
## 919 Brazil 891 2012
## 993 Madagascar 284 2008
## 1088 Somia, 2013 1177 2013
## 1089 Kulili P., 2013 1177 2013
## 1118 Los Ancones P. 24 2006
## 1119 Mangaro P. 24 2006
## 1120 Maralumi P. 24 2006
## 1204 Piura 1558 2015
## 1241 Sierra Nevada, Tutu Iku 1848 2016
## 1245 Tangara 1415 2014
## 1247 Piura 863 2012
## 1274 Madagascar 331 2009
## 1277 Madagascar 196 2007
## 1278 Piura, Choc. Garage Exclusive 1034 2013
## 1289 Cabosse 111 2007
## 1291 Sambirano, Ambanja, Madagascar 141 2007
## 1293 Porcelana, Tabasco, Limited Ed. 81 2006
## 1295 Ocumare, Puerto Cabello, Venezuela 93 2006
## 1323 Claudio Corallo w/ nibs 162 2007
## 1331 Jamaique 32 2006
## 1336 Fortissima 93 2006
## 1378 Sambirano 891 2012
## 1394 Silvestre, Batch 7, 2013 1081 2013
## 1426 Colombian Dark 32 2006
## 1428 San Juan de Cheni 959 2012
## 1433 Asante 336 2009
## 1479 Porcelana, Sorotaima,Machiques,batch pcl001 1740 2016
## 1488 Camino Verde 1622 2015
## 1513 Tien Giang, Black S., batch VIT60420.0 1828 2016
## 1516 Porcelana 1594 2015
## 1529 Crazy 88 1077 2013
## 1530 Maracaibo, El Vigia 1077 2013
## 1531 Equator 1081 2013
## 1533 Bachelor's Hall E., St. Thomas Parish 1177 2013
## 1536 Dual Origins, Sambirano, Elvesia 867 2012
## 1537 Dancing in Your Head, 5 bean blend 867 2012
## 1544 Peruvian 676 2011
## 1545 Three Amigos(Chuao, Wild Bolivia, D.R.) 676 2011
## 1664 Roxborough, Tobago 895 2012
## 1683 Piura, Illanka, Quemazon 1510 2015
## 1686 Otucan, Grand Cru 931 2012
## 1688 Porcelana, Pedegral 757 2011
## 1694 Manjari 129 2007
## 1700 Guanaja 63 2006
## 1740 Los Llanos 1848 2016
## 1757 Ocumare 741 2011
## Cocoa.Percent Company.Location Rating Bean.Type
## 10 70% France 4
## 18 70% France 4 Trinitario
## 21 63% France 4
## 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
## 93 60% Brazil 4 Forastero (Parazinho)
## 108 70% U.S.A. 4
## 109 70% U.S.A. 4 Forastero (Nacional)
## 118 70% U.S.A. 4 Criollo, Trinitario
## 124 72% U.K. 4
## 153 70% U.S.A. 4 Forastero (Nacional)
## 180 73% Belgium 4 Trinitario
## 181 72% Belgium 4 Trinitario
## 187 72% Switzerland 4
## 223 75% France 4
## 232 75% France 4
## 233 75% France 4 Criollo
## 240 75% France 4 Criollo (Porcelana)
## 243 75% France 4
## 244 75% France 4 Criollo
## 245 75% France 4 Trinitario
## 248 75% France 4 Trinitario
## 257 70% U.S.A. 4 Trinitario
## 312 71% Spain 4
## 316 70% Spain 4 Criollo
## 317 70% Spain 4 Criollo
## 358 72% U.S.A. 4 Trinitario
## 437 75% Sao Tome 4 Forastero
## 503 70% Guatemala 4 Criollo
## 567 70% Italy 4 Criollo (Porcelana)
## 573 70% Italy 4 Forastero (Arriba)
## 574 70% Italy 4 Criollo (Ocumare 67)
## 582 70% U.K. 4 Criollo
## 601 70% U.S.A. 4
## 650 68% Switzerland 4 Criollo (Wild)
## 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
## 730 70% Germany 4 Forastero
## 800 72% U.S.A. 4 Beniano
## 828 70% U.K. 4 Trinitario
## 862 74% Switzerland 4 Criollo
## 864 70% Switzerland 4 Trinitario
## 865 72% Switzerland 4 Criollo
## 866 72% Switzerland 4
## 883 70% U.S.A. 4
## 919 70% U.S.A. 4
## 993 63% Madagascar 4 Trinitario
## 1088 68% Australia 4 Trinitario
## 1089 74% Australia 4 Trinitario
## 1118 67% France 4
## 1119 65% France 4 Trinitario
## 1120 64% France 4
## 1204 75% Scotland 4 Criollo
## 1241 70% Ecuador 4
## 1245 70% Ecuador 4
## 1247 70% Ecuador 4
## 1274 75% U.S.A. 4 Trinitario
## 1277 70% U.S.A. 4 Trinitario
## 1278 67% U.S.A. 4
## 1289 70% Belgium 4 Blend
## 1291 72% Belgium 4 Trinitario
## 1293 72% Belgium 4 Criollo
## 1295 72% Belgium 4 Criollo
## 1323 75% France 4 Forastero
## 1331 75% France 4 Trinitario
## 1336 80% France 4 Criollo, Trinitario
## 1378 75% U.S.A. 4 Trinitario
## 1394 75% U.S.A. 4
## 1426 70% Colombia 4 Forastero (Nacional)
## 1428 78% U.S.A. 4
## 1433 65% U.S.A. 4 Forastero
## 1479 70% Australia 4 Criollo
## 1488 72% Australia 4
## 1513 70% Canada 4 Trinitario
## 1516 75% Canada 4
## 1529 88% Canada 4
## 1530 70% Canada 4 Criollo
## 1531 67% Canada 4
## 1533 70% Canada 4 Trinitario
## 1536 70% Canada 4 Blend
## 1537 70% Canada 4 Blend
## 1544 64% Canada 4
## 1545 70% Canada 4
## 1664 70% France 4 Trinitario
## 1683 63% France 4
## 1686 69% France 4
## 1688 64% France 4 Criollo
## 1694 64% France 4 Criollo, Trinitario
## 1700 70% France 4 Criollo, Trinitario
## 1740 70% U.K. 4
## 1757 70% U.S.A. 4
## Broad.Bean.Origin
## 10 Peru
## 18 Venezuela
## 21 Peru
## 55 Papua New Guinea
## 57 Ecuador
## 77 Venezuela
## 78
## 79 Venezuela
## 84 Madagascar
## 87
## 88
## 93 Brazil
## 108 Costa Rica
## 109 Peru
## 118 Nicaragua
## 124 Haiti
## 153 Peru
## 180 Ecuador
## 181 Indonesia
## 187 Ecuador
## 223 Brazil
## 232 Haiti
## 233 Madagascar
## 240 Venezuela
## 243 Venezuela
## 244 Venezuela
## 245 Madagascar
## 248 Venezuela
## 257 Venezuela
## 312 Papua New Guinea
## 316 Mexico
## 317 Mexico
## 358 Belize
## 437 Sao Tome & Principe
## 503 Guatemala
## 567 Venezuela
## 573 Ecuador
## 574 Venezuela
## 582 Guatemala
## 601 Ecuador
## 650 Bolivia
## 687 Peru
## 690 Madagascar
## 691 Papua New Guinea
## 701 Venezuela
## 720 Costa Rica
## 730 Ghana
## 800 Bolivia
## 828 St. Lucia
## 862 Venezuela
## 864 Venezuela
## 865 Venezuela
## 866 Venezuela
## 883 Peru
## 919 Brazil
## 993 Madagascar
## 1088 Madagascar
## 1089 Papua New Guinea
## 1118 Dominican Republic
## 1119 Madagascar
## 1120 Papua New Guinea
## 1204 Peru
## 1241 Colombia
## 1245 Ecuador
## 1247 Peru
## 1274 Madagascar
## 1277 Madagascar
## 1278 Peru
## 1289 Venezuela, Java
## 1291 Madagascar
## 1293 Mexico
## 1295 Venezuela
## 1323 Sao Tome
## 1331 Jamaica
## 1336 Ecuador
## 1378 Madagascar
## 1394 Bolivia
## 1426 Colombia
## 1428 Peru
## 1433 Ghana
## 1479 Ecuador
## 1488 Ecuador
## 1513 Vietnam
## 1516 Venezuela
## 1529 Guat., D.R., Peru, Mad., PNG
## 1530 Venezuela
## 1531 Peru, Dom. Rep
## 1533 Jamaica
## 1536 Dom. Rep., Madagascar
## 1537 Gre., PNG, Haw., Haiti, Mad
## 1544 Peru
## 1545 Ven, Bolivia, D.R.
## 1664 Tobago
## 1683 Peru
## 1686 Venezuela
## 1688 Venezuela
## 1694 Madagascar
## 1700 South America
## 1740 Colombia
## 1757 Venezuelax_vec <- c(1:4)
sum(x_vec>2)## [1] 2y_vec <- c(col1='red', col2= 'green', col3= 'blue')
y_vec ['col1']## col1
## "red"
``` r
subset ("bike_sharing_data.csv", "windspeed" >= 40 & "season" %in% c("1", "4")) ## character(0)