Branch: master
Find file Copy path
Fetching contributors…
Cannot retrieve contributors at this time
142 lines (83 sloc) 11.7 KB

R is a powerful programming and statistical language. It is popular among scientists and, increasingly, journalists. The core program, known as "base R", does a variety of jobs well. But R's true power comes from a staggering number -- somewhere between 10,000 and 25,000 -- of tools or packages that seemingly can do everything short of baking a pizza. The most popular of these is a suite of packages for data manipulation and visualization developed by Hadley Wickham, known as the tidyverse.

R owes much of its popularity to its price. As open-source software R is, by definition, free. So is the most widely used development environment for R, R Studio. So are the vast majority of R packages. The tradeoff is the learning curve. R is complex. You won't learn it in a few hours or days. Unless you have a superb memory or spend most of your time working with R, you will probably need to keep a manual nearby. It is not Excel. But Excel cannot do a tenth of what R can do.

This introductory class will give you a small idea of R's power. Before we get started here are some rules of the R road:

First, you must install R and R Studio. Both are available for free online and are easily installed. (If you're attending this class at NICAR and taking this class on an IRE laptop, no worries -- the crack IRE staff has already installed both programs.)

Second, you must install whatever packages you need. Most are available at CRAN, the Comprehensive R Archive Network. Installation is a two-step process. If you were to install the tidyverse, for example, you would enter the following commands at the console. The remarks to the right are comments, separated by hash signs, which the computer ignores.

> install.packages("tidyverse")     # command to install package

This would install the package in your computer's hard drive. But in order to use it in a session, you need to activate it:

> library(tidyverse)          # notice that the package name is not in quote marks

And now a couple of shortcuts to spare your wrists:

In R we name things, using an assignment operator to give them names. The assignment operator looks like this: <- That's right, a left-pointing arrow followed by a minus sign. But there's a shortcut! On a Mac it's Option plus the minus sign (Option-). On the PC it's Alt plus the minus sign (Alt-).

Another shortcut that will come in handy is the pipe separator: %>% For that use Command-Shift-M on the Mac or Control-Shift-M on the PC.

Now -- on with the lesson! If you're taking this class at NICAR, the IRE staff has already installed a few packages and some data on our computers, but we'll need to load them into R to work with them.

> library(tidyverse)
> library(readxl)

The readxl package is part of the tidyverse suite, so there's no need to install it, but it must be separately loaded.

Next we'll import American Community Survey data from 2016 listing the number of native and foreign-born persons in each census tract in Cook County, Illinois. In R, tables like this are known as "data frames". We'll name this one "Immigrants" using the assignment operator (<-) that we introduced earlier. Remember the shortcut for assignment operators: Option- on a Mac, Alt- on a PC.

The ever-helpful staff at IRE put all the data files somewhere on your laptops. I promise to find out where before class. The command below is a placeholder.

> Immigrants <- read_excel("ACS_16_5YR_B05012.xlsx")
> View(Immigrants)

The command View() with an upper-case "V" displays a portion of the data frame in the upper left pane. (If you type view(Immigrants) with a lower-case "v", you'll get an error. You'll also get an error if you type View(immigrants) with a lower-case "i" instead of an upper-case "I' at the start of the data frame name Immigrants. Capitalization matters in R.)

The View is nice, but we're missing something crucial -- the percentage of immigrants in each tract. Getting that percentage is a breeze in R: so easy that we'll do it first and then explain how we did it.

> Immigrants <- Immigrants %>% 
  +    mutate(ForeignPer = ForeignBorn / Total)

First "Immigrants <- Immigrants" means that we changed the Immigrants data frame. (As we'll see later, sometimes we create a new data frame based on another data frame, but not this time.) We use the pipe operator (%>%) as a way of connecting two lines together, saying in effect, "and then ..." And then mutate, or change. Here's what we changed: We created a new column, ForeignPer, and we set it equal to the value of ForeignBorn divided by Total. So reading backwards, we divided ForeignBorn by Total, assigned that to the new variable ForeignPer, and changed the existing data frame Immigrants to include this new variable. See? I told you it was easier to do than to explain!

Let's explore the data frame. One of the most useful R functions is str(), which stands for structure. Run str(Immigrants) and see what you get.

Now let's take a closer look at the variable we just created, ForeignPer. We'll begin by using the function summary().

    > summary(Immigrants$ForeignPer)
      Min. 1st Qu.  Median    Mean 3rd Qu.    Max.    NA's 
    0.00000 0.06324 0.16310 0.19260 0.30390 0.69640       4 

The summary() function provides the minimum, maximum, mean, median, first and third quartiles plus the number of NA (not available) values. Notice also that we use the $-sign to connect data frames and columns.

You can see that there are big gaps from the first quartile (25th percentile) to the median (50th percentile) to the 3rd quartile (75th percentile). We can explore these with the quantile() function.

    > quantile(Immigrants$ForeignPer, c(0.1, 0.2, 0.3, 0.4,0.5, 0.6, 0.7, 0.8, 0.9), na.rm=TRUE)
   10%        20%        30%        40%        50%        60%        70%        80% 
    0.01815276 0.04795991 0.08415216 0.12211798 0.16310981 0.21134868 0.27006931 0.34238683 

This takes a little explaining. First let's deal with that c(0.1, 0.2 ...). The c() stands for concatenate or combine; it means apply a formula to everything within the parentheses. In this case we want the quantile of ForeignPer for all these digits. Next, outside the first set of parentheses we've got "na.rm=TRUE"; this is here just in case we have any NA's in the mix. And we know that we've got 4 NA's because they showed up in the summary. NA's play havoc with statistics; they cannot, repeat cannot, be treated the same as a zero. You must explicitly tell R to ignore them. That is exactly what the command "na.rm=TRUE" does.

Finally, let's visualize this with a histogram. R packages such as ggplot2 offer dazzling graphics. But you can get a good idea of what's going on with the simple tools built into base R.

    > hist(Immigrants$ForeignPer)

It looks like immigrants are concentrated. Some tracts have a lot of them while some have very few. Let's find out if immigrants tend to live together. Another way of putting that is by asking a question: Do most immigrants live in tracts with a high percentage of immigrants?

To get the answer, we'll write a short script in R. In the upper left corner of R Studio click on the little white sheet with a green + sign. The first item in the menu is the one we want: R Script. And here's what we enter.

    library(tidyverse)                  # load packages you might need
    HighImmigrant <- Immigrants %>%     # create new data frame based on existing data
     filter(ForeignPer >= .3039) %>%   # filter to get the 75th percentile
      Tracts = n(),
      USBorn = sum(Native),
      Immigrant = sum(ForeignBorn),
      Everyone = sum(Total),
      ImmigPer = (Immigrant / Everyone)

The results: Of 1,320 Chicago area tracts, 311 have immigrant populations at or above the 75th percentile. Those tracts are home to 598,924 foreign-born residents, 54 percent of the county total. So yes, most immigrants in Cook County live near other immigrants.

Now let's look at income in Cook County. We'll do that by importing census data on median household income by tract.

    > Income <- read_excel("ACS_16_5YR_B19013.xlsx")
    > View(Income)

When we imported the Immigrants data frame earlier, we used the str() function to look at the structure. If you do that for Income, you'll get a surprise -- R imported the MedianHHInc column as a string or character. We need to change that to a number so we can make calculations.

    > Income$MedianHHInc <- as.numeric(Income$MedianHHInc)
    Warning message:
    NAs introduced by coercion

The as.numeric() function changes a string to a number. We assign the column to the Income data frame to make the change permanent. The warning message tells us that there are some NA's (not available values) in the column. With that, let's see how incomes vary among Cook County tracts.

    > hist(Income$MedianHHInc)

It's clear that most of the 1,320 Cook County tracts have median incomes in the range of $30,000 to $60,000. But the histogram shows there are a small number of wealthy tracts. Let's join the Immigrants and Income data frames to see if there's a relationship between the percentage of immigrants and median household income in Chicago area tracts. We'll join the data frames using a column they share, "Id2"; it's the FIPS code that some of you have used in Census reporting.

    > ImmigInc <- inner_join(Immigrants, Income, by="Id2")
    > View(ImmigInc)

This creates a joined data frame. The Geography field is duplicated. There's a way to join data frames without duplicating fields, but it's sometimes more trouble than it's worth. In this case it's easier to eliminate the duplicate field after creating it.

     > colnames(ImmigInc)[7]
    [1] "Geography.y"
    > ImmigInc[7] <- NULL
    > View(ImmigInc)

First I used the colnames() function and an index contained in square brackets to get the name of the seventh column in ImmigInc. R confirmed that the seventh column was the one I wanted, the duplicate column Geography.y. Next I listed the data frame name with the index for the column, followed by the assignment operator and the word NULL. Translation: Terminate with extreme prejudice. Finally I told R to View the data frame. The duplicate column, Geography.y, is gone.

Now where were we? Oh yes, looking for a relationship between income and the percentage of immigrants by tract. Let's do a scatterplot to see if we can find a relationship.

    > plot(ImmigInc$ForeignPer, ImmigInc$MedianHHInc)

Um, no.

But what if we look closer at the tracts where immigrants comprise a greater share of the population. We know from our earlier research that more than half of immigrants live in neighborhoods where immigrants make up well over 30 percent of the population. Is there some tipping point where the level of immigration begins to affect income (or vice versa)?

To find out we'll create a subset of ImmigInc comprised of just those neighborhoods we identified earlier -- the 331 tracts in the 75th percentile and above where at least 30.39 percent of all residents were foreign-born.

    > ImmigInc2 <- subset(ImmigInc, ForeignPer >= .3039)

And here's the scatterplot:

The correlation (r-squared) has gone from a laughable 0.039 when all tracts are measured to a still weak 0.20 for the tracts with large immigrant populations. So there you have it: Statistics at work.