class: center, middle, inverse, title-slide .title[ # ggplot tutorial ] .subtitle[ ## with kunoichi + ninjutsu theme ] .author[ ### <br><br> Emi Tanaka ] .date[ ### <br>2018/09/16 ] --- class: split-40 count: false <style type="text/css"> .remark-code{ line-height: 2; } </style> .column[.content[ ```r *ggplot(iris) ``` ]] .column[.content.center[ <img src="index_files/figure-html/output1-1.png" width="100%" /> ]] --- class: split-40 count: false .column[.content[ ```r ggplot(iris) + * aes(Sepal.Length, Sepal.Width) ``` ]] .column[.content.center[ <img src="index_files/figure-html/output2-1.png" width="100%" /> ]] --- class: split-40 count: false .column[.content[ ```r ggplot(iris) + aes(Sepal.Length, Sepal.Width) + * geom_point() ``` ]] .column[.content.center[ <img src="index_files/figure-html/output3-1.png" width="100%" /> ]] --- class: split-40 count: false .column[.content[ ```r ggplot(iris) + aes(Sepal.Length, Sepal.Width) + geom_point() + * labs(x = "Add label to Sepal Length") ``` ]] .column[.content.center[ <img src="index_files/figure-html/output4-1.png" width="100%" /> ]] --- class: split-40 count: false .column[.content[ ```r ggplot(iris) + aes(Sepal.Length, Sepal.Width) + geom_point() + labs(x = "Add label to Sepal Length") + * labs(y = "Add label to Sepal Width") ``` ]] .column[.content.center[ <img src="index_files/figure-html/output5-1.png" width="100%" /> ]] --- class: split-40 count: false .column[.content[ ```r ggplot(iris) + aes(Sepal.Length, Sepal.Width) + geom_point() + labs(x = "Add label to Sepal Length") + labs(y = "Add label to Sepal Width") + * labs(title="The famous iris data") ``` ]] .column[.content.center[ <img src="index_files/figure-html/output6-1.png" width="100%" /> ]] --- class: split-40 count: false .column[.content[ ```r ggplot(iris) + aes(Sepal.Length, Sepal.Width) + geom_point() + labs(x = "Add label to Sepal Length") + labs(y = "Add label to Sepal Width") + labs(title="The famous iris data") + * labs(subtitle="Data collected by Anderson, Edgar (1935)") ``` ]] .column[.content.center[ <img src="index_files/figure-html/output7-1.png" width="100%" /> ]] --- class: split-40 count: false .column[.content[ ```r ggplot(iris) + aes(Sepal.Length, Sepal.Width) + geom_point() + labs(x = "Add label to Sepal Length") + labs(y = "Add label to Sepal Width") + labs(title="The famous iris data") + labs(subtitle="Data collected by Anderson, Edgar (1935)") + * aes(color= Species) ``` ]] .column[.content.center[ <img src="index_files/figure-html/output8-1.png" width="100%" /> ]] --- class: split-40 count: false .column[.content[ ```r ggplot(iris) + aes(Sepal.Length, Sepal.Width) + geom_point() + labs(x = "Add label to Sepal Length") + labs(y = "Add label to Sepal Width") + labs(title="The famous iris data") + labs(subtitle="Data collected by Anderson, Edgar (1935)") + aes(color= Species) + * theme_bw(base_size=16) ``` ]] .column[.content.center[ <img src="index_files/figure-html/output9-1.png" width="100%" /> ]] --- # Reference Code comes from [https://emitanaka.rbind.io/post/knitr-knitr-code](https://emitanaka.rbind.io/post/knitr-knitr-code/)