**R – Displayr**, and kindly contributed to R-bloggers)

How does Linear Discriminant Analysis work and how do you use it in R? This post answers these questions and provides an introduction to Linear Discriminant Analysis.

*Linear Discriminant Analysis* (LDA) is a well-established machine learning technique for predicting categories. Its main advantages, compared to other classification algorithms such as neural networks and random forests, are that the model is interpretable and that prediction is easy.

## The intuition behind Linear Discriminant Analysis

Linear Discriminant Analysis takes a data set of *cases* (also known as *observations*) as input. For each case, you need to have a *categorical variable* to define the *class* and several *predictor variables *(which are numeric). We often visualize this input data as a *matrix, *such as shown below, with each case being a row and each variable a column. In this example, the categorical variable is called “class” and the predictive variables (which are numeric) are the other columns.

Think of each case as a point in N-dimensional space, where N is the number of predictor variables. Every point is labeled by its category. (Although it focuses on t-SNE, this video neatly illustrates what we mean by *dimensional space*).

The LDA algorithm uses this data to divide the space of predictor variables into *regions*. The regions are labeled by categories and have linear boundaries, hence the “L” in LDA. The model predicts the category of a new unseen case according to which region it lies in. The model predicts that all cases within a region belong to the same category.

The linear boundaries are a consequence of assuming that the predictor variables for each category have the same *multivariate Gaussian distribution*. Although in practice this assumption may not be 100% true, if it is approximately valid then LDA can still perform well.

Mathematically, LDA uses the input data to derive the *coefficients* of a *scoring function* for each category. Each function takes as arguments the numeric predictor variables of a case. It then scales each variable according to its category-specific coefficients and outputs a score. The LDA model looks at the score from each function and uses the highest score to allocate a case to a category (prediction). We call these scoring functions the *discriminant functions*.

I am going to stop with the model described here and go into some practical examples. If you would like more detail, I suggest one of my favorite reads, Elements of Statistical Learning (section 4.3).

## Linear Discriminant Analysis Example

### Predicting the type of vehicle

Even though my eyesight is far from perfect, I can normally tell the difference between a car, a van, and a bus. I might not distinguish a Saab 9000 from an Opel Manta though. They are cars made around 30 years ago (I can’t remember!). Despite my unfamiliarity, I would hope to do a decent job if given a few examples of both.

I will demonstrate Linear Discriminant Analysis by predicting the type of vehicle in an image. The 4 vehicle categories are a double-decker bus, Chevrolet van, Saab 9000 and Opel Manta 400. The input features are not the raw image pixels but are 18 numerical features calculated from silhouettes of the vehicles. You can read more about the data behind this LDA example here.

To start, I load the 846 instances into a *data.frame* called *vehicles*. The columns are labeled by the variables, with the target outcome column called *class*. The earlier table shows this data.

*flipMultivariates: *A new R package

The package I am going to use is called *flipMultivariates* (click on the link to get it). It is based on the *MASS* package, but extends it in the following ways:

- Handling of weighted data
- Graphical outputs
- Options for missing data
- Ability to output discriminant functions

The package is installed with the following R code.

library(devtools) install_github("Displayr/flipStandardCharts")

Then the model is created with the following two lines of code.

library(flipMultivariates) lda <- LDA(class ~ ., data = vehicles)

The output is shown below. The subtitle shows that the model identifies buses and vans well but struggles to tell the difference between the two car models. The first four columns show the means for each variable by category. High values are shaded in blue ad low values in red, with values significant at the 5% level in bold. The *R-Squared* column shows the proportion of variance within each row that is explained by the categories. On this measure, *ELONGATEDNESS* is the best discriminator.

## Customizing the LDA model with alternative inputs in the code

The *LDA* function in *flipMultivariates* has a lot more to offer than just the default. Consider the code below:

lda.2 <- LDA(class ~ COMPACTNESS + CIRCULARITY + DISTANCE.CIRCULARITY + RADIUS.RATIO, data = vehicles, output = "Scatterplot", prior = "Equal", subset = vehicles$ELONGATEDNESS < 50, weight = ifelse(vehicles$class == "saab", 2, 1))

I’ve set a few new arguments, which include;

- output
- The default output is Means
*,*which is what you got in the very first output. In the code immediately above, I changed this to be Scatterplot.*scatterplot*in the next section. Also available are Prediction-Accuracy Table, Detail and Discriminant Functions. The latter produces a table of the coefficients of the*discriminant functions*described earlier.

- The default output is Means
- prior
- This argument sets the prior probabilities of category membership. Observed is the default, which uses the frequencies of the input data. It is also possible to specify values for each category as a vector (which naturally sum to 1). Equal implies that vehicles are equally distributed across the categories.

- subset
- This
*ELONGATEDNESS*(less than scores of 50 on that numeric predictor variable)

- This
- weight
- This
*saab*cars.

- This

It is also possible to control treatment of missing variables with the missing argument (not shown in the code example above). The options are Exclude cases with missing data (default), Error if missing data and Imputation (replace missing values with estimates)*. *Imputation allows the user to specify additional variables (which the model uses to estimate replacements for missing data points).

The R command ?LDA gives more information on all of the arguments.

## Interpreting the Linear Discriminant Analysis output

The previous block of code above produces the following scatterplot. (Note: I am no longer using all the predictor variables in the example below, for the sake of clarity). I am going to talk about two aspects of interpreting the scatterplot: how each dimension separates the categories, and how the predictor variables correlate with the dimensions.

I said above that I would stop writing about the model. However, to explain the scatterplot I am going to have to mention a few more points about the algorithm. If you prefer to gloss over this, please skip ahead.

An alternative view of linear discriminant analysis is that it projects the data into a space of (number of categories – 1) dimensions. In this example that space has 3 dimensions (4 vehicle categories minus one). While this aspect of dimension reduction has some similarity to *Principal Components Analysis* (PCA), there is a difference. The difference from PCA is that LDA chooses dimensions that maximally separate the categories (in the transformed space). The LDA model orders the dimensions in terms of how much separation each achieves (the first dimensions achieves the most separation, and so forth). Hence the scatterplot shows the means of each category plotted in the first two dimensions of this space. So in our example here, the first dimension (the horizontal axis) distinguishes the cars (right) from the *bus* and* van *categories (left)*. *However, the same dimension does not separate the cars well.

Also shown are the correlations between the predictor variables and these new dimensions. Because DISTANCE.CIRCULARITY has a high value along the first linear discriminant it positively correlates with this first dimension. It has a value of almost zero along the second linear discriminant, hence is virtually uncorrelated with the second dimension. Note the scatterplot scales the correlations to appear on the same scale as the means. So you can’t just read their values from the axis. In other words, the means are the primary data, whereas the scatterplot adjusts the correlations to “fit” on the chart.

## The Prediction-Accuracy Table

Finally, I will leave you with this chart to consider the model’s *accuracy*. Changing the output argument in the code above to *Prediction-Accuracy Table* produces the following:

So from this, you can see what the model gets right and wrong (in terms of correctly predicting the class of vehicle). The ideal is for all the cases to lie on the diagonal of this matrix (and so the diagonal is a deep color in terms of shading). But here we are getting some misallocations (no model is ever perfect). For instance, 19 cases that the model predicted as *Opel* are actually in the *bus* category (observed). Given the shades of red and the numbers that lie outside this diagonal (particularly with respect to the confusion between *Opel* and *saab*) this LDA model is far from perfect.

## Try it yourself

I created the analyses in this post with R in Displayr. You can review the underlying data and code or run your own LDA analyses here (just sign into Displayr first). I used the flipMultivariates package (available on GitHub).

Displayr also makes Linear Discriminant Analysis and other machine learning tools available through menus, alleviating the need to write code.

This dataset originates from the Turing Institute, Glasgow, Scotland, which closed in 1994 so I doubt they care, but I’m crediting the source anyway.

**leave a comment**for the author, please follow the link and comment on their blog:

**R – Displayr**.

R-bloggers.com offers

**daily e-mail updates**about R news and tutorials on topics such as: Data science, Big Data, R jobs, visualization (ggplot2, Boxplots, maps, animation), programming (RStudio, Sweave, LaTeX, SQL, Eclipse, git, hadoop, Web Scraping) statistics (regression, PCA, time series, trading) and more...