First, I found the rank of my name (Emily) for the year I was born (1999). Using filters for year and sex.
babynames %>%
filter(year == 1999, sex == "F") %>%
mutate(rank = row_number()) %>%
mutate(percent = round(prop * 100, 1)) %>%
filter(name == "Emily")
NA
The name Emily was ranked number one in the year 1999, which is the year I was born.
The second task is to create a word cloud correlating with the year I was born and my sex (1999, F).
babynames %>%
filter(year == 1999) %>% # use only one year
filter(sex == "F") %>% # use only one sex
select(name, n) %>% # select the two relevant variables: the name and how often it occurs
top_n(100, n) %>% # use only the top names or it could get too big
wordcloud2(size = .5) # generate the word cloud
The word cloud allows for a graphic representation of names by rank for a certain year, with the largest names appearing representing the highest ranking names.
The third task is to track my name’s popularity through time.
babynames %>%
filter(name == "Emily", sex == "F") %>%
ggplot(aes(x = year, y = n)) +
geom_line()
The line graph shows that the name Emily was not very popular for the first 100 years or so, and began to peak in the late 90’s into the early 2000’s, then dropped back down.
For the 4th task, I needed to find the top 10 years the name Emily was most popular. For this I filtered by name and sex, coded for the top 10 years with the highest proportions, and arranging the results in descending order.
babynames %>%
filter(name == "Emily", sex == "F") %>%
top_n(10, prop) %>%
arrange(-prop)
NA
As shown above, the late 90’s and early 2000’s were the highest ranking years for this name.
The final step was to compare the name Emily to other female names. I chose the name’s of my two sisters.
babynames %>%
filter(name == "Emily" | name == "Sophia" | name == "Lauren") %>%
filter(sex == "F") %>%
ggplot(aes(x = year, y = n, color = name)) +
geom_line()
The graph indicates that the name Lauren peaked around 1990, the name Emily in the late 90’s, and Sophia in the mid 2000’s. This chart happens to correlate with our order of birth as well. Laure was born first in 1995, myself in 1999, and Sopia in 2006.
LS0tCnRpdGxlOiAiTmFtZSBBbmFseXNpcyIKb3V0cHV0OiBodG1sX25vdGVib29rCi0tLQoKRmlyc3QsIEkgZm91bmQgdGhlIHJhbmsgb2YgbXkgbmFtZSAoRW1pbHkpIGZvciB0aGUgeWVhciBJIHdhcyBib3JuICgxOTk5KS4gVXNpbmcgZmlsdGVycyBmb3IgeWVhciBhbmQgc2V4LgoKYGBge3J9CgpiYWJ5bmFtZXMgJT4lICAgICAgICAgICAgICAgICAgICAgICAgICAgICAKICBmaWx0ZXIoeWVhciA9PSAxOTk5LCBzZXggPT0gIkYiKSAlPiUgICAgCiAgbXV0YXRlKHJhbmsgPSByb3dfbnVtYmVyKCkpICU+JSAgICAgICAgIAogIG11dGF0ZShwZXJjZW50ID0gcm91bmQocHJvcCAqIDEwMCwgMSkpICU+JSAKICBmaWx0ZXIobmFtZSA9PSAiRW1pbHkiKSAgICAgICAgICAgICAgIAoKYGBgCgpUaGUgbmFtZSBFbWlseSB3YXMgcmFua2VkIG51bWJlciBvbmUgaW4gdGhlIHllYXIgMTk5OSwgd2hpY2ggaXMgdGhlIHllYXIgSSB3YXMgYm9ybi4gCgpUaGUgc2Vjb25kIHRhc2sgaXMgdG8gY3JlYXRlIGEgd29yZCBjbG91ZCBjb3JyZWxhdGluZyB3aXRoIHRoZSB5ZWFyIEkgd2FzIGJvcm4gYW5kIG15IHNleCAoMTk5OSwgRikuCmBgYHtyfQpiYWJ5bmFtZXMgJT4lCiAgZmlsdGVyKHllYXIgPT0gMTk5OSkgJT4lICAgICAjIHVzZSBvbmx5IG9uZSB5ZWFyCiAgZmlsdGVyKHNleCA9PSAiRiIpICU+JSAgICAgICAjIHVzZSBvbmx5IG9uZSBzZXgKICBzZWxlY3QobmFtZSwgbikgJT4lICAgICAgICAgICMgc2VsZWN0IHRoZSB0d28gcmVsZXZhbnQgdmFyaWFibGVzOiB0aGUgbmFtZSBhbmQgaG93IG9mdGVuIGl0IG9jY3VycwogIHRvcF9uKDEwMCwgbikgJT4lICAgICAgICAgICAgIyB1c2Ugb25seSB0aGUgdG9wIG5hbWVzIG9yIGl0IGNvdWxkIGdldCB0b28gYmlnCiAgd29yZGNsb3VkMihzaXplID0gLjUpICAgICAgICAgICAgICAgICAjIGdlbmVyYXRlIHRoZSB3b3JkIGNsb3VkCmBgYAoKVGhlIHdvcmQgY2xvdWQgYWxsb3dzIGZvciBhIGdyYXBoaWMgcmVwcmVzZW50YXRpb24gb2YgbmFtZXMgYnkgcmFuayBmb3IgYSBjZXJ0YWluIHllYXIsIHdpdGggdGhlIGxhcmdlc3QgbmFtZXMgYXBwZWFyaW5nIHJlcHJlc2VudGluZyB0aGUgaGlnaGVzdCByYW5raW5nIG5hbWVzLgoKCgpUaGUgdGhpcmQgdGFzayBpcyB0byB0cmFjayBteSBuYW1lJ3MgcG9wdWxhcml0eSB0aHJvdWdoIHRpbWUuCgpgYGB7cn0KYmFieW5hbWVzICU+JQogIGZpbHRlcihuYW1lID09ICJFbWlseSIsIHNleCA9PSAiRiIpICU+JSAKICBnZ3Bsb3QoYWVzKHggPSB5ZWFyLCB5ID0gbikpICsKICBnZW9tX2xpbmUoKQpgYGAKClRoZSBsaW5lIGdyYXBoIHNob3dzIHRoYXQgdGhlIG5hbWUgRW1pbHkgd2FzIG5vdCB2ZXJ5IHBvcHVsYXIgZm9yIHRoZSBmaXJzdCAxMDAgeWVhcnMgb3Igc28sIGFuZCBiZWdhbiB0byBwZWFrIGluIHRoZSBsYXRlIDkwJ3MgaW50byB0aGUgZWFybHkgMjAwMCdzLCB0aGVuIGRyb3BwZWQgYmFjayBkb3duLgoKCkZvciB0aGUgNHRoIHRhc2ssIEkgbmVlZGVkIHRvIGZpbmQgdGhlIHRvcCAxMCB5ZWFycyB0aGUgbmFtZSBFbWlseSB3YXMgbW9zdCBwb3B1bGFyLiAgRm9yIHRoaXMgSSBmaWx0ZXJlZCBieSBuYW1lIGFuZCBzZXgsIGNvZGVkIGZvciB0aGUgdG9wIDEwIHllYXJzIHdpdGggdGhlIGhpZ2hlc3QgcHJvcG9ydGlvbnMsIGFuZCBhcnJhbmdpbmcgdGhlIHJlc3VsdHMgaW4gZGVzY2VuZGluZyBvcmRlci4KCmBgYHtyfQpiYWJ5bmFtZXMgJT4lICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgZmlsdGVyKG5hbWUgPT0gIkVtaWx5Iiwgc2V4ID09ICJGIikgJT4lICAgIAogIHRvcF9uKDEwLCBwcm9wKSAlPiUgICAgICAgICAgICAgICAgICAgICAgICAgIAogIGFycmFuZ2UoLXByb3ApICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgIAoKYGBgCgpBcyBzaG93biBhYm92ZSwgdGhlIGxhdGUgOTAncyBhbmQgZWFybHkgMjAwMCdzIHdlcmUgdGhlIGhpZ2hlc3QgcmFua2luZyB5ZWFycyBmb3IgdGhpcyBuYW1lLgoKCgoKVGhlIGZpbmFsIHN0ZXAgd2FzIHRvIGNvbXBhcmUgdGhlIG5hbWUgRW1pbHkgdG8gb3RoZXIgZmVtYWxlIG5hbWVzLiBJIGNob3NlIHRoZSBuYW1lJ3Mgb2YgbXkgdHdvIHNpc3RlcnMuCgpgYGB7cn0KYmFieW5hbWVzICU+JQogIGZpbHRlcihuYW1lID09ICJFbWlseSIgfCBuYW1lID09ICJTb3BoaWEiIHwgbmFtZSA9PSAiTGF1cmVuIikgJT4lIAogIGZpbHRlcihzZXggPT0gIkYiKSAlPiUgCiAgZ2dwbG90KGFlcyh4ID0geWVhciwgeSA9IG4sIGNvbG9yID0gbmFtZSkpICsKICBnZW9tX2xpbmUoKQpgYGAKCgpUaGUgZ3JhcGggaW5kaWNhdGVzIHRoYXQgdGhlIG5hbWUgTGF1cmVuIHBlYWtlZCBhcm91bmQgMTk5MCwgdGhlIG5hbWUgRW1pbHkgaW4gdGhlIGxhdGUgOTAncywgYW5kIFNvcGhpYSBpbiB0aGUgbWlkIDIwMDAncy4gIFRoaXMgY2hhcnQgaGFwcGVucyB0byBjb3JyZWxhdGUgd2l0aCBvdXIgb3JkZXIgb2YgYmlydGggYXMgd2VsbC4gTGF1cmUgd2FzIGJvcm4gZmlyc3QgaW4gMTk5NSwgbXlzZWxmIGluIDE5OTksIGFuZCBTb3BpYSBpbiAyMDA2LgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCgoKCg==