---
title: "Categorical Data"
author: "Milica Cudina"
date: "`r Sys.Date()`"
output: pdf_document
---

```{r setup, include=FALSE}
knitr::opts_chunk$set(echo = TRUE)
```

```{r, out.width="80%"}
pies<-read.csv("pie-survey.csv")
pies
pielist<-table(pies$What.s.your.favorite.kind.of.pie)
print(pielist)
barplot(pielist)
barplot(pielist, 
         col=c("red","blue","green","orange","purple"))
pie(pielist,
     col=c("red","blue","green","orange","purple"))

```