Excel spreadsheets are unique in that they can contain multiple spreadsheets as a workbook.
Excel file names end with a .xls or .xlsx
Weird, right? Definitely difficult to parse.
What I do sometimes (often) is save a sheet from Excel as a .csv file.
That’s a short cut. But if you want to be transparent and really deal with the raw data then:
First, install the
readxl package if you have not yet done so.
That will have
readxl as part of the group of packages.
## If you don't have readxl installed, uncomment the line below and run it #install.packages("readxl") library(readxl)
Unlike a csv, you can’t just copy and paste the URL for an Excel sheet.
You gotta download the file first.
Right click the link of the Excel data link and click Save File As…
Excel spreadsheets have multiple sheets and it’s best to explore what it looks like in Excel first because
read_excel() requires specific sheets to be referred to when importing.
Give it a shot with the first sheet.
df_xl <- read_excel("data/StatisticsSummary.xls", sheet=1)
This isn’t right.
The problem with Excel files is that people love to format it in ways that make it look nice in Excel but makes no sense in R.
But this time we’ll add
skip=2 so it skips the first rows when bringing in the data.
df_xl <- read_excel("data/StatisticsSummary.xls", sheet=1, skip=2)
Notice that the column names are preserved with spaces and symbols.
# the colnames() function lists the column names of the dataframe colnames(df_xl)
##  "Fiscal Year 7/1-6/30" "Accessions" ##  "Autopsies" "Exam-inations" ##  "Other Cases" "TOTAL" ##  "Cremations" "% incl crem" ##  "Homicides" "Suicide" ##  "Accidents" "Undetermined" ##  "ALL" "U 20" ##  "U 17" "SIDS" ##  "Clinicals"
So how would one refer to the data in the columns with spaces
If we did it like normal with the
$ to pull the column we’d try
## Error: <text>:1:18: unexpected symbol ## 1: head(df_xl$Other Cases ## ^
See, spaces won’t work. This is how to deal with columns with spaces– add the back tick next to the 1 button on your keyboard.
##  39 17 40 40 40 37
It’s some extra finger work that you might be okay with if it was in a limited basis.
However, in anticipation of the work we’re going to be doing, we should go ahead and simplify the column names so there are no characters or spaces. Here’s how
We’ll use the
make.names() function on the column names. This function makes syntactically valid names out of character vectors (as in in strips out the spaces and replaces them with periods)
colnames(df_xl) <- make.names(colnames(df_xl))
##  "Fiscal.Year......22.214.171.124" "Accessions" ##  "Autopsies" "Exam.inations" ##  "Other.Cases" "TOTAL" ##  "Cremations" "X..incl.crem" ##  "Homicides" "Suicide" ##  "Accidents" "Undetermined" ##  "ALL" "U.20" ##  "U.17" "SIDS" ##  "Clinicals"
Alright, that’s a bit better.
Still, there’s some oddness in the names but that’s because enters were replaced with periods.
Check out the first column:
Let’s change that so it’s easier to type later on.
I’ll show you how to do it in Base R and using the dplyr package
Fiscal.Year......126.96.36.199 and paste it into `colnames(dataframe_name)[colnames(dataframe_name) == ‘ColumnNameToBeChanged’] <- ‘NewColumnName’
# Don't run this, I just want to show you the process colnames(df_xl)[colnames(df_xl) == 'Fiscal.Year......188.8.131.52'] <- 'Year'
Here’s how to do it with dplyr: By using the
## If you don't have dplyr installed yet, uncomment the line below and run it # install.packages("dplyr") library(dplyr)
## ## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats': ## ## filter, lag
## The following objects are masked from 'package:base': ## ## intersect, setdiff, setequal, union
df_xl <- rename(df_xl, Year=Fiscal.Year......184.108.40.206)
It’s slightly different– there are less parentheses and brackets and equal signs.
And you don’t need to add quotation marks.
##  "Year" "Accessions" "Autopsies" "Exam.inations" ##  "Other.Cases" "TOTAL" "Cremations" "X..incl.crem" ##  "Homicides" "Suicide" "Accidents" "Undetermined" ##  "ALL" "U.20" "U.17" "SIDS" ##  "Clinicals"
Fix the other names if you want. I’m going to leave them as is for now.
Scroll down to the bottom of the data.
Not clean yet. There are a bunch of
That might give us some issues later on so let’s take care of it now.
Easiest way to get rid of NAs is to subset or filter out the
NAs based on one column.
Let’s use the
There are two ways:
df_xl <- subset(df_xl, !is.na(Year))
## If you don't have dplyr installed yet, uncomment the line below and run it # install.packages("dplyr") library(dplyr) df_xl <- filter(df_xl, !is.na(Year))
What’s the difference? dplyr is part of the tidyverse suite of packages that we’ll be getting into later on in the course. Go ahead and use that.
NAs at the bottom.
It took a few lines of code but the data has been cleaned up enough to analyze or visualize with.
It’s preferable to save data frames as CSVs because it’s more open and doesn’t require a paid program for others to open.
But if you must, there are some decent walkthroughs:
© Copyright 2018, Andrew Tran