library (ggplot2)
library (dplyr)
data(mtcars)
dim(mtcars)
head(mtcars)
mtcars%>%dplyr::group_by(cyl)%>% dplyr::summarize(mpg=median(mpg))%>%ggplot(aes(x=cyl,y=mpg))+geom_col(aes(fill=cyl),color=NA)+labs(x="",y="Median mpg")+coord_polar()
ggplot(mtcars,aes(x=hp,y=mpg,group=cyl))+geom_line(aes(color=cyl),size=2)+geom_point(aes(color=cyl),size=4)+scale_y_reverse(breaks=1:nrow(mtcars))