Why estimate \(f\)?

Two main reasons for estimating \(f\) are prediction and inference:

1. prediction: Given a set of inputs \(X\) we predict, \(\hat{Y} = \hat{f}(X)\) based on a black box estimate of \(\hat{f}\). The accuracy of \(\hat{Y}\) as a prediction for \(Y\) depends on two quantities: The reducible error results from inadequacies in \(\hat{f}\) that can be refined by using a better model; by contrast, the irreducible error results from the variability in \(Y\) due to \(\epsilon\), which cannot be captured by improving \(\hat{f}\). The irreducible error will always provide an upper bound on the accuracy of our prediction for \(Y\) (see Equation 2.3, James et al., 2021, p. 19).

2. inference: Rather than making predictions for \(Y\), we may want to understand the association between \(Y\) and \(X = (X_1,\ X_2,\ \ldots,\ X_p)\). In this situation we wish to estimate \(f\) to gain a deeper understanding of the form of the relationship (e.g., linear or non-linear), as well as the direction and magnitude of the association between the outcome and its predictors.

In practice, we often aim for a combination of both prediction and inference (see examples in James et al., 2021, p. 19f.). We often have a trade-off that models need to negotiate between both goals: For example, linear models allow for relatively simple and interpretable inference, but may not yield as accurate predictions as some other approaches. By contrast, some highly non-linear approaches (covered in the later chapters of the book) can provide quite accurate predictions, but come at the expense of a less interpretable model for which inference is more challenging.

How do we estimate \(f\)?

Our general task is to apply a statistical learning method to training data for estimating an unknown function \(f\).

Linear and non-linear approaches for estimating \(f\) share certain characteristics.

Most statistical learning methods can be characterized as either parametric or non-parametric:

1. parametric methods involve a two-step model-based approach:

   1. Make assumption about the functional form or shape of \(f\) (e.g., a linear, polynomial equation).

   2. Use the training data to fit or train the model (e.g., minimizing squared deviations).

This model-based approach is called parametric as it reduces the problem of estimating \(f\) to estimating a set of parameters (e.g., the coefficients of an equation).

Example: Compare Figure 2.4 (p. 22: A linear regression model fit by least squares to the Income2 data) to the original data from Figure 2.3 (p. 18).

• Advantage: It is easier to estimate parameters for a given form of \(f\) than to estimate the form of \(f\).

• Cost: If the form is wrong, the fits and predictions of the paremetric model will be poor.

Fitting more flexible models (i.e., varying both the form and the parameters) requires additional parameters and is likely to result in overfitting (i.e., fitting not just systematic information, but also random errors/noise).

2. non-parametric methods make no explicit assumptions about the functional form of \(f\). Instead, they aim to estimate \(f\) by some model that fits as clasely as possible (given some metric of quantifying deviations).

Example: Figure 2.5 (p. 23) and Figure 2.6 (p. 24) use a thin-plate spline to estimate \(f\) for the Income2 data (shown in Figure 2.3, p. 18). By varying the level of smoothness (i.e., a parameter of the spline), the fit can be increased, but this can result in overfitting.

Note an Erratum (James et al., 2021, p. 24):
“Figure 2.6 shows the same thin-plate spline fit using a lower level of smoothness, allowing for a rougher fit.”
should read:
“Figure 2.6 shows the same thin-plate spline fit using a lower level of smoothness, allowing for a closer fit.”
or more explicitly:
“Figure 2.6 shows the same thin-plate spline fit using a lower level of smoothness, allowing for rougher surface functions and closer fits.”

• Advantage: By avoiding the limitation on a particular form for \(f\), a wider range of possible shapes for \(f\) can be fit.

• Cost: More data is needed, as the range of potential models is far larger than when only estimating parameters.

The trade-off between prediction accuracy and model interpretability

Given the closer fit of more flexible models, we can ask: Why would we ever use a more restrictive method instead of a very flexible approach?

The preference for a more restrictive vs. more flexible model depends mostly on our goals:

• If we are mainly interested in inference, then restrictive models are usually more interpretable. By contrast, flexible models can become intransparent and difficult or impossible to understand.

• If we are mainly interested in prediction, more flexible models usually show a closer fit to observed/training data. However, due to the risk of overfitting, this apparent advantage may not carry over to out-of-sample and out-of-population predictions.

See Figure 2.7 (p. 25) for a representation of the tradeoff between flexibility and interpretability for different statistical learning methods (e.g., lasso, least squares, trees, deep learning). In general, as the flexibility of a method increases, its interpretability decreases.

Overall, when inference is the main goal, using simple and relatively inflexible models has clear advantages. When prediction is the main goal, more flexible models usually provide better fits to observed data than simpler models, but their benefits and costs for predicting new data become an empirical question.

Supervised versus unsupervised learning

Most statistical learning problems fall into one of two categories: supervised or unsupervised.

1. supervised learning: For each observation of the predictor measurement(s) \(x_i\), \(i = 1,\ \ldots,\ n\) there is an associated response measurement \(y_i\).

Example: The majority of problems discussed here correspond to this setting: linear regression (Chapter 3), logistic regression (Chapter 4), as well as more modern approaches, such as GAM, boosting, and support vector machines, belong to the supervised learning domain.

2. unsupervised learning: For every observation \(i = 1,\ \ldots,\ n\) we observe a vector of measurements \(x_i\) but no associated response \(y_i\). Thus, we cannot fit a model, because we lack a response variable that can supervise our analysis.

Example: In this more challenging setting, we seek to understand the relationships between the variables or between the observations (e.g., by cluster analysis, seeking to distinguish between groups of observations on the basis of input variables, see Figure 2.8, p. 27, and Chapter 12).

Note that hybrid problems are possible. Example: In a semi-supervised learning problems, we have a total of \(n\) observations. For a subset \(m < n\) of the observations, we have both predictor measurements and a response measurement. For the remaining \((n − m)\) observations, we have only predictor measurements but no response measurement.

Regression versus classification problems

Variables can be characterized as either quantitative or qualitative (aka. categorical):

• Quantitative variables take on numerical values. Examples: A person’s age, height, or income, the value of a house, and the price of a stock.

• Qualitative variables take on values in one of \(k\) different classes, or categories. Examples: A person’s marital status (married or not), the brand of product purchased (brand A, B, or C), whether a person defaults on a debt (yes or no), or a cancer diagnosis (Acute Myelogenous Leukemia, Acute Lymphoblastic Leukemia, or No Leukemia).

We tend to refer to problems with a quantitative response as regression problems, while those involving a qualitative response are often referred to as classification problems.

Note:

• Mixed cases exist. For example, as logistic regression predicts binary outcomes, it is a classification method. But as it assigns continuous probabilities to outcomes, it can be thought of as a regression method as well.

• Statistical learning methods are usually selected on the basis of whether the response (outcome) is quantitative or qualitative (e.g., we might use linear regression with quantitative responses and logistic regression with qualitative responses). However, whether the predictors (inputs) are qualitative or quantitative is generally less important (provided that they are coded appropriately, see Chapter 3).

Measuring the quality of fit

Minimizing mean squared error (MSE) of model predictions (a) for training data vs. (b) for test data. Typically, we aim for the lowest test MSE (i.e., minimizing deviations for previously unseen test observations that were not used to train the model) or lowest average squared prediction error.

Figure 2.9 (p. 31) illustrates the trade-off between accuracy in fitting vs. predicting by model complexity:

• (a) fitting: More complex models (with many degrees of freedom) fit training data better (i.e., relation between degrees of freedom and training MSE is monotonic, but may be non-linear).

• (b) predicting: Models of intermediate complexity predict new data better than very simple and very complex models (i.e., U-shaped curve for test MSE by degrees of freedom). An increase in test MSE for complex models is due to overfitting the training data (i.e., a less flexible model would have yielded a smaller test MSE).

Contrast with Figure 2.10 (p. 33) that assumes a true relationship (or \(f\)) that is approximately linear (2 df):

• (a) for fitting/training data, complex models are better (as always), but

• 2. for predicting/test data, simple linear model (with 2 df) is almost as good as optimal model (of intermediate complexity).

Contrast with Figure 2.11 (p. 34) that assumes a true relationship (or \(f\)) that is curvilinear (with 5+ df):

• Linear regression (with only 2 df) provides a poor fit to both training and test data.

Ideally, we aim for a simple model (i.e., a transparent model allowing for inference) that is also good at predicting new data. Many methods exist for negotiating the trade-off between model complexity and each model’s performance for fitting vs. predicting data. An important method for estimating test MSE using the training data is cross-validation (Chapter 5).

The bias-variance trade-off

The U-shape between model-complexity and fit observed in the test MSE curves (see Figures 2.9 to 2.11, p. 31ff.) is the result of two competing properties of statistical learning methods.

For a given value \(x_0\), the expected test MSE at \(x_0\) \(\text{E}(y_0 - \hat{f}(x_0))^2\) can be decomposed into the sum of three fundamental quantities:

1. the variance of \(\hat{f}(x_0)\),
   
2. the squared bias \([\text{Bias}\ \hat{f}(x_0)]^2\) and
   
3. the variance of the error terms \(\text{Var}(\epsilon)\).

\[ \text{E}(y_0 - \hat{f}(x_0))^2 = \hat{f}(x_0) + [\text{Bias}\ \hat{f}(x_0)]^2 + \text{Var}(\epsilon) \]

What do the terms variance and bias mean in the context of statistical modeling?

• variance refers to the flexibility of our model that depends on fitting it to specific data. Specifically, model variance depends on the amount by which \(\hat{f}\) would change if we estimated it from different training data set. When a model has high variance, small changes in the data can yield large changes in \(\hat{f}\).

• bias refers to a systematic error that is introduced by using a particular model or type of model. In many settings, bias results from approximating a real-life problem, which may be complicated (or depend on many influences), by a simpler model (that ignores a lot of information).

The bias-variance trade-off implies that

• more flexible models generally exhibit higher variance, but result in lower bias.

• By contrast, simpler models tend to have lower variance, but higher bias.

Example of variance decomposition: Figure 2.12 (p. 36) shows the squared bias (blue), variance (orange), \(\text{Var}(\epsilon)\) (dashed), and test MSE (red) for the three data sets in Figures 2.9–2.11.

Note:

• To minimize the expected test error, we aim for a statistical learning method that simultaneously achieves low variance and low (squared) bias (on the test data). As maximizing either criterion is easy (i.e., by using either a very flexible or a very simple model), but the corresponding methods usually oppose each other, the challenge lies in finding a good compromise that simultaneously satisfies both criteria.

• As squared errors and variance are non-negative, the expected test MSE can never lie below the irreducible error \(\text{Var}(\epsilon)\).

• In a real-life situation, the true \(f\) is unobserved (i.e., only to be inferred). Thus, it is generally not possible to compute a model’s test MSE, bias, or variance. However, methods like cross-validation allow estimating the test MSE using the training data (see Chapter 5).

The classification setting

Whereas the quantification of model accuracy is mostly discussed in regression settings, the same issues arise for classification tasks. A simple way to quantify classification performance is to compute the average number of erroneous classifications (via an indicator variable that signals erroneous classifications) for the training and test data (i.e., training error rate vs. test error rate). A good classifier should have a small test error rate.

Basic commands

R uses functions to perform operations. To run a function called funcname(), we type funcname(input1, input2), where the inputs (or arguments) input1 and input2 tell R how to run the function. A function can have any number of inputs. For example, to create a vector of numbers, we use the function c() (for concatenate). Any numbers inside the parentheses are joined together. The following command instructs R to join together the numbers 1, 3, 2, and 5, and to save them as a vector named x. When we type x, it gives us back the vector:

x <- c(1, 3, 2, 5)
x
## [1] 1 3 2 5

Note that the > is not part of the command; rather, it is printed by R to indicate that it is ready for another command to be entered. We can also save things using = rather than <-:

x = c(1, 6, 2)
x
## [1] 1 6 2
y = c(1, 4, 3)

Hitting the up arrow multiple times will display the previous commands, which can then be edited. This is useful since one often wishes to repeat a similar command. In addition, typing ?funcname will always cause R to open a new help file window with additional information about the function funcname().

We can tell R to add two sets of numbers together. It will then add the first number from x to the first number from y, and so on. However, x and y should be the same length. We can check their length using the length() function:

length(x)
## [1] 3
length(y)
## [1] 3
x + y
## [1]  2 10  5

The ls() function allows us to look at a list of all of the objects, such as data and functions, that we have saved so far. The rm() function can be used to delete any that we don’t want:

ls()
##  [1] "ad"        "data_file" "data_url"  "fileName"  "in_1"      "lm_1"     
##  [7] "opar"      "wd"        "x"         "y"         "y_hat"
rm(x, y)
ls()
## [1] "ad"        "data_file" "data_url"  "fileName"  "in_1"      "lm_1"     
## [7] "opar"      "wd"        "y_hat"

It’s also possible to remove all objects at once:

rm(list = ls())

The matrix() function can be used to create a matrix of numbers. Before we use the matrix() function, we can learn more about it:

?matrix

The help file reveals that the matrix() function takes a number of inputs, but for now we focus on the first three: the data (the entries in the matrix), the number of rows, and the number of columns. First, we create a simple matrix:

x <- matrix(data = c(1, 2, 3, 4), nrow = 2, ncol = 2)
x
##      [,1] [,2]
## [1,]    1    3
## [2,]    2    4

Note that we could just as well omit typing data=, nrow=, and ncol= in the matrix() command above — that is, we could just type:

x <- matrix(c(1, 2, 3, 4), 2, 2)

and this would have the same effect. However, it can sometimes be useful to specify the names of the arguments passed in, since otherwise R will assume that the function arguments are passed into the function in the same order that is given in the function’s definition (or help file). As this example illustrates, by default R creates matrices by successively filling in columns. Alternatively, the byrow = TRUE option can be used to populate the matrix in order of the rows:

matrix(c(1, 2, 3, 4), 2, 2, byrow = TRUE)
##      [,1] [,2]
## [1,]    1    2
## [2,]    3    4

Notice that in the above command we did not assign the matrix to a value such as x. In this case the matrix is printed to the screen but is not saved for future calculations. The sqrt() function returns the square root of each element of a vector or matrix. The command x^2 raises each element of x to the power 2; any powers are possible, including fractional or negative powers:

sqrt(x)
##          [,1]     [,2]
## [1,] 1.000000 1.732051
## [2,] 1.414214 2.000000
x^2
##      [,1] [,2]
## [1,]    1    9
## [2,]    4   16

The rnorm() function generates a vector of random normal variables, with first argument n the sample size. Each time we call this function, we will get a different answer. Here we create two correlated sets of numbers, x and y, and use the cor() function to compute the correlation between them:

x <- rnorm(50)
y <- x + rnorm(50, mean = 50, sd = .1)
cor(x, y)
## [1] 0.9936505

By default, rnorm() creates standard normal random variables with a mean of \(0\) and a standard deviation of \(1\). However, the mean and standard deviation can be altered using the mean and sd arguments, as illustrated above. Sometimes we want our code to reproduce the exact same set of random numbers; we can use the set.seed() function to do this. The set.seed() function takes an (arbitrary) integer argument:

set.seed(1303)
rnorm(50)
##  [1] -1.1439763145  1.3421293656  2.1853904757  0.5363925179  0.0631929665
##  [6]  0.5022344825 -0.0004167247  0.5658198405 -0.5725226890 -1.1102250073
## [11] -0.0486871234 -0.6956562176  0.8289174803  0.2066528551 -0.2356745091
## [16] -0.5563104914 -0.3647543571  0.8623550343 -0.6307715354  0.3136021252
## [21] -0.9314953177  0.8238676185  0.5233707021  0.7069214120  0.4202043256
## [26] -0.2690521547 -1.5103172999 -0.6902124766 -0.1434719524 -1.0135274099
## [31]  1.5732737361  0.0127465055  0.8726470499  0.4220661905 -0.0188157917
## [36]  2.6157489689 -0.6931401748 -0.2663217810 -0.7206364412  1.3677342065
## [41]  0.2640073322  0.6321868074 -1.3306509858  0.0268888182  1.0406363208
## [46]  1.3120237985 -0.0300020767 -0.2500257125  0.0234144857  1.6598706557

We use set.seed() throughout the labs whenever we perform calculations involving random quantities. In general this should allow the user to reproduce our results. However, as new versions of R become available, small discrepancies may arise between this book and the output from R.

The mean() and var() functions can be used to compute the mean and variance of a vector of numbers. Applying sqrt() to the output of var() will give the standard deviation. Or we can simply use the sd() function:

set.seed(3)
y <- rnorm(100)
mean(y)
## [1] 0.01103557
var(y)
## [1] 0.7328675
sqrt(var(y))
## [1] 0.8560768
sd(y)
## [1] 0.8560768

Graphics

The plot() function is the primary way to plot data in R. For instance, plot(x, y) produces a scatterplot of the numbers in x versus the numbers in y. There are many additional options that can be passed in to the plot() function. For example, passing in the argument xlab will result in a label on the \(x\)-axis. To find out more information about the plot() function, type ?plot.

x <- rnorm(100)
y <- rnorm(100)

plot(x, y)

plot(x, y, xlab = "this is the x-axis",
     ylab = "this is the y-axis",
     main = "Plot of X vs Y")

We will often want to save the output of an R plot. The command that we use to do this will depend on the file type that we would like to create. For instance, to create a PDF file, we could use the pdf() function, and to create a JPEG file, we use the jpeg() function:

pdf("Figure.pdf")

plot(x, y, col = "green")
dev.off()

The function dev.off() indicates to R that we are done creating the plot. Alternatively, we can simply copy the plot window and paste it into an appropriate file type, such as a Word document.

x <- seq(1, 10)
x
##  [1]  1  2  3  4  5  6  7  8  9 10
x <- 1:10
x
##  [1]  1  2  3  4  5  6  7  8  9 10
x <- seq(-pi, pi, length = 50)

y <- x
f <- outer(x, y, function(x, y) cos(y) / (1 + x^2))

contour(x, y, f)
contour(x, y, f, nlevels = 45, add = TRUE)

fa <- (f - t(f)) / 2

contour(x, y, fa, nlevels = 15)

image(x, y, fa)

persp(x, y, fa)

persp(x, y, fa, theta = 30)

persp(x, y, fa, theta = 30, phi = 20)

persp(x, y, fa, theta = 30, phi = 70)

persp(x, y, fa, theta = 30, phi = 40)

Indexing data

We often wish to examine part of a set of data. Suppose that our data is stored in the matrix A.

A <- matrix(1:16, 4, 4)
A
##      [,1] [,2] [,3] [,4]
## [1,]    1    5    9   13
## [2,]    2    6   10   14
## [3,]    3    7   11   15
## [4,]    4    8   12   16

Then, typing

A[2, 3]
## [1] 10

will select the element corresponding to the second row and the third column. The first number after the open-bracket symbol [ always refers to the row, and the second number always refers to the column. We can also select multiple rows and columns at a time, by providing vectors as the indices:

A[c(1, 3), c(2, 4)]
##      [,1] [,2]
## [1,]    5   13
## [2,]    7   15
A[1:3, 2:4]
##      [,1] [,2] [,3]
## [1,]    5    9   13
## [2,]    6   10   14
## [3,]    7   11   15
A[1:2, ]
##      [,1] [,2] [,3] [,4]
## [1,]    1    5    9   13
## [2,]    2    6   10   14
A[, 1:2]
##      [,1] [,2]
## [1,]    1    5
## [2,]    2    6
## [3,]    3    7
## [4,]    4    8

The last two examples include either no index for the columns or no index for the rows. These indicate that R should include all columns or all rows, respectively. R treats a single row or column of a matrix as a vector:

A[1, ]
## [1]  1  5  9 13

The use of a negative sign - in the index tells R to keep all rows or columns except those indicated in the index:

A[-c(1, 3), ]
##      [,1] [,2] [,3] [,4]
## [1,]    2    6   10   14
## [2,]    4    8   12   16
A[-c(1, 3), -c(1, 3, 4)]
## [1] 6 8

The dim() function outputs the number of rows followed by the number of columns of a given matrix:

dim(A)
## [1] 4 4

Loading data

For most analyses, the first step involves importing a data set into R. The read.table() function is one of the primary ways to do this. The help file contains details about how to use this function. We can use the function write.table() to export data.

Before attempting to load a data set, we must make sure that R knows to search for the data in the proper directory. For example, on a Windows system one could select the directory using the Change dir ... option under the File menu. However, the details of how to do this depend on the operating system (e.g. Windows, Mac, Unix) that is being used, and so we do not give further details here.

# Data: 
# https://www.statlearning.com/resources-second-edition
data_url  <- "https://www.statlearning.com/s/Auto.csv"

wd <- getwd()
if (wd == "/Users/hneth/Desktop/stuff/Dropbox/GitHub/predict/R"){ # in subdir R: 
  data_file <- "./../data/_JamesEtAl2021_ISL2/data/Auto.data"  # up 1 level
} else {
  data_file <- "./data/_JamesEtAl2021_ISL2/data/Auto.data" 
}

Auto <- read.table(data_file)
# View(Auto)
head(Auto)
##     V1        V2           V3         V4     V5           V6   V7     V8
## 1  mpg cylinders displacement horsepower weight acceleration year origin
## 2 18.0         8        307.0      130.0  3504.         12.0   70      1
## 3 15.0         8        350.0      165.0  3693.         11.5   70      1
## 4 18.0         8        318.0      150.0  3436.         11.0   70      1
## 5 16.0         8        304.0      150.0  3433.         12.0   70      1
## 6 17.0         8        302.0      140.0  3449.         10.5   70      1
##                          V9
## 1                      name
## 2 chevrolet chevelle malibu
## 3         buick skylark 320
## 4        plymouth satellite
## 5             amc rebel sst
## 6               ford torino

Auto <- read.table(data_file, header = TRUE, na.strings = "?", stringsAsFactors = TRUE)
# View(Auto)
head(Auto)
##   mpg cylinders displacement horsepower weight acceleration year origin
## 1  18         8          307        130   3504         12.0   70      1
## 2  15         8          350        165   3693         11.5   70      1
## 3  18         8          318        150   3436         11.0   70      1
## 4  16         8          304        150   3433         12.0   70      1
## 5  17         8          302        140   3449         10.5   70      1
## 6  15         8          429        198   4341         10.0   70      1
##                        name
## 1 chevrolet chevelle malibu
## 2         buick skylark 320
## 3        plymouth satellite
## 4             amc rebel sst
## 5               ford torino
## 6          ford galaxie 500

Auto <- read.csv(data_file, header = TRUE, na.strings = "?", stringsAsFactors = TRUE)

# View(Auto) # view data (in IDE only)
dim(Auto)    # print dimensions 
## [1] 397   9
Auto[1:4, ]  # print first 4 lines
##   mpg cylinders displacement horsepower weight acceleration year origin
## 1  18         8          307        130   3504         12.0   70      1
## 2  15         8          350        165   3693         11.5   70      1
## 3  18         8          318        150   3436         11.0   70      1
## 4  16         8          304        150   3433         12.0   70      1
##                        name
## 1 chevrolet chevelle malibu
## 2         buick skylark 320
## 3        plymouth satellite
## 4             amc rebel sst

sum(is.na(Auto))  # number of missing (NA) values
## [1] 5

Auto <- na.omit(Auto)
dim(Auto)
## [1] 392   9

names(Auto)
## [1] "mpg"          "cylinders"    "displacement" "horsepower"   "weight"      
## [6] "acceleration" "year"         "origin"       "name"

Additional graphical and numerical summaries

We can use the plot() function to produce scatterplots of the quantitative variables. However, simply typing the variable names will produce an error message, because R does not know to look in the Auto data set for those variables:

plot(cylinders, mpg)
## Error in plot(cylinders, mpg): object 'cylinders' not found

To refer to a variable, we must type the data set and the variable name joined with a symbol. Alternatively, we can use the attach() function in order to tell R to make the variables in this data frame available by name:

plot(Auto$cylinders, Auto$mpg)

# alternatively: 
attach(Auto)
## The following object is masked from package:ggplot2:
## 
##     mpg
plot(cylinders, mpg)

The cylinders variable is stored as a numeric vector, so R has treated it as quantitative. However, since there are only a small number of possible values for cylinders, one may prefer to treat it as a qualitative variable. The as.factor() function converts quantitative variables into qualitative variables:

cylinders <- as.factor(cylinders)

If the variable plotted on the \(x\)-axis is qualitative, then boxplots will automatically be produced by the plot() function. As usual, a number of options can be specified in order to customize the plots:

plot(cylinders, mpg)

plot(cylinders, mpg, col = "gold")

plot(cylinders, mpg, col = "gold", varwidth = TRUE)

plot(cylinders, mpg, col = "gold", varwidth = TRUE, horizontal = TRUE)

plot(cylinders, mpg, col = "gold", varwidth = TRUE, xlab = "cylinders", ylab = "MPG")

The hist() function can be used to plot a histogram. Note that col = 2 has the same effect as col = "red":

hist(mpg)

hist(mpg, col = 2)

hist(mpg, col = 2, breaks = 15)

The pairs() function creates a scatterplot matrix, i.e. a scatterplot for every pair of variables. We can also produce scatterplots for just a subset of the variables:

pairs(Auto)

pairs(~ mpg + displacement + horsepower + weight + acceleration,
      data = Auto)

In conjunction with the plot() function, identify() provides a useful interactive method for identifying the value of a particular variable for points on a plot. We pass in three arguments to identify(): the \(x\)-axis variable, the \(y\)-axis variable, and the variable whose values we would like to see printed for each point. Then clicking one or more points in the plot and hitting Escape will cause R to print the values of the variable of interest. The numbers printed under the identify() function correspond to the rows for the selected points.

plot(horsepower, mpg)
identify(horsepower, mpg, name)

## integer(0)

The summary() function produces a numerical summary of each variable in a particular data set:

summary(Auto)
##       mpg          cylinders      displacement     horsepower        weight    
##  Min.   : 9.00   Min.   :3.000   Min.   : 68.0   Min.   : 46.0   Min.   :1613  
##  1st Qu.:17.00   1st Qu.:4.000   1st Qu.:105.0   1st Qu.: 75.0   1st Qu.:2225  
##  Median :22.75   Median :4.000   Median :151.0   Median : 93.5   Median :2804  
##  Mean   :23.45   Mean   :5.472   Mean   :194.4   Mean   :104.5   Mean   :2978  
##  3rd Qu.:29.00   3rd Qu.:8.000   3rd Qu.:275.8   3rd Qu.:126.0   3rd Qu.:3615  
##  Max.   :46.60   Max.   :8.000   Max.   :455.0   Max.   :230.0   Max.   :5140  
##                                                                                
##   acceleration        year           origin                      name    
##  Min.   : 8.00   Min.   :70.00   Min.   :1.000   amc matador       :  5  
##  1st Qu.:13.78   1st Qu.:73.00   1st Qu.:1.000   ford pinto        :  5  
##  Median :15.50   Median :76.00   Median :1.000   toyota corolla    :  5  
##  Mean   :15.54   Mean   :75.98   Mean   :1.577   amc gremlin       :  4  
##  3rd Qu.:17.02   3rd Qu.:79.00   3rd Qu.:2.000   amc hornet        :  4  
##  Max.   :24.80   Max.   :82.00   Max.   :3.000   chevrolet chevette:  4  
##                                                  (Other)           :365

For qualitative variables such as name, R will list the number of observations that fall in each category. We can also produce a summary of just a single variable:

summary(mpg)
##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    9.00   17.00   22.75   23.45   29.00   46.60

Conceptual

Applied

rownames(college) <- college[, 1] 
View(college)

college <- college[, -1] 
View(college)

Elite <- rep("No", nrow(college))
Elite[college$Top10perc > 50] <- "Yes" 
Elite <- as.factor(Elite)
college <- data.frame(college, Elite)

Conceptual