library(tidyverse)
library(tidycensus)
census_api_key("b5e3d2da685c019db5e7c341c3949706ef5df120",install = TRUE, overwrite = TRUE)
Your original .Renviron will be backed up and stored in your R HOME directory if needed.
Your API key has been stored in your .Renviron and can be accessed by Sys.getenv("CENSUS_API_KEY").
To use now, restart R or run `readRenviron("~/.Renviron")`
[1] "b5e3d2da685c019db5e7c341c3949706ef5df120"
readRenviron("~/.Renviron")
Introduction
For our project, we initially began by looking at the English proficiency of foreign born Spanish speakers in NJ. To do this, we combined two datasets, one which included the number of foreign born Spanish-speakers who reported speaking English “very well”, and another for those who reported speaking English “not very well”. By combining these datasets, we were able to compare these numbers in one graph, which made visualizing the statistics much more efficient.
We later decided to add another layer to our project by looking at the English proficiency of foreign born “Other-Language” speakers in NJ. We wanted to see which of our two groups reported a higher English proficiency. As you can see below, the differences are quite drastic. Foreign born speakers of “other languages” report higher English proficiencies than those who speak Spanish. These results will be discussed in further detail below.
Our final graph is very similar to a facet-wrap of all our graphs. We used the census codes for all four datasets to combine them into one graph and compare the results more efficently. This allowed us to see the differences and similarities between these groups without having to scroll between two graphs. We also kept the colors uniform throughout our project since we believe this enhances its readability.
nj <- get_acs(geography = "state",
variables = c(Very_Well = "B06007_036", Not_Very_Well = "B06007_037"),
state = "34",
year = 2015)
Getting data from the 2011-2015 5-year ACS
ggplot(nj, aes(x = variable, y =estimate / 1000, color = variable, fill = variable))+
geom_col(width = 0.5)+
ggtitle("English Proficiency of Foreign Born Spanish Speakers in NJ")+
xlab("English Proficiency")+
ylab("Number of Speakers (In Thousands)")

Spanish in NJ
This graph looks at the English proficiency of NJ residents who were not born in the US and who also speak Spanish. This graph does not make any distinctions based on age of the speaker nor country of origin. The variables listed in the x-axis represent the binary options that speakers had to choose from when assessing their English proficiency, “very well” and “not very well”. The y-axis represent the number of speakers that selected each option in thousands.
As demonstrated above, the amount of Spanish speakers who report not speakng English very well is much higher than those who report speaking English very well, the numbers are around 475,000 and 225,000 respectively. In other words, approximately 1/3 of the foreign-born Spanish-speaking population reports speaking English very well.
nj <- get_acs(geography = "state",
variables = c(VeryWell = "B06007_039", NotVeryWell = "B06007_040"),
state = "34",
year = 2015)
Getting data from the 2011-2015 5-year ACS
ggplot(nj, aes(x = variable, y =estimate / 1000, color = variable, fill = variable))+
geom_col(width = 0.5)+
ggtitle("English Proficiency of Foreign Born 'Other Language' \n Speakers in NJ")+
xlab("English Proficiency")+
ylab("Number of Speakers (In Thousands)")

Other Languages in NJ
This graph shows the English proficiency of foregin born non-Spanish speakers in New Jersey. The x axis shows the level of proficiency, and the y axis measures the number of speakers in 1000s. The data did not specify the age, sex, or the education level of these speakers.Color was used to emphasize proficiency levels. In this group, more people believe that they speak English “very well” than “not very well”however,the number of speakers isn’t significantly different between these groups. There are about 5000 people who believe that they speak English very well and there are about 4000 people who believe that they don’t speak English well. The difference between the two groups is only 1000 people. The difference in this demographic is significantly smaller than the difference in the group of foregin born Spanish speakers.
nj <- get_acs(geography = "state",
variables = c(SpanVeryWell = "B06007_036", SpanNotVeryWell = "B06007_037",OLVeryWell = "B06007_039", OLNotVeryWell = "B06007_040"),
state = "34",
year = 2015)
Getting data from the 2011-2015 5-year ACS
ggplot(nj, aes(x = variable, y =estimate / 1000, fill = variable))+
geom_col(width = 0.5)+
scale_fill_manual(values = c("#F8766D","#00BFC4","#F8766D","#00BFC4"))+
ggtitle("English Proficiency of Foreign Born Speakers in NJ")+
xlab("English Proficiency")+
ylab("Number of Speakers (In Thousands)")

A Linguistically Diverse New Jersey
The graph above explores the English proficiency of foreign born residents of New Jersey whose native language is other than English. These speakers are categorized between native speakers of Spanish and native speakers of other languages. As seen in the data, the number of native Spanish speakers and native speakers of other languages who do not speak English well are relatively high, with approximately 400,000 and 475,000 people in each category, respectively. These numbers are only eclipsed by the number of native speakers of other languages who do speak English well, which totals to nearly 525,000 residents. The smallest population is the number of native Spanish speakers who do speak English well, which numbers approximately 215,000 speakers.
Ultimately, what can be determined from this graph is that the number of native Spanish speakers living in New Jersey who cannot speak English well is higher than that of the number of native speakers of other languages who do not speak English well. Additionally, the number of native Spanish speakers who cannot speak English well is also higher than the number of native Spanish speakers who do speak English well. Contrarily, the number of native speakers of other languages who speak English well is higher than the total amount of native speakers of other languages who speak do not speak English well.
LS0tCnRpdGxlOiAiQ2Vuc3VzIERhdGEiCm91dHB1dDogaHRtbF9ub3RlYm9vawotLS0KCmBgYHtyfQpsaWJyYXJ5KHRpZHl2ZXJzZSkKbGlicmFyeSh0aWR5Y2Vuc3VzKQpjZW5zdXNfYXBpX2tleSgiYjVlM2QyZGE2ODVjMDE5ZGI1ZTdjMzQxYzM5NDk3MDZlZjVkZjEyMCIsaW5zdGFsbCA9IFRSVUUsIG92ZXJ3cml0ZSA9IFRSVUUpCnJlYWRSZW52aXJvbigifi8uUmVudmlyb24iKQpgYGAKCgojIyMgSW50cm9kdWN0aW9uIApGb3Igb3VyIHByb2plY3QsIHdlIGluaXRpYWxseSBiZWdhbiBieSBsb29raW5nIGF0IHRoZSBFbmdsaXNoIHByb2ZpY2llbmN5IG9mIGZvcmVpZ24gYm9ybiBTcGFuaXNoIHNwZWFrZXJzIGluIE5KLiBUbyBkbyB0aGlzLCB3ZSBjb21iaW5lZCB0d28gZGF0YXNldHMsIG9uZSB3aGljaCBpbmNsdWRlZCB0aGUgbnVtYmVyIG9mIGZvcmVpZ24gYm9ybiBTcGFuaXNoLXNwZWFrZXJzIHdobyByZXBvcnRlZCBzcGVha2luZyBFbmdsaXNoICJ2ZXJ5IHdlbGwiLCBhbmQgYW5vdGhlciBmb3IgdGhvc2Ugd2hvIHJlcG9ydGVkIHNwZWFraW5nIEVuZ2xpc2ggIm5vdCB2ZXJ5IHdlbGwiLiBCeSBjb21iaW5pbmcgdGhlc2UgZGF0YXNldHMsIHdlIHdlcmUgYWJsZSB0byBjb21wYXJlIHRoZXNlIG51bWJlcnMgaW4gb25lIGdyYXBoLCB3aGljaCBtYWRlIHZpc3VhbGl6aW5nIHRoZSBzdGF0aXN0aWNzIG11Y2ggbW9yZSBlZmZpY2llbnQuIAoKV2UgbGF0ZXIgZGVjaWRlZCB0byBhZGQgYW5vdGhlciBsYXllciB0byBvdXIgcHJvamVjdCBieSBsb29raW5nIGF0IHRoZSBFbmdsaXNoIHByb2ZpY2llbmN5IG9mIGZvcmVpZ24gYm9ybiAiT3RoZXItTGFuZ3VhZ2UiIHNwZWFrZXJzIGluIE5KLiBXZSB3YW50ZWQgdG8gc2VlIHdoaWNoIG9mIG91ciB0d28gZ3JvdXBzIHJlcG9ydGVkIGEgaGlnaGVyIEVuZ2xpc2ggcHJvZmljaWVuY3kuIEFzIHlvdSBjYW4gc2VlIGJlbG93LCB0aGUgZGlmZmVyZW5jZXMgYXJlIHF1aXRlIGRyYXN0aWMuIEZvcmVpZ24gYm9ybiBzcGVha2VycyBvZiAib3RoZXIgbGFuZ3VhZ2VzIiByZXBvcnQgaGlnaGVyIEVuZ2xpc2ggcHJvZmljaWVuY2llcyB0aGFuIHRob3NlIHdobyBzcGVhayBTcGFuaXNoLiBUaGVzZSByZXN1bHRzIHdpbGwgYmUgZGlzY3Vzc2VkIGluIGZ1cnRoZXIgZGV0YWlsIGJlbG93LiAKCk91ciBmaW5hbCBncmFwaCBpcyB2ZXJ5IHNpbWlsYXIgdG8gYSBmYWNldC13cmFwIG9mIGFsbCBvdXIgZ3JhcGhzLiBXZSB1c2VkIHRoZSBjZW5zdXMgY29kZXMgZm9yIGFsbCBmb3VyIGRhdGFzZXRzIHRvIGNvbWJpbmUgdGhlbSBpbnRvIG9uZSBncmFwaCBhbmQgY29tcGFyZSB0aGUgcmVzdWx0cyBtb3JlIGVmZmljZW50bHkuIFRoaXMgYWxsb3dlZCB1cyB0byBzZWUgdGhlIGRpZmZlcmVuY2VzIGFuZCBzaW1pbGFyaXRpZXMgYmV0d2VlbiB0aGVzZSBncm91cHMgd2l0aG91dCBoYXZpbmcgdG8gc2Nyb2xsIGJldHdlZW4gdHdvIGdyYXBocy4gV2UgYWxzbyBrZXB0IHRoZSBjb2xvcnMgdW5pZm9ybSB0aHJvdWdob3V0IG91ciBwcm9qZWN0IHNpbmNlIHdlIGJlbGlldmUgdGhpcyBlbmhhbmNlcyBpdHMgcmVhZGFiaWxpdHkuIAoKPGRpdiBhbGlnbj0iY2VudGVyIj4KYGBge3J9Cm5qIDwtIGdldF9hY3MoZ2VvZ3JhcGh5ID0gInN0YXRlIiwgCiAgICAgIHZhcmlhYmxlcyA9IGMoVmVyeV9XZWxsID0gIkIwNjAwN18wMzYiLCBOb3RfVmVyeV9XZWxsID0gIkIwNjAwN18wMzciKSwgCiAgICAgIHN0YXRlID0gIjM0IiwKICAgICAgeWVhciA9IDIwMTUpCmdncGxvdChuaiwgYWVzKHggPSB2YXJpYWJsZSwgeSA9ZXN0aW1hdGUgLyAxMDAwLCBjb2xvciA9IHZhcmlhYmxlLCBmaWxsID0gdmFyaWFibGUpKSsKICBnZW9tX2NvbCh3aWR0aCA9IDAuNSkrCiAgZ2d0aXRsZSgiRW5nbGlzaCBQcm9maWNpZW5jeSBvZiBGb3JlaWduIEJvcm4gU3BhbmlzaCBTcGVha2VycyBpbiBOSiIpKwogIHhsYWIoIkVuZ2xpc2ggUHJvZmljaWVuY3kiKSsKICB5bGFiKCJOdW1iZXIgb2YgU3BlYWtlcnMgKEluIFRob3VzYW5kcykiKQoKYGBgCjwvZGl2PgojIyMgU3BhbmlzaCBpbiBOSgpUaGlzIGdyYXBoIGxvb2tzIGF0IHRoZSBFbmdsaXNoIHByb2ZpY2llbmN5IG9mIE5KIHJlc2lkZW50cyB3aG8gd2VyZSBub3QgYm9ybiBpbiB0aGUgVVMgYW5kIHdobyBhbHNvIHNwZWFrIFNwYW5pc2guIFRoaXMgZ3JhcGggZG9lcyBub3QgbWFrZSBhbnkgZGlzdGluY3Rpb25zIGJhc2VkIG9uIGFnZSBvZiB0aGUgc3BlYWtlciBub3IgY291bnRyeSBvZiBvcmlnaW4uIFRoZSB2YXJpYWJsZXMgbGlzdGVkIGluIHRoZSB4LWF4aXMgcmVwcmVzZW50IHRoZSBiaW5hcnkgb3B0aW9ucyB0aGF0IHNwZWFrZXJzIGhhZCB0byBjaG9vc2UgZnJvbSB3aGVuIGFzc2Vzc2luZyB0aGVpciBFbmdsaXNoIHByb2ZpY2llbmN5LCAidmVyeSB3ZWxsIiBhbmQgIm5vdCB2ZXJ5IHdlbGwiLiBUaGUgeS1heGlzIHJlcHJlc2VudCB0aGUgbnVtYmVyIG9mIHNwZWFrZXJzIHRoYXQgc2VsZWN0ZWQgZWFjaCBvcHRpb24gaW4gdGhvdXNhbmRzLgoKQXMgZGVtb25zdHJhdGVkIGFib3ZlLCB0aGUgYW1vdW50IG9mIFNwYW5pc2ggc3BlYWtlcnMgd2hvIHJlcG9ydCBub3Qgc3BlYWtuZyBFbmdsaXNoIHZlcnkgd2VsbCBpcyBtdWNoIGhpZ2hlciB0aGFuIHRob3NlIHdobyByZXBvcnQgc3BlYWtpbmcgRW5nbGlzaCB2ZXJ5IHdlbGwsIHRoZSBudW1iZXJzIGFyZSBhcm91bmQgNDc1LDAwMCBhbmQgMjI1LDAwMCByZXNwZWN0aXZlbHkuIEluIG90aGVyIHdvcmRzLCBhcHByb3hpbWF0ZWx5IDEvMyBvZiB0aGUgZm9yZWlnbi1ib3JuIFNwYW5pc2gtc3BlYWtpbmcgcG9wdWxhdGlvbiByZXBvcnRzIHNwZWFraW5nIEVuZ2xpc2ggdmVyeSB3ZWxsLiAKCjxkaXYgYWxpZ249ImNlbnRlciI+CgpgYGB7cn0KbmogPC0gZ2V0X2FjcyhnZW9ncmFwaHkgPSAic3RhdGUiLCAKICAgICAgdmFyaWFibGVzID0gYyhWZXJ5V2VsbCA9ICJCMDYwMDdfMDM5IiwgTm90VmVyeVdlbGwgPSAiQjA2MDA3XzA0MCIpLCAKICAgICAgc3RhdGUgPSAiMzQiLAogICAgICB5ZWFyID0gMjAxNSkKZ2dwbG90KG5qLCBhZXMoeCA9IHZhcmlhYmxlLCB5ID1lc3RpbWF0ZSAvIDEwMDAsIGNvbG9yID0gdmFyaWFibGUsIGZpbGwgPSB2YXJpYWJsZSkpKwogIGdlb21fY29sKHdpZHRoID0gMC41KSsKICBnZ3RpdGxlKCJFbmdsaXNoIFByb2ZpY2llbmN5IG9mIEZvcmVpZ24gQm9ybiAnT3RoZXIgTGFuZ3VhZ2UnIFxuIFNwZWFrZXJzIGluIE5KIikrCiAgeGxhYigiRW5nbGlzaCBQcm9maWNpZW5jeSIpKwogIHlsYWIoIk51bWJlciBvZiBTcGVha2VycyAoSW4gVGhvdXNhbmRzKSIpCgpgYGAKPC9kaXY+CiMjIyBPdGhlciBMYW5ndWFnZXMgaW4gTkoKVGhpcyBncmFwaCBzaG93cyB0aGUgRW5nbGlzaCBwcm9maWNpZW5jeSBvZiBmb3JlZ2luIGJvcm4gbm9uLVNwYW5pc2ggc3BlYWtlcnMgaW4gTmV3IEplcnNleS4gVGhlIHggYXhpcyBzaG93cyB0aGUgbGV2ZWwgb2YgcHJvZmljaWVuY3ksIGFuZCB0aGUgeSBheGlzIG1lYXN1cmVzIHRoZSBudW1iZXIgb2Ygc3BlYWtlcnMgaW4gMTAwMHMuIFRoZSBkYXRhIGRpZCBub3Qgc3BlY2lmeSB0aGUgYWdlLCBzZXgsIG9yIHRoZSBlZHVjYXRpb24gbGV2ZWwgb2YgdGhlc2Ugc3BlYWtlcnMuQ29sb3Igd2FzIHVzZWQgdG8gZW1waGFzaXplIHByb2ZpY2llbmN5IGxldmVscy4KICBJbiB0aGlzIGdyb3VwLCBtb3JlIHBlb3BsZSBiZWxpZXZlIHRoYXQgdGhleSBzcGVhayBFbmdsaXNoICJ2ZXJ5IHdlbGwiIHRoYW4gIm5vdCB2ZXJ5IHdlbGwiaG93ZXZlcix0aGUgbnVtYmVyIG9mIHNwZWFrZXJzIGlzbid0IHNpZ25pZmljYW50bHkgZGlmZmVyZW50IGJldHdlZW4gdGhlc2UgZ3JvdXBzLiBUaGVyZSBhcmUgYWJvdXQgNTAwMCBwZW9wbGUgd2hvIGJlbGlldmUgdGhhdCB0aGV5IHNwZWFrIEVuZ2xpc2ggdmVyeSB3ZWxsIGFuZCB0aGVyZSBhcmUgYWJvdXQgNDAwMCBwZW9wbGUgd2hvIGJlbGlldmUgdGhhdCB0aGV5IGRvbid0IHNwZWFrIEVuZ2xpc2ggd2VsbC4gVGhlIGRpZmZlcmVuY2UgYmV0d2VlbiB0aGUgdHdvIGdyb3VwcyBpcyBvbmx5IDEwMDAgcGVvcGxlLiBUaGUgZGlmZmVyZW5jZSBpbiB0aGlzIGRlbW9ncmFwaGljIGlzIHNpZ25pZmljYW50bHkgc21hbGxlciB0aGFuIHRoZSBkaWZmZXJlbmNlIGluIHRoZSBncm91cCBvZiBmb3JlZ2luIGJvcm4gU3BhbmlzaCBzcGVha2Vycy4gCgo8ZGl2IGFsaWduPSJjZW50ZXIiPgoKYGBge3J9Cm5qIDwtIGdldF9hY3MoZ2VvZ3JhcGh5ID0gInN0YXRlIiwgCiAgICAgIHZhcmlhYmxlcyA9IGMoU3BhblZlcnlXZWxsID0gIkIwNjAwN18wMzYiLCBTcGFuTm90VmVyeVdlbGwgPSAiQjA2MDA3XzAzNyIsT0xWZXJ5V2VsbCA9ICJCMDYwMDdfMDM5IiwgT0xOb3RWZXJ5V2VsbCA9ICJCMDYwMDdfMDQwIiksIAogICAgICBzdGF0ZSA9ICIzNCIsCiAgICAgIHllYXIgPSAyMDE1KQpnZ3Bsb3QobmosIGFlcyh4ID0gdmFyaWFibGUsIHkgPWVzdGltYXRlIC8gMTAwMCwgZmlsbCA9IHZhcmlhYmxlKSkrCiAgZ2VvbV9jb2wod2lkdGggPSAwLjUpKwogIHNjYWxlX2ZpbGxfbWFudWFsKHZhbHVlcyA9IGMoIiNGODc2NkQiLCIjMDBCRkM0IiwiI0Y4NzY2RCIsIiMwMEJGQzQiKSkrCiAgZ2d0aXRsZSgiRW5nbGlzaCBQcm9maWNpZW5jeSBvZiBGb3JlaWduIEJvcm4gU3BlYWtlcnMgaW4gTkoiKSsKICB4bGFiKCJFbmdsaXNoIFByb2ZpY2llbmN5IikrCiAgeWxhYigiTnVtYmVyIG9mIFNwZWFrZXJzIChJbiBUaG91c2FuZHMpIikKCmBgYAo8L2Rpdj4KIyMjIEEgTGluZ3Vpc3RpY2FsbHkgRGl2ZXJzZSBOZXcgSmVyc2V5CgogIFRoZSBncmFwaCBhYm92ZSBleHBsb3JlcyB0aGUgRW5nbGlzaCBwcm9maWNpZW5jeSBvZiBmb3JlaWduIGJvcm4gcmVzaWRlbnRzIG9mIE5ldyBKZXJzZXkgd2hvc2UgbmF0aXZlIGxhbmd1YWdlIGlzIG90aGVyIHRoYW4gRW5nbGlzaC4gVGhlc2Ugc3BlYWtlcnMgYXJlIGNhdGVnb3JpemVkIGJldHdlZW4gbmF0aXZlIHNwZWFrZXJzIG9mIFNwYW5pc2ggYW5kIG5hdGl2ZSBzcGVha2VycyBvZiBvdGhlciBsYW5ndWFnZXMuICBBcyBzZWVuIGluIHRoZSBkYXRhLCB0aGUgbnVtYmVyIG9mIG5hdGl2ZSBTcGFuaXNoIHNwZWFrZXJzIGFuZCBuYXRpdmUgc3BlYWtlcnMgb2Ygb3RoZXIgbGFuZ3VhZ2VzIHdobyBkbyBub3Qgc3BlYWsgRW5nbGlzaCB3ZWxsIGFyZSByZWxhdGl2ZWx5IGhpZ2gsIHdpdGggYXBwcm94aW1hdGVseSA0MDAsMDAwIGFuZCA0NzUsMDAwIHBlb3BsZSBpbiBlYWNoIGNhdGVnb3J5LCByZXNwZWN0aXZlbHkuICBUaGVzZSBudW1iZXJzIGFyZSBvbmx5IGVjbGlwc2VkIGJ5IHRoZSBudW1iZXIgb2YgbmF0aXZlIHNwZWFrZXJzIG9mIG90aGVyIGxhbmd1YWdlcyB3aG8gZG8gc3BlYWsgRW5nbGlzaCB3ZWxsLCB3aGljaCB0b3RhbHMgdG8gbmVhcmx5IDUyNSwwMDAgcmVzaWRlbnRzLiAgVGhlIHNtYWxsZXN0IHBvcHVsYXRpb24gaXMgdGhlIG51bWJlciBvZiBuYXRpdmUgU3BhbmlzaCBzcGVha2VycyB3aG8gZG8gc3BlYWsgRW5nbGlzaCB3ZWxsLCB3aGljaCBudW1iZXJzIGFwcHJveGltYXRlbHkgMjE1LDAwMCBzcGVha2Vycy4gIAogIAogIFVsdGltYXRlbHksIHdoYXQgY2FuIGJlIGRldGVybWluZWQgZnJvbSB0aGlzIGdyYXBoIGlzIHRoYXQgdGhlIG51bWJlciBvZiBuYXRpdmUgU3BhbmlzaCBzcGVha2VycyBsaXZpbmcgaW4gTmV3IEplcnNleSB3aG8gY2Fubm90IHNwZWFrIEVuZ2xpc2ggd2VsbCBpcyBoaWdoZXIgdGhhbiB0aGF0IG9mIHRoZSBudW1iZXIgb2YgbmF0aXZlIHNwZWFrZXJzIG9mIG90aGVyIGxhbmd1YWdlcyB3aG8gZG8gbm90IHNwZWFrIEVuZ2xpc2ggd2VsbC4gIEFkZGl0aW9uYWxseSwgdGhlIG51bWJlciBvZiBuYXRpdmUgU3BhbmlzaCBzcGVha2VycyB3aG8gY2Fubm90IHNwZWFrIEVuZ2xpc2ggd2VsbCBpcyBhbHNvIGhpZ2hlciB0aGFuIHRoZSBudW1iZXIgb2YgbmF0aXZlIFNwYW5pc2ggc3BlYWtlcnMgd2hvIGRvIHNwZWFrIEVuZ2xpc2ggd2VsbC4gIENvbnRyYXJpbHksIHRoZSBudW1iZXIgb2YgbmF0aXZlIHNwZWFrZXJzIG9mIG90aGVyIGxhbmd1YWdlcyB3aG8gc3BlYWsgRW5nbGlzaCB3ZWxsIGlzIGhpZ2hlciB0aGFuIHRoZSB0b3RhbCBhbW91bnQgb2YgbmF0aXZlIHNwZWFrZXJzIG9mIG90aGVyIGxhbmd1YWdlcyB3aG8gc3BlYWsgZG8gbm90IHNwZWFrIEVuZ2xpc2ggd2VsbC4K