# Zadanie 7
# Wykres kołowy - 5 najpopularniejszych Toyot

toyots <- auta2012[auta2012$Brand == "Toyota", ] # Same Toyoty


top <- tail(names(sort(table(toyots$Model))), 5) #5 najpopularniejszcyh modeli
counts <- c()

for (i in 1:length(top)) {
  counts[i] = nrow(toyots[toyots$Model == top[i], ])
} # liczba występowania tych modeli

df <- data.frame(top, counts) # ramka z kolumnami Model i Liczba

# wykres kolumnowy
bp <- ggplot(data = df, aes(x = "", y = counts, fill = top)) +
  geom_col()

# przekształcenie wykresu kolumnowego na kołowy
pie <- bp + coord_polar("y", start=0)
pie