____Load Libraries

library(tidyverse)
library("dslabs")
library(ggplot2)

____Save your script as RLab1 Task 1 Creating Scripts

____View the dataset called gapminder

____Separate the variables into classes and complete the following

Quantitative (numeric): _____________________________________

Categorical (factor): _______________________________________

What are the levels of the variable continent? __________________________________________________

_____Make a subset of the data that just includes the year 2015. Name your subset recent

recent <- subset(gapminder, year=="2015")

_____Using the new dataset you just made with the subset command. Replicate the table and graph below


  Africa Americas     Asia   Europe  Oceania 
      51       36       47       39       12 

_____Use the piping command %>% and the layers in ggplot to replicate the following from the dataset called recent. Hint the last line of code is geom_point() not geom_label

LS0tCnRpdGxlOiAiUkxhYiAxIFRhc2sgMSBDcmVhdGluZyBTY3JpcHRzIgpvdXRwdXQ6CiAgaHRtbF9ub3RlYm9vazogZGVmYXVsdAogIHdvcmRfZG9jdW1lbnQ6IGRlZmF1bHQKICBwZGZfZG9jdW1lbnQ6IGRlZmF1bHQKLS0tCgojIyMjIF9fX19Mb2FkIExpYnJhcmllcwpgYGB7ciBlY2hvPVRSVUV9CmxpYnJhcnkodGlkeXZlcnNlKQpsaWJyYXJ5KCJkc2xhYnMiKQpsaWJyYXJ5KGdncGxvdDIpCmBgYAoKIyMjIyBfX19fU2F2ZSB5b3VyIHNjcmlwdCBhcyBSTGFiMSBUYXNrIDEgQ3JlYXRpbmcgU2NyaXB0cwoKIyMjIyBfX19fVmlldyB0aGUgZGF0YXNldCBjYWxsZWQgKmdhcG1pbmRlcioKYGBge3IgaW5jbHVkZT1GQUxTRX0KVmlldyhnYXBtaW5kZXIpCmBgYAoKIyMjIyBfX19fU2VwYXJhdGUgdGhlIHZhcmlhYmxlcyBpbnRvIGNsYXNzZXMgYW5kIGNvbXBsZXRlIHRoZSBmb2xsb3dpbmcKClF1YW50aXRhdGl2ZSAobnVtZXJpYyk6IF9fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX18KCkNhdGVnb3JpY2FsIChmYWN0b3IpOiBfX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX18KCldoYXQgYXJlIHRoZSBsZXZlbHMgb2YgdGhlIHZhcmlhYmxlICpjb250aW5lbnQqPyBfX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fX19fXwoKCmBgYHtyIGluY2x1ZGU9RkFMU0V9CmxldmVscyhnYXBtaW5kZXIkY29udGluZW50KQpgYGAKCiMjIyMgX19fX19NYWtlIGEgc3Vic2V0IG9mIHRoZSBkYXRhIHRoYXQganVzdCBpbmNsdWRlcyB0aGUgeWVhciAyMDE1LiBOYW1lIHlvdXIgc3Vic2V0ICoqcmVjZW50KioKYGBge3J9CnJlY2VudCA8LSBzdWJzZXQoZ2FwbWluZGVyLCB5ZWFyPT0iMjAxNSIpCmBgYAoKCiMjIyMgX19fX19Vc2luZyB0aGUgbmV3IGRhdGFzZXQgeW91IGp1c3QgbWFkZSB3aXRoIHRoZSBzdWJzZXQgY29tbWFuZC4gUmVwbGljYXRlIHRoZSB0YWJsZSBhbmQgZ3JhcGggYmVsb3cKYGBge3IgZWNobz1GQUxTRX0KcmVjZW50Y29udCA8LSB0YWJsZShyZWNlbnQkY29udGluZW50KQpwcmludChyZWNlbnRjb250KQpgYGAKCmBgYHtyIGVjaG89RkFMU0V9CnJlY2VudGNvbnQgPC0gdGFibGUocmVjZW50JGNvbnRpbmVudCkKYmFycGxvdChyZWNlbnRjb250LCBtYWluID0gIkNvdW50cyBvZiBDb3VudHJpZXMgb2YgdGhlIFdvcmxkIDIwMTUiLCB4bGFiID0gImNvbnRpbmVudHMiLCB5bGFiID0gImZyZXF1ZW5jeSIsIGNvbD0gYygiZ3JlZW4iLCAiYmx1ZSIsICJyZWQiLCAieWVsbG93IiwgInB1cnBsZSIpKQoKYGBgCiMjIyMgX19fX19Vc2UgdGhlIHBpcGluZyBjb21tYW5kICU+JSBhbmQgdGhlIGxheWVycyBpbiBnZ3Bsb3QgdG8gcmVwbGljYXRlIHRoZSBmb2xsb3dpbmcgZnJvbSB0aGUgZGF0YXNldCBjYWxsZWQgcmVjZW50LiBIaW50IHRoZSBsYXN0IGxpbmUgb2YgY29kZSBpcyBnZW9tX3BvaW50KCkgbm90IGdlb21fbGFiZWwKCmBgYHtyIGVjaG89RkFMU0V9CnJlY2VudCAlPiUKICBnZ3Bsb3QoYWVzKGZlcnRpbGl0eSxsaWZlX2V4cGVjdGFuY3ksIGNvbG9yID0gY29udGluZW50KSkgKwogIHhsYWIoIkZlcnRpbGl0eSByYXRlIikrCiAgeWxhYigiTGlmZSBFeHBlY3RhbmN5IikrCiAgZ2d0aXRsZSgiV29ybGQgTGlmZSBFeHBlY3RhbmN5IHZzIEZlcnRpbGl0eSBSYXRlIDIwMTUiKSsKICBnZW9tX3BvaW50KCkKYGBgCgo=