Pie chart

data = iris
table(data$Species)

## 
##     setosa versicolor  virginica 
##         50         50         50

pie(table(data$Species), main = "Pie Chart of the Iris data set Species", 
    col = c("orange1", "chocolate", "coral"), radius = 1)