____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=