diamonds %>% mutate(suurus=
      ifelse(carat>0.7, "suur", 
             ifelse(carat>0.4, "keskmine", "väike"))) %>%
    mutate(suurus=factor(suurus, levels=c("väike", "keskmine", "suur"))) %>%
  ggplot() + 
  geom_bar(mapping = aes(x = cut, fill = suurus), position="dodge")
  

mpg %>% group_by(displ, hwy) %>% summarise(kogus=n()) %>%
  ggplot() + 
  geom_point(mapping = aes(x = displ, y = hwy, size=kogus))
  
  
massid=tibble(eesnimi=c("Juku", "Kati", "Mati"), mass=c(80, 60, 70))
ggplot(massid, aes(x="", y=mass, fill=eesnimi))+
    geom_col()+coord_polar("y")
	


ggplot(mpg, aes(drv, displ, color=class)) + geom_boxplot()+
  labs(
    title="Mootori suurus vastavalt veo tüübile",
    subtitle=paste(nrow(mpg), " masina põhjal"),
    caption="2010. aasta andmed",
    x="veo tüüp",
    y="silindrite maht liitrites",
    color="Masina klass"
  )


ggplot(mpg, aes(drv, displ, color=class)) + geom_boxplot()+
  labs(
    title="Mootori suurus vastavalt veo tüübile",
    subtitle=paste(nrow(mpg), " masina põhjal"),
    caption="2010. aasta andmed",
    x=quote(sin(alpha)),
    y=quote(frac("silindrid"^2, "liitrid")),
    color="Masina klass"
  )


ggplot(mpg, aes(hwy, displ)) + 
   geom_point()+
   geom_text(mpg %>% filter(class=="2seater"), 
             mapping=aes(label=class))
			 
			 
ggplot(mpg, aes(hwy, displ)) + 
  geom_point()+
  geom_text(mpg %>% filter(class=="2seater"), 
            mapping=aes(label=class))+ 
  scale_y_continuous(
     breaks=c(1, 2, 5), 
     labels=c("väike", "keskmine", "suur"), 
     limits = c(0, 10))
	 
ggplot(mpg, aes(hwy, displ, color=drv)) + 
  geom_point()+
  scale_color_manual(values=c(f="red", r="green", `4`="yellow"))