# Mindanao State University
# General Santos City
# Introduction to R base commands
# Submitted by: Elvie Mae P. Cadungog
# 1st Year BS MATH
# Math Department
# March 16, 2023

# Lab Exercise 1: How to create Lines in with different styles in R
# Step 1: Create Data
x <- 1:10 # Create example data
y <- c(3, 1, 5, 2, 3, 8, 4, 7, 6, 9) # using the c() function to create an
array
## function (data = NA, dim = length(data), dimnames = NULL) 
## {
##     if (is.atomic(data) && !is.object(data)) 
##         return(.Internal(array(data, dim, dimnames)))
##     data <- as.vector(data)
##     if (is.object(data)) {
##         dim <- as.integer(dim)
##         if (!length(dim)) 
##             stop("'dim' cannot be of length 0")
##         vl <- prod(dim)
##         if (length(data) != vl) {
##             if (vl > .Machine$integer.max) 
##                 stop("'dim' specifies too large an array")
##             data <- rep_len(data, vl)
##         }
##         if (length(dim)) 
##             dim(data) <- dim
##         if (is.list(dimnames) && length(dimnames)) 
##             dimnames(data) <- dimnames
##         data
##     }
##     else .Internal(array(data, dim, dimnames))
## }
## <bytecode: 0x55d45a04b508>
## <environment: namespace:base>
# Step 2: Plot the line graph using the base plot() command
plot(x, y, type = "l")

# Step 3: Add Main Title & Change Axis Labels
plot(x, y, type = "l",
     main = "Hello: This is my Line Plot",
     xlab = "My X-Values",
     ylab = "My Y-Values")

# Step 4: Add color to the line using the col command
plot(x, y, type = "l",
     main = "This is my Line Plot",
     xlab = "My X-Values",
     ylab = "My Y-Values",
     col = "red")

# Step 5: Modify Thickness of Line using lwd command
plot(x, y, type = "l",
     main = "This is my Line Plot",
     xlab = "My X-Values",
     ylab = "My Y-Values",
     lwd=7,
     col = "green")

# Step 6: Add points to line graph by changing the type command
plot(x, y, type = "b",
     main = "This is my Line Plot",
     xlab = "My X-Values",
     ylab = "My Y-Values",
     lwd=3,
     col = "blue")

# Lab Exercise 2: How to create Lines in with different styles in R

# Step1: Assign values for different lines. We enclose the entire
# line with parenthesis symbol to force R to display the results instantly

# set the same value for the x variable
(x <- 1:10)
##  [1]  1  2  3  4  5  6  7  8  9 10
# set different values for y variables
(y1 <- c(3, 1, 5, 2, 3, 8, 4, 7, 6, 9))
##  [1] 3 1 5 2 3 8 4 7 6 9
(y2 <- c(5, 1, 4, 6, 2, 3, 7, 8, 2, 8))
##  [1] 5 1 4 6 2 3 7 8 2 8
(y3 <- c(3, 3, 3, 3, 4, 4, 5, 5, 7, 7))
##  [1] 3 3 3 3 4 4 5 5 7 7
# Plot first the pair x and y1.
plot(x, y1, type = "b",
     main = "This is my Line Plot",
     xlab = "My X-Values",
     ylab = "My Y-Values",
     lwd=3,
     col = "blue")
# then Add the two lines (for x,y2) and (x,y3)
lines(x, y2, type = "b", col = "red",lwd=3)
lines(x, y3, type = "b", col = "green",lwd=3)

# Add legend to the plot
legend("topleft",
       legend = c("Line y1", "Line y2", "Line y3"),
       col = c("black", "red", "green"),
       lty = 1)

# Step 2: Create Different Point Symbol for Each
# Line using the pch command
plot(x, y1, type = "b",pch = 16,
     main = "This is my Line Plot",
     xlab = "My X-Values",
     ylab = "My Y-Values",
     lwd=3,
     col = "blue")
lines(x, y2, type = "b", col = "red",lwd=3, pch = 15)
lines(x, y3, type = "b", col = "green",lwd=3, pch = 8)

# Add legend
legend("topleft",
       legend = c("Line y1", "Line y2", "Line y3"),
       col = c("black", "red", "green"),
       lty = 1)

# Lab Exercise 3: Create Line graph without x values
Pupils <- c(3.55 ,3.54 ,3.53 ,3.61 ,3.65 ,3.63 ,3.61
            ,3.61 ,3.59 ,3.63 ,3.59 ,3.63 ,3.62 ,3.62
            ,3.59 ,3.63 ,3.62 ,3.65 ,3.65)
# get number of elements of Pupils
length(Pupils)
## [1] 19
# Display the elements of Pupils
Pupils
##  [1] 3.55 3.54 3.53 3.61 3.65 3.63 3.61 3.61 3.59 3.63 3.59 3.63 3.62 3.62 3.59
## [16] 3.63 3.62 3.65 3.65
# You can obtain the plot without x values
plot(Pupils, type = 'o')

# Lab Exercise 4: How to Create vertical, horizontal lines
# We will use buit-in cars dataset in R
# display the cars dataset
cars
##    speed dist
## 1      4    2
## 2      4   10
## 3      7    4
## 4      7   22
## 5      8   16
## 6      9   10
## 7     10   18
## 8     10   26
## 9     10   34
## 10    11   17
## 11    11   28
## 12    12   14
## 13    12   20
## 14    12   24
## 15    12   28
## 16    13   26
## 17    13   34
## 18    13   34
## 19    13   46
## 20    14   26
## 21    14   36
## 22    14   60
## 23    14   80
## 24    15   20
## 25    15   26
## 26    15   54
## 27    16   32
## 28    16   40
## 29    17   32
## 30    17   40
## 31    17   50
## 32    18   42
## 33    18   56
## 34    18   76
## 35    18   84
## 36    19   36
## 37    19   46
## 38    19   68
## 39    20   32
## 40    20   48
## 41    20   52
## 42    20   56
## 43    20   64
## 44    22   66
## 45    23   54
## 46    24   70
## 47    24   92
## 48    24   93
## 49    24  120
## 50    25   85
# get the number of rows and columns using dim() command
dim(cars)
## [1] 50  2
# display the variable names of the cars dataset
names(cars)
## [1] "speed" "dist"
# display only the first column of the dataset
cars$speed # using the column name
##  [1]  4  4  7  7  8  9 10 10 10 11 11 12 12 12 12 13 13 13 13 14 14 14 14 15 15
## [26] 15 16 16 17 17 17 18 18 18 18 19 19 19 20 20 20 20 20 22 23 24 24 24 24 25
cars[,1] # using the column number
##  [1]  4  4  7  7  8  9 10 10 10 11 11 12 12 12 12 13 13 13 13 14 14 14 14 15 15
## [26] 15 16 16 17 17 17 18 18 18 18 19 19 19 20 20 20 20 20 22 23 24 24 24 24 25
# Remarks: the following commands will give you the same result
plot(cars,) # using the comma after the name

plot(cars[,1],cars[,2]) # using the column index 1 and 2

attach(cars); plot(speed,dist) # using the attach command to load the variables

plot(cars$speed,cars$dist) # using the dollar notation

# Problem: Create vertical lines using the v command
plot(cars)
abline(v = 15, col = "darkgreen",lwd=3) # vertical line
abline(v = 10, col = "blue",lwd=3) # vertical line

# Problem: Create horizontal lines using the h command
abline(h = 80, col = "darkgreen",lwd=3) # vertical line
abline(h = 20, col = "blue",lwd=3) # vertical line

# Create more lines simultaneously, using a vector of values
plot(cars)
abline(v = c(9, 22,25), col = c("darkgreen", "blue","red"),
       lwd = c(1, 3,2), # line thickness
       lty = c(2,2,2)) # dashed lines

plot(cars)
abline(v = c(9, 22,25), col = c("darkgreen", "blue","red"),
       lwd = c(1, 3,2)) # line thickness and solid lines

# create horizontal lines
plot(cars)
abline(h = 60, col = "red",lty = 1, lwd = 3)
abline(h = 100, col = "red",lty = 2, lwd = 3)
abline(h = 20, col = "red",lty = 3, lwd = 3)

# Lab Exercise 5: How to Plot data by group
# We will use buit-in iris dataset in R
# this dataset is a collection of 4 species of flowers with different
# sepal length and width and also with different petal length and width
dim(iris) # iris dataset has 150 rows and 5 columns
## [1] 150   5
names(iris)
## [1] "Sepal.Length" "Sepal.Width"  "Petal.Length" "Petal.Width"  "Species"
# two different commands to get the frequency table
table(iris$Species) # refer to the dataset by variable name
## 
##     setosa versicolor  virginica 
##         50         50         50
table(iris[,5]) # refer to the dataset by column number
## 
##     setosa versicolor  virginica 
##         50         50         50
# get summary of all columns
summary(iris)
##   Sepal.Length    Sepal.Width     Petal.Length    Petal.Width   
##  Min.   :4.300   Min.   :2.000   Min.   :1.000   Min.   :0.100  
##  1st Qu.:5.100   1st Qu.:2.800   1st Qu.:1.600   1st Qu.:0.300  
##  Median :5.800   Median :3.000   Median :4.350   Median :1.300  
##  Mean   :5.843   Mean   :3.057   Mean   :3.758   Mean   :1.199  
##  3rd Qu.:6.400   3rd Qu.:3.300   3rd Qu.:5.100   3rd Qu.:1.800  
##  Max.   :7.900   Max.   :4.400   Max.   :6.900   Max.   :2.500  
##        Species  
##  setosa    :50  
##  versicolor:50  
##  virginica :50  
##                 
##                 
## 
#create scatterplot of sepal width vs. sepal length
plot(iris$Sepal.Width, iris$Sepal.Length,
     col='steelblue',
     main='Scatterplot',
     xlab='Sepal Width',
     ylab='Sepal Length',
     pch=19)

plot(iris$Sepal.Width, iris$Sepal.Length,
     col='steelblue',
     main='Scatterplot',
     xlab='Sepal Width',
     ylab='Sepal Length',
     pch=1)

# another way to retrieve columns of data
PL <- iris$Petal.Length
PW <- iris$Petal.Width
plot(PL, PW)

# add color by species
plot(PL, PW, col = iris$Species, main= "My Plot")
# draw a line along with the distribution of points
# using the abline and lm commands
abline(lm(PW ~ PL))

# add text annotation
text(5, 0.5, "Regression Line")
legend("topleft", # specify the location of the legend
       levels(iris$Species), # specify the levels of species
       pch = 1:3, # specify three symbols used for the three species
       col = 1:3 # specify three colors for the three species
)

# Lab Exercise 6: Generate advance scatter plot
pairs(iris, col = rainbow(3)[iris$Species]) # set colors by species

# How to filter data for each flower
(Versicolor <- subset(iris, Species == "versicolor"))
##     Sepal.Length Sepal.Width Petal.Length Petal.Width    Species
## 51           7.0         3.2          4.7         1.4 versicolor
## 52           6.4         3.2          4.5         1.5 versicolor
## 53           6.9         3.1          4.9         1.5 versicolor
## 54           5.5         2.3          4.0         1.3 versicolor
## 55           6.5         2.8          4.6         1.5 versicolor
## 56           5.7         2.8          4.5         1.3 versicolor
## 57           6.3         3.3          4.7         1.6 versicolor
## 58           4.9         2.4          3.3         1.0 versicolor
## 59           6.6         2.9          4.6         1.3 versicolor
## 60           5.2         2.7          3.9         1.4 versicolor
## 61           5.0         2.0          3.5         1.0 versicolor
## 62           5.9         3.0          4.2         1.5 versicolor
## 63           6.0         2.2          4.0         1.0 versicolor
## 64           6.1         2.9          4.7         1.4 versicolor
## 65           5.6         2.9          3.6         1.3 versicolor
## 66           6.7         3.1          4.4         1.4 versicolor
## 67           5.6         3.0          4.5         1.5 versicolor
## 68           5.8         2.7          4.1         1.0 versicolor
## 69           6.2         2.2          4.5         1.5 versicolor
## 70           5.6         2.5          3.9         1.1 versicolor
## 71           5.9         3.2          4.8         1.8 versicolor
## 72           6.1         2.8          4.0         1.3 versicolor
## 73           6.3         2.5          4.9         1.5 versicolor
## 74           6.1         2.8          4.7         1.2 versicolor
## 75           6.4         2.9          4.3         1.3 versicolor
## 76           6.6         3.0          4.4         1.4 versicolor
## 77           6.8         2.8          4.8         1.4 versicolor
## 78           6.7         3.0          5.0         1.7 versicolor
## 79           6.0         2.9          4.5         1.5 versicolor
## 80           5.7         2.6          3.5         1.0 versicolor
## 81           5.5         2.4          3.8         1.1 versicolor
## 82           5.5         2.4          3.7         1.0 versicolor
## 83           5.8         2.7          3.9         1.2 versicolor
## 84           6.0         2.7          5.1         1.6 versicolor
## 85           5.4         3.0          4.5         1.5 versicolor
## 86           6.0         3.4          4.5         1.6 versicolor
## 87           6.7         3.1          4.7         1.5 versicolor
## 88           6.3         2.3          4.4         1.3 versicolor
## 89           5.6         3.0          4.1         1.3 versicolor
## 90           5.5         2.5          4.0         1.3 versicolor
## 91           5.5         2.6          4.4         1.2 versicolor
## 92           6.1         3.0          4.6         1.4 versicolor
## 93           5.8         2.6          4.0         1.2 versicolor
## 94           5.0         2.3          3.3         1.0 versicolor
## 95           5.6         2.7          4.2         1.3 versicolor
## 96           5.7         3.0          4.2         1.2 versicolor
## 97           5.7         2.9          4.2         1.3 versicolor
## 98           6.2         2.9          4.3         1.3 versicolor
## 99           5.1         2.5          3.0         1.1 versicolor
## 100          5.7         2.8          4.1         1.3 versicolor
(Setosa <- subset(iris, Species == "setosa"))
##    Sepal.Length Sepal.Width Petal.Length Petal.Width Species
## 1           5.1         3.5          1.4         0.2  setosa
## 2           4.9         3.0          1.4         0.2  setosa
## 3           4.7         3.2          1.3         0.2  setosa
## 4           4.6         3.1          1.5         0.2  setosa
## 5           5.0         3.6          1.4         0.2  setosa
## 6           5.4         3.9          1.7         0.4  setosa
## 7           4.6         3.4          1.4         0.3  setosa
## 8           5.0         3.4          1.5         0.2  setosa
## 9           4.4         2.9          1.4         0.2  setosa
## 10          4.9         3.1          1.5         0.1  setosa
## 11          5.4         3.7          1.5         0.2  setosa
## 12          4.8         3.4          1.6         0.2  setosa
## 13          4.8         3.0          1.4         0.1  setosa
## 14          4.3         3.0          1.1         0.1  setosa
## 15          5.8         4.0          1.2         0.2  setosa
## 16          5.7         4.4          1.5         0.4  setosa
## 17          5.4         3.9          1.3         0.4  setosa
## 18          5.1         3.5          1.4         0.3  setosa
## 19          5.7         3.8          1.7         0.3  setosa
## 20          5.1         3.8          1.5         0.3  setosa
## 21          5.4         3.4          1.7         0.2  setosa
## 22          5.1         3.7          1.5         0.4  setosa
## 23          4.6         3.6          1.0         0.2  setosa
## 24          5.1         3.3          1.7         0.5  setosa
## 25          4.8         3.4          1.9         0.2  setosa
## 26          5.0         3.0          1.6         0.2  setosa
## 27          5.0         3.4          1.6         0.4  setosa
## 28          5.2         3.5          1.5         0.2  setosa
## 29          5.2         3.4          1.4         0.2  setosa
## 30          4.7         3.2          1.6         0.2  setosa
## 31          4.8         3.1          1.6         0.2  setosa
## 32          5.4         3.4          1.5         0.4  setosa
## 33          5.2         4.1          1.5         0.1  setosa
## 34          5.5         4.2          1.4         0.2  setosa
## 35          4.9         3.1          1.5         0.2  setosa
## 36          5.0         3.2          1.2         0.2  setosa
## 37          5.5         3.5          1.3         0.2  setosa
## 38          4.9         3.6          1.4         0.1  setosa
## 39          4.4         3.0          1.3         0.2  setosa
## 40          5.1         3.4          1.5         0.2  setosa
## 41          5.0         3.5          1.3         0.3  setosa
## 42          4.5         2.3          1.3         0.3  setosa
## 43          4.4         3.2          1.3         0.2  setosa
## 44          5.0         3.5          1.6         0.6  setosa
## 45          5.1         3.8          1.9         0.4  setosa
## 46          4.8         3.0          1.4         0.3  setosa
## 47          5.1         3.8          1.6         0.2  setosa
## 48          4.6         3.2          1.4         0.2  setosa
## 49          5.3         3.7          1.5         0.2  setosa
## 50          5.0         3.3          1.4         0.2  setosa
(Virginica <- subset(iris, Species == "virginica"))
##     Sepal.Length Sepal.Width Petal.Length Petal.Width   Species
## 101          6.3         3.3          6.0         2.5 virginica
## 102          5.8         2.7          5.1         1.9 virginica
## 103          7.1         3.0          5.9         2.1 virginica
## 104          6.3         2.9          5.6         1.8 virginica
## 105          6.5         3.0          5.8         2.2 virginica
## 106          7.6         3.0          6.6         2.1 virginica
## 107          4.9         2.5          4.5         1.7 virginica
## 108          7.3         2.9          6.3         1.8 virginica
## 109          6.7         2.5          5.8         1.8 virginica
## 110          7.2         3.6          6.1         2.5 virginica
## 111          6.5         3.2          5.1         2.0 virginica
## 112          6.4         2.7          5.3         1.9 virginica
## 113          6.8         3.0          5.5         2.1 virginica
## 114          5.7         2.5          5.0         2.0 virginica
## 115          5.8         2.8          5.1         2.4 virginica
## 116          6.4         3.2          5.3         2.3 virginica
## 117          6.5         3.0          5.5         1.8 virginica
## 118          7.7         3.8          6.7         2.2 virginica
## 119          7.7         2.6          6.9         2.3 virginica
## 120          6.0         2.2          5.0         1.5 virginica
## 121          6.9         3.2          5.7         2.3 virginica
## 122          5.6         2.8          4.9         2.0 virginica
## 123          7.7         2.8          6.7         2.0 virginica
## 124          6.3         2.7          4.9         1.8 virginica
## 125          6.7         3.3          5.7         2.1 virginica
## 126          7.2         3.2          6.0         1.8 virginica
## 127          6.2         2.8          4.8         1.8 virginica
## 128          6.1         3.0          4.9         1.8 virginica
## 129          6.4         2.8          5.6         2.1 virginica
## 130          7.2         3.0          5.8         1.6 virginica
## 131          7.4         2.8          6.1         1.9 virginica
## 132          7.9         3.8          6.4         2.0 virginica
## 133          6.4         2.8          5.6         2.2 virginica
## 134          6.3         2.8          5.1         1.5 virginica
## 135          6.1         2.6          5.6         1.4 virginica
## 136          7.7         3.0          6.1         2.3 virginica
## 137          6.3         3.4          5.6         2.4 virginica
## 138          6.4         3.1          5.5         1.8 virginica
## 139          6.0         3.0          4.8         1.8 virginica
## 140          6.9         3.1          5.4         2.1 virginica
## 141          6.7         3.1          5.6         2.4 virginica
## 142          6.9         3.1          5.1         2.3 virginica
## 143          5.8         2.7          5.1         1.9 virginica
## 144          6.8         3.2          5.9         2.3 virginica
## 145          6.7         3.3          5.7         2.5 virginica
## 146          6.7         3.0          5.2         2.3 virginica
## 147          6.3         2.5          5.0         1.9 virginica
## 148          6.5         3.0          5.2         2.0 virginica
## 149          6.2         3.4          5.4         2.3 virginica
## 150          5.9         3.0          5.1         1.8 virginica
# Draw boxplot for each type of flower
boxplot(Versicolor[,1:4], main="Versicolor, Rainbow Palette",ylim =
          c(0,8),las=2, col=rainbow(4))

boxplot(Setosa[,1:4], main="Setosa, Heat color Palette",ylim = c(0,8),las=2,
        col=heat.colors(4))

boxplot(Virginica[,1:4], main="Virginica, Topo colors Palette",ylim =
          c(0,8),las=2, col=topo.colors(4))

# Lab Exercise 7: How to load external datasets
# From a local directory
# the folder that contains the file should be specified completely
# using the forward slash symbol instead of the backward splash

library(readr)
cancer <- read_csv("Cancer.csv")
## Rows: 173 Columns: 17
## ── Column specification ────────────────────────────────────────────────────────
## Delimiter: ","
## chr  (2): country, continent
## dbl (15): incomeperperson, alcconsumption, armedforcesrate, breastcancer, co...
## 
## ℹ Use `spec()` to retrieve the full column specification for this data.
## ℹ Specify the column types or set `show_col_types = FALSE` to quiet this message.
dim(cancer)
## [1] 173  17
names(cancer)
##  [1] "country"            "incomeperperson"    "alcconsumption"    
##  [4] "armedforcesrate"    "breastcancer"       "co2emissions"      
##  [7] "femaleemployrate"   "hivrate"            "internetuserate"   
## [10] "lifeexpectancy"     "oilperperson"       "polityscore"       
## [13] "relectricperperson" "suicideper100th"    "employrate"        
## [16] "urbanrate"          "continent"
# compute mean value for every continent
(means <- round(tapply(cancer$breastcancer, cancer$continent, mean),
                digits=2))
##    AF    AS    EE LATAM NORAM    OC    WE 
## 24.02 24.51 49.44 36.70 71.73 45.80 74.80
# draw boxplot per continent
boxplot(cancer$breastcancer ~ cancer$continent, main= "Breast cancer by
continent (brown dot = mean value)", xlab="continents", ylab="new
cases per 100,00 residents", col=rainbow(7))

# insert the mean value using brown dot
points(means, col="brown", pch=18)

# Lab Exercise 8: How to load external datasets and change data layout

library(readr)
hsb2 <- read_csv("hsb2.csv")
## New names:
## Rows: 200 Columns: 12
## ── Column specification
## ──────────────────────────────────────────────────────── Delimiter: "," dbl
## (12): ...1, id, female, race, ses, schtyp, prog, read, write, math, scie...
## ℹ Use `spec()` to retrieve the full column specification for this data. ℹ
## Specify the column types or set `show_col_types = FALSE` to quiet this message.
## • `` -> `...1`
# display only the top 6 rows
head(hsb2)
## # A tibble: 6 × 12
##    ...1    id female  race   ses schtyp  prog  read write  math science socst
##   <dbl> <dbl>  <dbl> <dbl> <dbl>  <dbl> <dbl> <dbl> <dbl> <dbl>   <dbl> <dbl>
## 1     1    70      0     4     1      1     1    57    52    41      47    57
## 2     2   121      1     4     2      1     3    68    59    53      63    61
## 3     3    86      0     4     3      1     1    44    33    54      58    31
## 4     4   141      0     4     3      1     3    63    44    47      53    56
## 5     5   172      0     4     2      1     2    47    52    57      53    61
## 6     6   113      0     4     2      1     2    44    52    51      63    61
# display only the last 6 rows
tail(hsb2)
## # A tibble: 6 × 12
##    ...1    id female  race   ses schtyp  prog  read write  math science socst
##   <dbl> <dbl>  <dbl> <dbl> <dbl>  <dbl> <dbl> <dbl> <dbl> <dbl>   <dbl> <dbl>
## 1   195   179      1     4     2      2     2    47    65    60      50    56
## 2   196    31      1     2     2      2     1    55    59    52      42    56
## 3   197   145      1     4     2      1     3    42    46    38      36    46
## 4   198   187      1     4     2      2     1    57    41    57      55    52
## 5   199   118      1     4     2      1     1    55    62    58      58    61
## 6   200   137      1     4     3      1     2    63    65    65      53    61
# delete redundant first column (run only once)
(hsb2 <- hsb2[-1])
## # A tibble: 200 × 11
##       id female  race   ses schtyp  prog  read write  math science socst
##    <dbl>  <dbl> <dbl> <dbl>  <dbl> <dbl> <dbl> <dbl> <dbl>   <dbl> <dbl>
##  1    70      0     4     1      1     1    57    52    41      47    57
##  2   121      1     4     2      1     3    68    59    53      63    61
##  3    86      0     4     3      1     1    44    33    54      58    31
##  4   141      0     4     3      1     3    63    44    47      53    56
##  5   172      0     4     2      1     2    47    52    57      53    61
##  6   113      0     4     2      1     2    44    52    51      63    61
##  7    50      0     3     2      1     1    50    59    42      53    61
##  8    11      0     1     2      1     2    34    46    45      39    36
##  9    84      0     4     2      1     1    63    57    54      58    51
## 10    48      0     3     2      1     2    57    55    52      50    51
## # ℹ 190 more rows
# Remarks
# hsb2 dataset consists of 200 selected random samples from senior
# high school students in the US.
# We want to compare the student performance across different subjects
# change data layout by grouping different subjects
# into one column using melt() command. Install first reshape2 package
# install.packages("reshape2")

library(reshape2)
(hsb2_long <- melt(hsb2, measure.vars =
                     c("read","write","math","science","socst")))
##       id female race ses schtyp prog variable value
## 1     70      0    4   1      1    1     read    57
## 2    121      1    4   2      1    3     read    68
## 3     86      0    4   3      1    1     read    44
## 4    141      0    4   3      1    3     read    63
## 5    172      0    4   2      1    2     read    47
## 6    113      0    4   2      1    2     read    44
## 7     50      0    3   2      1    1     read    50
## 8     11      0    1   2      1    2     read    34
## 9     84      0    4   2      1    1     read    63
## 10    48      0    3   2      1    2     read    57
## 11    75      0    4   2      1    3     read    60
## 12    60      0    4   2      1    2     read    57
## 13    95      0    4   3      1    2     read    73
## 14   104      0    4   3      1    2     read    54
## 15    38      0    3   1      1    2     read    45
## 16   115      0    4   1      1    1     read    42
## 17    76      0    4   3      1    2     read    47
## 18   195      0    4   2      2    1     read    57
## 19   114      0    4   3      1    2     read    68
## 20    85      0    4   2      1    1     read    55
## 21   167      0    4   2      1    1     read    63
## 22   143      0    4   2      1    3     read    63
## 23    41      0    3   2      1    2     read    50
## 24    20      0    1   3      1    2     read    60
## 25    12      0    1   2      1    3     read    37
## 26    53      0    3   2      1    3     read    34
## 27   154      0    4   3      1    2     read    65
## 28   178      0    4   2      2    3     read    47
## 29   196      0    4   3      2    2     read    44
## 30    29      0    2   1      1    1     read    52
## 31   126      0    4   2      1    1     read    42
## 32   103      0    4   3      1    2     read    76
## 33   192      0    4   3      2    2     read    65
## 34   150      0    4   2      1    3     read    42
## 35   199      0    4   3      2    2     read    52
## 36   144      0    4   3      1    1     read    60
## 37   200      0    4   2      2    2     read    68
## 38    80      0    4   3      1    2     read    65
## 39    16      0    1   1      1    3     read    47
## 40   153      0    4   2      1    3     read    39
## 41   176      0    4   2      2    2     read    47
## 42   177      0    4   2      2    2     read    55
## 43   168      0    4   2      1    2     read    52
## 44    40      0    3   1      1    1     read    42
## 45    62      0    4   3      1    1     read    65
## 46   169      0    4   1      1    1     read    55
## 47    49      0    3   3      1    3     read    50
## 48   136      0    4   2      1    2     read    65
## 49   189      0    4   2      2    2     read    47
## 50     7      0    1   2      1    2     read    57
## 51    27      0    2   2      1    2     read    53
## 52   128      0    4   3      1    2     read    39
## 53    21      0    1   2      1    1     read    44
## 54   183      0    4   2      2    2     read    63
## 55   132      0    4   2      1    2     read    73
## 56    15      0    1   3      1    3     read    39
## 57    67      0    4   1      1    3     read    37
## 58    22      0    1   2      1    3     read    42
## 59   185      0    4   2      2    2     read    63
## 60     9      0    1   2      1    3     read    48
## 61   181      0    4   2      2    2     read    50
## 62   170      0    4   3      1    2     read    47
## 63   134      0    4   1      1    1     read    44
## 64   108      0    4   2      1    1     read    34
## 65   197      0    4   3      2    2     read    50
## 66   140      0    4   2      1    3     read    44
## 67   171      0    4   2      1    2     read    60
## 68   107      0    4   1      1    3     read    47
## 69    81      0    4   1      1    2     read    63
## 70    18      0    1   2      1    3     read    50
## 71   155      0    4   2      1    1     read    44
## 72    97      0    4   3      1    2     read    60
## 73    68      0    4   2      1    2     read    73
## 74   157      0    4   2      1    1     read    68
## 75    56      0    4   2      1    3     read    55
## 76     5      0    1   1      1    2     read    47
## 77   159      0    4   3      1    2     read    55
## 78   123      0    4   3      1    1     read    68
## 79   164      0    4   2      1    3     read    31
## 80    14      0    1   3      1    2     read    47
## 81   127      0    4   3      1    2     read    63
## 82   165      0    4   1      1    3     read    36
## 83   174      0    4   2      2    2     read    68
## 84     3      0    1   1      1    2     read    63
## 85    58      0    4   2      1    3     read    55
## 86   146      0    4   3      1    2     read    55
## 87   102      0    4   3      1    2     read    52
## 88   117      0    4   3      1    3     read    34
## 89   133      0    4   2      1    3     read    50
## 90    94      0    4   3      1    2     read    55
## 91    24      0    2   2      1    2     read    52
## 92   149      0    4   1      1    1     read    63
## 93    82      1    4   3      1    2     read    68
## 94     8      1    1   1      1    2     read    39
## 95   129      1    4   1      1    1     read    44
## 96   173      1    4   1      1    1     read    50
## 97    57      1    4   2      1    2     read    71
## 98   100      1    4   3      1    2     read    63
## 99     1      1    1   1      1    3     read    34
## 100  194      1    4   3      2    2     read    63
## 101   88      1    4   3      1    2     read    68
## 102   99      1    4   3      1    1     read    47
## 103   47      1    3   1      1    2     read    47
## 104  120      1    4   3      1    2     read    63
## 105  166      1    4   2      1    2     read    52
## 106   65      1    4   2      1    2     read    55
## 107  101      1    4   3      1    2     read    60
## 108   89      1    4   1      1    3     read    35
## 109   54      1    3   1      2    1     read    47
## 110  180      1    4   3      2    2     read    71
## 111  162      1    4   2      1    3     read    57
## 112    4      1    1   1      1    2     read    44
## 113  131      1    4   3      1    2     read    65
## 114  125      1    4   1      1    2     read    68
## 115   34      1    1   3      2    2     read    73
## 116  106      1    4   2      1    3     read    36
## 117  130      1    4   3      1    1     read    43
## 118   93      1    4   3      1    2     read    73
## 119  163      1    4   1      1    2     read    52
## 120   37      1    3   1      1    3     read    41
## 121   35      1    1   1      2    1     read    60
## 122   87      1    4   2      1    1     read    50
## 123   73      1    4   2      1    2     read    50
## 124  151      1    4   2      1    3     read    47
## 125   44      1    3   1      1    3     read    47
## 126  152      1    4   3      1    2     read    55
## 127  105      1    4   2      1    2     read    50
## 128   28      1    2   2      1    1     read    39
## 129   91      1    4   3      1    3     read    50
## 130   45      1    3   1      1    3     read    34
## 131  116      1    4   2      1    2     read    57
## 132   33      1    2   1      1    2     read    57
## 133   66      1    4   2      1    3     read    68
## 134   72      1    4   2      1    3     read    42
## 135   77      1    4   1      1    2     read    61
## 136   61      1    4   3      1    2     read    76
## 137  190      1    4   2      2    2     read    47
## 138   42      1    3   2      1    3     read    46
## 139    2      1    1   2      1    3     read    39
## 140   55      1    3   2      2    2     read    52
## 141   19      1    1   1      1    1     read    28
## 142   90      1    4   3      1    2     read    42
## 143  142      1    4   2      1    3     read    47
## 144   17      1    1   2      1    2     read    47
## 145  122      1    4   2      1    2     read    52
## 146  191      1    4   3      2    2     read    47
## 147   83      1    4   2      1    3     read    50
## 148  182      1    4   2      2    2     read    44
## 149    6      1    1   1      1    2     read    47
## 150   46      1    3   1      1    2     read    45
## 151   43      1    3   1      1    2     read    47
## 152   96      1    4   3      1    2     read    65
## 153  138      1    4   2      1    3     read    43
## 154   10      1    1   2      1    1     read    47
## 155   71      1    4   2      1    1     read    57
## 156  139      1    4   2      1    2     read    68
## 157  110      1    4   2      1    3     read    52
## 158  148      1    4   2      1    3     read    42
## 159  109      1    4   2      1    1     read    42
## 160   39      1    3   3      1    2     read    66
## 161  147      1    4   1      1    2     read    47
## 162   74      1    4   2      1    2     read    57
## 163  198      1    4   3      2    2     read    47
## 164  161      1    4   1      1    2     read    57
## 165  112      1    4   2      1    2     read    52
## 166   69      1    4   1      1    3     read    44
## 167  156      1    4   2      1    2     read    50
## 168  111      1    4   1      1    1     read    39
## 169  186      1    4   2      2    2     read    57
## 170   98      1    4   1      1    3     read    57
## 171  119      1    4   1      1    1     read    42
## 172   13      1    1   2      1    3     read    47
## 173   51      1    3   3      1    1     read    42
## 174   26      1    2   3      1    2     read    60
## 175   36      1    3   1      1    1     read    44
## 176  135      1    4   1      1    2     read    63
## 177   59      1    4   2      1    2     read    65
## 178   78      1    4   2      1    2     read    39
## 179   64      1    4   3      1    3     read    50
## 180   63      1    4   1      1    1     read    52
## 181   79      1    4   2      1    2     read    60
## 182  193      1    4   2      2    2     read    44
## 183   92      1    4   3      1    1     read    52
## 184  160      1    4   2      1    2     read    55
## 185   32      1    2   3      1    3     read    50
## 186   23      1    2   1      1    2     read    65
## 187  158      1    4   2      1    1     read    52
## 188   25      1    2   2      1    1     read    47
## 189  188      1    4   3      2    2     read    63
## 190   52      1    3   1      1    2     read    50
## 191  124      1    4   1      1    3     read    42
## 192  175      1    4   3      2    1     read    36
## 193  184      1    4   2      2    3     read    50
## 194   30      1    2   3      1    2     read    41
## 195  179      1    4   2      2    2     read    47
## 196   31      1    2   2      2    1     read    55
## 197  145      1    4   2      1    3     read    42
## 198  187      1    4   2      2    1     read    57
## 199  118      1    4   2      1    1     read    55
## 200  137      1    4   3      1    2     read    63
## 201   70      0    4   1      1    1    write    52
## 202  121      1    4   2      1    3    write    59
## 203   86      0    4   3      1    1    write    33
## 204  141      0    4   3      1    3    write    44
## 205  172      0    4   2      1    2    write    52
## 206  113      0    4   2      1    2    write    52
## 207   50      0    3   2      1    1    write    59
## 208   11      0    1   2      1    2    write    46
## 209   84      0    4   2      1    1    write    57
## 210   48      0    3   2      1    2    write    55
## 211   75      0    4   2      1    3    write    46
## 212   60      0    4   2      1    2    write    65
## 213   95      0    4   3      1    2    write    60
## 214  104      0    4   3      1    2    write    63
## 215   38      0    3   1      1    2    write    57
## 216  115      0    4   1      1    1    write    49
## 217   76      0    4   3      1    2    write    52
## 218  195      0    4   2      2    1    write    57
## 219  114      0    4   3      1    2    write    65
## 220   85      0    4   2      1    1    write    39
## 221  167      0    4   2      1    1    write    49
## 222  143      0    4   2      1    3    write    63
## 223   41      0    3   2      1    2    write    40
## 224   20      0    1   3      1    2    write    52
## 225   12      0    1   2      1    3    write    44
## 226   53      0    3   2      1    3    write    37
## 227  154      0    4   3      1    2    write    65
## 228  178      0    4   2      2    3    write    57
## 229  196      0    4   3      2    2    write    38
## 230   29      0    2   1      1    1    write    44
## 231  126      0    4   2      1    1    write    31
## 232  103      0    4   3      1    2    write    52
## 233  192      0    4   3      2    2    write    67
## 234  150      0    4   2      1    3    write    41
## 235  199      0    4   3      2    2    write    59
## 236  144      0    4   3      1    1    write    65
## 237  200      0    4   2      2    2    write    54
## 238   80      0    4   3      1    2    write    62
## 239   16      0    1   1      1    3    write    31
## 240  153      0    4   2      1    3    write    31
## 241  176      0    4   2      2    2    write    47
## 242  177      0    4   2      2    2    write    59
## 243  168      0    4   2      1    2    write    54
## 244   40      0    3   1      1    1    write    41
## 245   62      0    4   3      1    1    write    65
## 246  169      0    4   1      1    1    write    59
## 247   49      0    3   3      1    3    write    40
## 248  136      0    4   2      1    2    write    59
## 249  189      0    4   2      2    2    write    59
## 250    7      0    1   2      1    2    write    54
## 251   27      0    2   2      1    2    write    61
## 252  128      0    4   3      1    2    write    33
## 253   21      0    1   2      1    1    write    44
## 254  183      0    4   2      2    2    write    59
## 255  132      0    4   2      1    2    write    62
## 256   15      0    1   3      1    3    write    39
## 257   67      0    4   1      1    3    write    37
## 258   22      0    1   2      1    3    write    39
## 259  185      0    4   2      2    2    write    57
## 260    9      0    1   2      1    3    write    49
## 261  181      0    4   2      2    2    write    46
## 262  170      0    4   3      1    2    write    62
## 263  134      0    4   1      1    1    write    44
## 264  108      0    4   2      1    1    write    33
## 265  197      0    4   3      2    2    write    42
## 266  140      0    4   2      1    3    write    41
## 267  171      0    4   2      1    2    write    54
## 268  107      0    4   1      1    3    write    39
## 269   81      0    4   1      1    2    write    43
## 270   18      0    1   2      1    3    write    33
## 271  155      0    4   2      1    1    write    44
## 272   97      0    4   3      1    2    write    54
## 273   68      0    4   2      1    2    write    67
## 274  157      0    4   2      1    1    write    59
## 275   56      0    4   2      1    3    write    45
## 276    5      0    1   1      1    2    write    40
## 277  159      0    4   3      1    2    write    61
## 278  123      0    4   3      1    1    write    59
## 279  164      0    4   2      1    3    write    36
## 280   14      0    1   3      1    2    write    41
## 281  127      0    4   3      1    2    write    59
## 282  165      0    4   1      1    3    write    49
## 283  174      0    4   2      2    2    write    59
## 284    3      0    1   1      1    2    write    65
## 285   58      0    4   2      1    3    write    41
## 286  146      0    4   3      1    2    write    62
## 287  102      0    4   3      1    2    write    41
## 288  117      0    4   3      1    3    write    49
## 289  133      0    4   2      1    3    write    31
## 290   94      0    4   3      1    2    write    49
## 291   24      0    2   2      1    2    write    62
## 292  149      0    4   1      1    1    write    49
## 293   82      1    4   3      1    2    write    62
## 294    8      1    1   1      1    2    write    44
## 295  129      1    4   1      1    1    write    44
## 296  173      1    4   1      1    1    write    62
## 297   57      1    4   2      1    2    write    65
## 298  100      1    4   3      1    2    write    65
## 299    1      1    1   1      1    3    write    44
## 300  194      1    4   3      2    2    write    63
## 301   88      1    4   3      1    2    write    60
## 302   99      1    4   3      1    1    write    59
## 303   47      1    3   1      1    2    write    46
## 304  120      1    4   3      1    2    write    52
## 305  166      1    4   2      1    2    write    59
## 306   65      1    4   2      1    2    write    54
## 307  101      1    4   3      1    2    write    62
## 308   89      1    4   1      1    3    write    35
## 309   54      1    3   1      2    1    write    54
## 310  180      1    4   3      2    2    write    65
## 311  162      1    4   2      1    3    write    52
## 312    4      1    1   1      1    2    write    50
## 313  131      1    4   3      1    2    write    59
## 314  125      1    4   1      1    2    write    65
## 315   34      1    1   3      2    2    write    61
## 316  106      1    4   2      1    3    write    44
## 317  130      1    4   3      1    1    write    54
## 318   93      1    4   3      1    2    write    67
## 319  163      1    4   1      1    2    write    57
## 320   37      1    3   1      1    3    write    47
## 321   35      1    1   1      2    1    write    54
## 322   87      1    4   2      1    1    write    52
## 323   73      1    4   2      1    2    write    52
## 324  151      1    4   2      1    3    write    46
## 325   44      1    3   1      1    3    write    62
## 326  152      1    4   3      1    2    write    57
## 327  105      1    4   2      1    2    write    41
## 328   28      1    2   2      1    1    write    53
## 329   91      1    4   3      1    3    write    49
## 330   45      1    3   1      1    3    write    35
## 331  116      1    4   2      1    2    write    59
## 332   33      1    2   1      1    2    write    65
## 333   66      1    4   2      1    3    write    62
## 334   72      1    4   2      1    3    write    54
## 335   77      1    4   1      1    2    write    59
## 336   61      1    4   3      1    2    write    63
## 337  190      1    4   2      2    2    write    59
## 338   42      1    3   2      1    3    write    52
## 339    2      1    1   2      1    3    write    41
## 340   55      1    3   2      2    2    write    49
## 341   19      1    1   1      1    1    write    46
## 342   90      1    4   3      1    2    write    54
## 343  142      1    4   2      1    3    write    42
## 344   17      1    1   2      1    2    write    57
## 345  122      1    4   2      1    2    write    59
## 346  191      1    4   3      2    2    write    52
## 347   83      1    4   2      1    3    write    62
## 348  182      1    4   2      2    2    write    52
## 349    6      1    1   1      1    2    write    41
## 350   46      1    3   1      1    2    write    55
## 351   43      1    3   1      1    2    write    37
## 352   96      1    4   3      1    2    write    54
## 353  138      1    4   2      1    3    write    57
## 354   10      1    1   2      1    1    write    54
## 355   71      1    4   2      1    1    write    62
## 356  139      1    4   2      1    2    write    59
## 357  110      1    4   2      1    3    write    55
## 358  148      1    4   2      1    3    write    57
## 359  109      1    4   2      1    1    write    39
## 360   39      1    3   3      1    2    write    67
## 361  147      1    4   1      1    2    write    62
## 362   74      1    4   2      1    2    write    50
## 363  198      1    4   3      2    2    write    61
## 364  161      1    4   1      1    2    write    62
## 365  112      1    4   2      1    2    write    59
## 366   69      1    4   1      1    3    write    44
## 367  156      1    4   2      1    2    write    59
## 368  111      1    4   1      1    1    write    54
## 369  186      1    4   2      2    2    write    62
## 370   98      1    4   1      1    3    write    60
## 371  119      1    4   1      1    1    write    57
## 372   13      1    1   2      1    3    write    46
## 373   51      1    3   3      1    1    write    36
## 374   26      1    2   3      1    2    write    59
## 375   36      1    3   1      1    1    write    49
## 376  135      1    4   1      1    2    write    60
## 377   59      1    4   2      1    2    write    67
## 378   78      1    4   2      1    2    write    54
## 379   64      1    4   3      1    3    write    52
## 380   63      1    4   1      1    1    write    65
## 381   79      1    4   2      1    2    write    62
## 382  193      1    4   2      2    2    write    49
## 383   92      1    4   3      1    1    write    67
## 384  160      1    4   2      1    2    write    65
## 385   32      1    2   3      1    3    write    67
## 386   23      1    2   1      1    2    write    65
## 387  158      1    4   2      1    1    write    54
## 388   25      1    2   2      1    1    write    44
## 389  188      1    4   3      2    2    write    62
## 390   52      1    3   1      1    2    write    46
## 391  124      1    4   1      1    3    write    54
## 392  175      1    4   3      2    1    write    57
## 393  184      1    4   2      2    3    write    52
## 394   30      1    2   3      1    2    write    59
## 395  179      1    4   2      2    2    write    65
## 396   31      1    2   2      2    1    write    59
## 397  145      1    4   2      1    3    write    46
## 398  187      1    4   2      2    1    write    41
## 399  118      1    4   2      1    1    write    62
## 400  137      1    4   3      1    2    write    65
## 401   70      0    4   1      1    1     math    41
## 402  121      1    4   2      1    3     math    53
## 403   86      0    4   3      1    1     math    54
## 404  141      0    4   3      1    3     math    47
## 405  172      0    4   2      1    2     math    57
## 406  113      0    4   2      1    2     math    51
## 407   50      0    3   2      1    1     math    42
## 408   11      0    1   2      1    2     math    45
## 409   84      0    4   2      1    1     math    54
## 410   48      0    3   2      1    2     math    52
## 411   75      0    4   2      1    3     math    51
## 412   60      0    4   2      1    2     math    51
## 413   95      0    4   3      1    2     math    71
## 414  104      0    4   3      1    2     math    57
## 415   38      0    3   1      1    2     math    50
## 416  115      0    4   1      1    1     math    43
## 417   76      0    4   3      1    2     math    51
## 418  195      0    4   2      2    1     math    60
## 419  114      0    4   3      1    2     math    62
## 420   85      0    4   2      1    1     math    57
## 421  167      0    4   2      1    1     math    35
## 422  143      0    4   2      1    3     math    75
## 423   41      0    3   2      1    2     math    45
## 424   20      0    1   3      1    2     math    57
## 425   12      0    1   2      1    3     math    45
## 426   53      0    3   2      1    3     math    46
## 427  154      0    4   3      1    2     math    66
## 428  178      0    4   2      2    3     math    57
## 429  196      0    4   3      2    2     math    49
## 430   29      0    2   1      1    1     math    49
## 431  126      0    4   2      1    1     math    57
## 432  103      0    4   3      1    2     math    64
## 433  192      0    4   3      2    2     math    63
## 434  150      0    4   2      1    3     math    57
## 435  199      0    4   3      2    2     math    50
## 436  144      0    4   3      1    1     math    58
## 437  200      0    4   2      2    2     math    75
## 438   80      0    4   3      1    2     math    68
## 439   16      0    1   1      1    3     math    44
## 440  153      0    4   2      1    3     math    40
## 441  176      0    4   2      2    2     math    41
## 442  177      0    4   2      2    2     math    62
## 443  168      0    4   2      1    2     math    57
## 444   40      0    3   1      1    1     math    43
## 445   62      0    4   3      1    1     math    48
## 446  169      0    4   1      1    1     math    63
## 447   49      0    3   3      1    3     math    39
## 448  136      0    4   2      1    2     math    70
## 449  189      0    4   2      2    2     math    63
## 450    7      0    1   2      1    2     math    59
## 451   27      0    2   2      1    2     math    61
## 452  128      0    4   3      1    2     math    38
## 453   21      0    1   2      1    1     math    61
## 454  183      0    4   2      2    2     math    49
## 455  132      0    4   2      1    2     math    73
## 456   15      0    1   3      1    3     math    44
## 457   67      0    4   1      1    3     math    42
## 458   22      0    1   2      1    3     math    39
## 459  185      0    4   2      2    2     math    55
## 460    9      0    1   2      1    3     math    52
## 461  181      0    4   2      2    2     math    45
## 462  170      0    4   3      1    2     math    61
## 463  134      0    4   1      1    1     math    39
## 464  108      0    4   2      1    1     math    41
## 465  197      0    4   3      2    2     math    50
## 466  140      0    4   2      1    3     math    40
## 467  171      0    4   2      1    2     math    60
## 468  107      0    4   1      1    3     math    47
## 469   81      0    4   1      1    2     math    59
## 470   18      0    1   2      1    3     math    49
## 471  155      0    4   2      1    1     math    46
## 472   97      0    4   3      1    2     math    58
## 473   68      0    4   2      1    2     math    71
## 474  157      0    4   2      1    1     math    58
## 475   56      0    4   2      1    3     math    46
## 476    5      0    1   1      1    2     math    43
## 477  159      0    4   3      1    2     math    54
## 478  123      0    4   3      1    1     math    56
## 479  164      0    4   2      1    3     math    46
## 480   14      0    1   3      1    2     math    54
## 481  127      0    4   3      1    2     math    57
## 482  165      0    4   1      1    3     math    54
## 483  174      0    4   2      2    2     math    71
## 484    3      0    1   1      1    2     math    48
## 485   58      0    4   2      1    3     math    40
## 486  146      0    4   3      1    2     math    64
## 487  102      0    4   3      1    2     math    51
## 488  117      0    4   3      1    3     math    39
## 489  133      0    4   2      1    3     math    40
## 490   94      0    4   3      1    2     math    61
## 491   24      0    2   2      1    2     math    66
## 492  149      0    4   1      1    1     math    49
## 493   82      1    4   3      1    2     math    65
## 494    8      1    1   1      1    2     math    52
## 495  129      1    4   1      1    1     math    46
## 496  173      1    4   1      1    1     math    61
## 497   57      1    4   2      1    2     math    72
## 498  100      1    4   3      1    2     math    71
## 499    1      1    1   1      1    3     math    40
## 500  194      1    4   3      2    2     math    69
## 501   88      1    4   3      1    2     math    64
## 502   99      1    4   3      1    1     math    56
## 503   47      1    3   1      1    2     math    49
## 504  120      1    4   3      1    2     math    54
## 505  166      1    4   2      1    2     math    53
## 506   65      1    4   2      1    2     math    66
## 507  101      1    4   3      1    2     math    67
## 508   89      1    4   1      1    3     math    40
## 509   54      1    3   1      2    1     math    46
## 510  180      1    4   3      2    2     math    69
## 511  162      1    4   2      1    3     math    40
## 512    4      1    1   1      1    2     math    41
## 513  131      1    4   3      1    2     math    57
## 514  125      1    4   1      1    2     math    58
## 515   34      1    1   3      2    2     math    57
## 516  106      1    4   2      1    3     math    37
## 517  130      1    4   3      1    1     math    55
## 518   93      1    4   3      1    2     math    62
## 519  163      1    4   1      1    2     math    64
## 520   37      1    3   1      1    3     math    40
## 521   35      1    1   1      2    1     math    50
## 522   87      1    4   2      1    1     math    46
## 523   73      1    4   2      1    2     math    53
## 524  151      1    4   2      1    3     math    52
## 525   44      1    3   1      1    3     math    45
## 526  152      1    4   3      1    2     math    56
## 527  105      1    4   2      1    2     math    45
## 528   28      1    2   2      1    1     math    54
## 529   91      1    4   3      1    3     math    56
## 530   45      1    3   1      1    3     math    41
## 531  116      1    4   2      1    2     math    54
## 532   33      1    2   1      1    2     math    72
## 533   66      1    4   2      1    3     math    56
## 534   72      1    4   2      1    3     math    47
## 535   77      1    4   1      1    2     math    49
## 536   61      1    4   3      1    2     math    60
## 537  190      1    4   2      2    2     math    54
## 538   42      1    3   2      1    3     math    55
## 539    2      1    1   2      1    3     math    33
## 540   55      1    3   2      2    2     math    49
## 541   19      1    1   1      1    1     math    43
## 542   90      1    4   3      1    2     math    50
## 543  142      1    4   2      1    3     math    52
## 544   17      1    1   2      1    2     math    48
## 545  122      1    4   2      1    2     math    58
## 546  191      1    4   3      2    2     math    43
## 547   83      1    4   2      1    3     math    41
## 548  182      1    4   2      2    2     math    43
## 549    6      1    1   1      1    2     math    46
## 550   46      1    3   1      1    2     math    44
## 551   43      1    3   1      1    2     math    43
## 552   96      1    4   3      1    2     math    61
## 553  138      1    4   2      1    3     math    40
## 554   10      1    1   2      1    1     math    49
## 555   71      1    4   2      1    1     math    56
## 556  139      1    4   2      1    2     math    61
## 557  110      1    4   2      1    3     math    50
## 558  148      1    4   2      1    3     math    51
## 559  109      1    4   2      1    1     math    42
## 560   39      1    3   3      1    2     math    67
## 561  147      1    4   1      1    2     math    53
## 562   74      1    4   2      1    2     math    50
## 563  198      1    4   3      2    2     math    51
## 564  161      1    4   1      1    2     math    72
## 565  112      1    4   2      1    2     math    48
## 566   69      1    4   1      1    3     math    40
## 567  156      1    4   2      1    2     math    53
## 568  111      1    4   1      1    1     math    39
## 569  186      1    4   2      2    2     math    63
## 570   98      1    4   1      1    3     math    51
## 571  119      1    4   1      1    1     math    45
## 572   13      1    1   2      1    3     math    39
## 573   51      1    3   3      1    1     math    42
## 574   26      1    2   3      1    2     math    62
## 575   36      1    3   1      1    1     math    44
## 576  135      1    4   1      1    2     math    65
## 577   59      1    4   2      1    2     math    63
## 578   78      1    4   2      1    2     math    54
## 579   64      1    4   3      1    3     math    45
## 580   63      1    4   1      1    1     math    60
## 581   79      1    4   2      1    2     math    49
## 582  193      1    4   2      2    2     math    48
## 583   92      1    4   3      1    1     math    57
## 584  160      1    4   2      1    2     math    55
## 585   32      1    2   3      1    3     math    66
## 586   23      1    2   1      1    2     math    64
## 587  158      1    4   2      1    1     math    55
## 588   25      1    2   2      1    1     math    42
## 589  188      1    4   3      2    2     math    56
## 590   52      1    3   1      1    2     math    53
## 591  124      1    4   1      1    3     math    41
## 592  175      1    4   3      2    1     math    42
## 593  184      1    4   2      2    3     math    53
## 594   30      1    2   3      1    2     math    42
## 595  179      1    4   2      2    2     math    60
## 596   31      1    2   2      2    1     math    52
## 597  145      1    4   2      1    3     math    38
## 598  187      1    4   2      2    1     math    57
## 599  118      1    4   2      1    1     math    58
## 600  137      1    4   3      1    2     math    65
## 601   70      0    4   1      1    1  science    47
## 602  121      1    4   2      1    3  science    63
## 603   86      0    4   3      1    1  science    58
## 604  141      0    4   3      1    3  science    53
## 605  172      0    4   2      1    2  science    53
## 606  113      0    4   2      1    2  science    63
## 607   50      0    3   2      1    1  science    53
## 608   11      0    1   2      1    2  science    39
## 609   84      0    4   2      1    1  science    58
## 610   48      0    3   2      1    2  science    50
## 611   75      0    4   2      1    3  science    53
## 612   60      0    4   2      1    2  science    63
## 613   95      0    4   3      1    2  science    61
## 614  104      0    4   3      1    2  science    55
## 615   38      0    3   1      1    2  science    31
## 616  115      0    4   1      1    1  science    50
## 617   76      0    4   3      1    2  science    50
## 618  195      0    4   2      2    1  science    58
## 619  114      0    4   3      1    2  science    55
## 620   85      0    4   2      1    1  science    53
## 621  167      0    4   2      1    1  science    66
## 622  143      0    4   2      1    3  science    72
## 623   41      0    3   2      1    2  science    55
## 624   20      0    1   3      1    2  science    61
## 625   12      0    1   2      1    3  science    39
## 626   53      0    3   2      1    3  science    39
## 627  154      0    4   3      1    2  science    61
## 628  178      0    4   2      2    3  science    58
## 629  196      0    4   3      2    2  science    39
## 630   29      0    2   1      1    1  science    55
## 631  126      0    4   2      1    1  science    47
## 632  103      0    4   3      1    2  science    64
## 633  192      0    4   3      2    2  science    66
## 634  150      0    4   2      1    3  science    72
## 635  199      0    4   3      2    2  science    61
## 636  144      0    4   3      1    1  science    61
## 637  200      0    4   2      2    2  science    66
## 638   80      0    4   3      1    2  science    66
## 639   16      0    1   1      1    3  science    36
## 640  153      0    4   2      1    3  science    39
## 641  176      0    4   2      2    2  science    42
## 642  177      0    4   2      2    2  science    58
## 643  168      0    4   2      1    2  science    55
## 644   40      0    3   1      1    1  science    50
## 645   62      0    4   3      1    1  science    63
## 646  169      0    4   1      1    1  science    69
## 647   49      0    3   3      1    3  science    49
## 648  136      0    4   2      1    2  science    63
## 649  189      0    4   2      2    2  science    53
## 650    7      0    1   2      1    2  science    47
## 651   27      0    2   2      1    2  science    57
## 652  128      0    4   3      1    2  science    47
## 653   21      0    1   2      1    1  science    50
## 654  183      0    4   2      2    2  science    55
## 655  132      0    4   2      1    2  science    69
## 656   15      0    1   3      1    3  science    26
## 657   67      0    4   1      1    3  science    33
## 658   22      0    1   2      1    3  science    56
## 659  185      0    4   2      2    2  science    58
## 660    9      0    1   2      1    3  science    44
## 661  181      0    4   2      2    2  science    58
## 662  170      0    4   3      1    2  science    69
## 663  134      0    4   1      1    1  science    34
## 664  108      0    4   2      1    1  science    36
## 665  197      0    4   3      2    2  science    36
## 666  140      0    4   2      1    3  science    50
## 667  171      0    4   2      1    2  science    55
## 668  107      0    4   1      1    3  science    42
## 669   81      0    4   1      1    2  science    65
## 670   18      0    1   2      1    3  science    44
## 671  155      0    4   2      1    1  science    39
## 672   97      0    4   3      1    2  science    58
## 673   68      0    4   2      1    2  science    63
## 674  157      0    4   2      1    1  science    74
## 675   56      0    4   2      1    3  science    58
## 676    5      0    1   1      1    2  science    45
## 677  159      0    4   3      1    2  science    49
## 678  123      0    4   3      1    1  science    63
## 679  164      0    4   2      1    3  science    39
## 680   14      0    1   3      1    2  science    42
## 681  127      0    4   3      1    2  science    55
## 682  165      0    4   1      1    3  science    61
## 683  174      0    4   2      2    2  science    66
## 684    3      0    1   1      1    2  science    63
## 685   58      0    4   2      1    3  science    44
## 686  146      0    4   3      1    2  science    63
## 687  102      0    4   3      1    2  science    53
## 688  117      0    4   3      1    3  science    42
## 689  133      0    4   2      1    3  science    34
## 690   94      0    4   3      1    2  science    61
## 691   24      0    2   2      1    2  science    47
## 692  149      0    4   1      1    1  science    66
## 693   82      1    4   3      1    2  science    69
## 694    8      1    1   1      1    2  science    44
## 695  129      1    4   1      1    1  science    47
## 696  173      1    4   1      1    1  science    63
## 697   57      1    4   2      1    2  science    66
## 698  100      1    4   3      1    2  science    69
## 699    1      1    1   1      1    3  science    39
## 700  194      1    4   3      2    2  science    61
## 701   88      1    4   3      1    2  science    69
## 702   99      1    4   3      1    1  science    66
## 703   47      1    3   1      1    2  science    33
## 704  120      1    4   3      1    2  science    50
## 705  166      1    4   2      1    2  science    61
## 706   65      1    4   2      1    2  science    42
## 707  101      1    4   3      1    2  science    50
## 708   89      1    4   1      1    3  science    51
## 709   54      1    3   1      2    1  science    50
## 710  180      1    4   3      2    2  science    58
## 711  162      1    4   2      1    3  science    61
## 712    4      1    1   1      1    2  science    39
## 713  131      1    4   3      1    2  science    46
## 714  125      1    4   1      1    2  science    59
## 715   34      1    1   3      2    2  science    55
## 716  106      1    4   2      1    3  science    42
## 717  130      1    4   3      1    1  science    55
## 718   93      1    4   3      1    2  science    58
## 719  163      1    4   1      1    2  science    58
## 720   37      1    3   1      1    3  science    39
## 721   35      1    1   1      2    1  science    50
## 722   87      1    4   2      1    1  science    50
## 723   73      1    4   2      1    2  science    39
## 724  151      1    4   2      1    3  science    48
## 725   44      1    3   1      1    3  science    34
## 726  152      1    4   3      1    2  science    58
## 727  105      1    4   2      1    2  science    44
## 728   28      1    2   2      1    1  science    50
## 729   91      1    4   3      1    3  science    47
## 730   45      1    3   1      1    3  science    29
## 731  116      1    4   2      1    2  science    50
## 732   33      1    2   1      1    2  science    54
## 733   66      1    4   2      1    3  science    50
## 734   72      1    4   2      1    3  science    47
## 735   77      1    4   1      1    2  science    44
## 736   61      1    4   3      1    2  science    67
## 737  190      1    4   2      2    2  science    58
## 738   42      1    3   2      1    3  science    44
## 739    2      1    1   2      1    3  science    42
## 740   55      1    3   2      2    2  science    44
## 741   19      1    1   1      1    1  science    44
## 742   90      1    4   3      1    2  science    50
## 743  142      1    4   2      1    3  science    39
## 744   17      1    1   2      1    2  science    44
## 745  122      1    4   2      1    2  science    53
## 746  191      1    4   3      2    2  science    48
## 747   83      1    4   2      1    3  science    55
## 748  182      1    4   2      2    2  science    44
## 749    6      1    1   1      1    2  science    40
## 750   46      1    3   1      1    2  science    34
## 751   43      1    3   1      1    2  science    42
## 752   96      1    4   3      1    2  science    58
## 753  138      1    4   2      1    3  science    50
## 754   10      1    1   2      1    1  science    53
## 755   71      1    4   2      1    1  science    58
## 756  139      1    4   2      1    2  science    55
## 757  110      1    4   2      1    3  science    54
## 758  148      1    4   2      1    3  science    47
## 759  109      1    4   2      1    1  science    42
## 760   39      1    3   3      1    2  science    61
## 761  147      1    4   1      1    2  science    53
## 762   74      1    4   2      1    2  science    51
## 763  198      1    4   3      2    2  science    63
## 764  161      1    4   1      1    2  science    61
## 765  112      1    4   2      1    2  science    55
## 766   69      1    4   1      1    3  science    40
## 767  156      1    4   2      1    2  science    61
## 768  111      1    4   1      1    1  science    47
## 769  186      1    4   2      2    2  science    55
## 770   98      1    4   1      1    3  science    53
## 771  119      1    4   1      1    1  science    50
## 772   13      1    1   2      1    3  science    47
## 773   51      1    3   3      1    1  science    31
## 774   26      1    2   3      1    2  science    61
## 775   36      1    3   1      1    1  science    35
## 776  135      1    4   1      1    2  science    54
## 777   59      1    4   2      1    2  science    55
## 778   78      1    4   2      1    2  science    53
## 779   64      1    4   3      1    3  science    58
## 780   63      1    4   1      1    1  science    56
## 781   79      1    4   2      1    2  science    50
## 782  193      1    4   2      2    2  science    39
## 783   92      1    4   3      1    1  science    63
## 784  160      1    4   2      1    2  science    50
## 785   32      1    2   3      1    3  science    66
## 786   23      1    2   1      1    2  science    58
## 787  158      1    4   2      1    1  science    53
## 788   25      1    2   2      1    1  science    42
## 789  188      1    4   3      2    2  science    55
## 790   52      1    3   1      1    2  science    53
## 791  124      1    4   1      1    3  science    42
## 792  175      1    4   3      2    1  science    50
## 793  184      1    4   2      2    3  science    55
## 794   30      1    2   3      1    2  science    34
## 795  179      1    4   2      2    2  science    50
## 796   31      1    2   2      2    1  science    42
## 797  145      1    4   2      1    3  science    36
## 798  187      1    4   2      2    1  science    55
## 799  118      1    4   2      1    1  science    58
## 800  137      1    4   3      1    2  science    53
## 801   70      0    4   1      1    1    socst    57
## 802  121      1    4   2      1    3    socst    61
## 803   86      0    4   3      1    1    socst    31
## 804  141      0    4   3      1    3    socst    56
## 805  172      0    4   2      1    2    socst    61
## 806  113      0    4   2      1    2    socst    61
## 807   50      0    3   2      1    1    socst    61
## 808   11      0    1   2      1    2    socst    36
## 809   84      0    4   2      1    1    socst    51
## 810   48      0    3   2      1    2    socst    51
## 811   75      0    4   2      1    3    socst    61
## 812   60      0    4   2      1    2    socst    61
## 813   95      0    4   3      1    2    socst    71
## 814  104      0    4   3      1    2    socst    46
## 815   38      0    3   1      1    2    socst    56
## 816  115      0    4   1      1    1    socst    56
## 817   76      0    4   3      1    2    socst    56
## 818  195      0    4   2      2    1    socst    56
## 819  114      0    4   3      1    2    socst    61
## 820   85      0    4   2      1    1    socst    46
## 821  167      0    4   2      1    1    socst    41
## 822  143      0    4   2      1    3    socst    66
## 823   41      0    3   2      1    2    socst    56
## 824   20      0    1   3      1    2    socst    61
## 825   12      0    1   2      1    3    socst    46
## 826   53      0    3   2      1    3    socst    31
## 827  154      0    4   3      1    2    socst    66
## 828  178      0    4   2      2    3    socst    46
## 829  196      0    4   3      2    2    socst    46
## 830   29      0    2   1      1    1    socst    41
## 831  126      0    4   2      1    1    socst    51
## 832  103      0    4   3      1    2    socst    61
## 833  192      0    4   3      2    2    socst    71
## 834  150      0    4   2      1    3    socst    31
## 835  199      0    4   3      2    2    socst    61
## 836  144      0    4   3      1    1    socst    66
## 837  200      0    4   2      2    2    socst    66
## 838   80      0    4   3      1    2    socst    66
## 839   16      0    1   1      1    3    socst    36
## 840  153      0    4   2      1    3    socst    51
## 841  176      0    4   2      2    2    socst    51
## 842  177      0    4   2      2    2    socst    51
## 843  168      0    4   2      1    2    socst    51
## 844   40      0    3   1      1    1    socst    41
## 845   62      0    4   3      1    1    socst    66
## 846  169      0    4   1      1    1    socst    46
## 847   49      0    3   3      1    3    socst    47
## 848  136      0    4   2      1    2    socst    51
## 849  189      0    4   2      2    2    socst    46
## 850    7      0    1   2      1    2    socst    51
## 851   27      0    2   2      1    2    socst    56
## 852  128      0    4   3      1    2    socst    41
## 853   21      0    1   2      1    1    socst    46
## 854  183      0    4   2      2    2    socst    71
## 855  132      0    4   2      1    2    socst    66
## 856   15      0    1   3      1    3    socst    42
## 857   67      0    4   1      1    3    socst    32
## 858   22      0    1   2      1    3    socst    46
## 859  185      0    4   2      2    2    socst    41
## 860    9      0    1   2      1    3    socst    51
## 861  181      0    4   2      2    2    socst    61
## 862  170      0    4   3      1    2    socst    66
## 863  134      0    4   1      1    1    socst    46
## 864  108      0    4   2      1    1    socst    36
## 865  197      0    4   3      2    2    socst    61
## 866  140      0    4   2      1    3    socst    26
## 867  171      0    4   2      1    2    socst    66
## 868  107      0    4   1      1    3    socst    26
## 869   81      0    4   1      1    2    socst    44
## 870   18      0    1   2      1    3    socst    36
## 871  155      0    4   2      1    1    socst    51
## 872   97      0    4   3      1    2    socst    61
## 873   68      0    4   2      1    2    socst    66
## 874  157      0    4   2      1    1    socst    66
## 875   56      0    4   2      1    3    socst    51
## 876    5      0    1   1      1    2    socst    31
## 877  159      0    4   3      1    2    socst    61
## 878  123      0    4   3      1    1    socst    66
## 879  164      0    4   2      1    3    socst    46
## 880   14      0    1   3      1    2    socst    56
## 881  127      0    4   3      1    2    socst    56
## 882  165      0    4   1      1    3    socst    36
## 883  174      0    4   2      2    2    socst    56
## 884    3      0    1   1      1    2    socst    56
## 885   58      0    4   2      1    3    socst    41
## 886  146      0    4   3      1    2    socst    66
## 887  102      0    4   3      1    2    socst    56
## 888  117      0    4   3      1    3    socst    56
## 889  133      0    4   2      1    3    socst    31
## 890   94      0    4   3      1    2    socst    56
## 891   24      0    2   2      1    2    socst    46
## 892  149      0    4   1      1    1    socst    46
## 893   82      1    4   3      1    2    socst    61
## 894    8      1    1   1      1    2    socst    48
## 895  129      1    4   1      1    1    socst    51
## 896  173      1    4   1      1    1    socst    51
## 897   57      1    4   2      1    2    socst    56
## 898  100      1    4   3      1    2    socst    71
## 899    1      1    1   1      1    3    socst    41
## 900  194      1    4   3      2    2    socst    61
## 901   88      1    4   3      1    2    socst    66
## 902   99      1    4   3      1    1    socst    61
## 903   47      1    3   1      1    2    socst    41
## 904  120      1    4   3      1    2    socst    51
## 905  166      1    4   2      1    2    socst    51
## 906   65      1    4   2      1    2    socst    56
## 907  101      1    4   3      1    2    socst    56
## 908   89      1    4   1      1    3    socst    33
## 909   54      1    3   1      2    1    socst    56
## 910  180      1    4   3      2    2    socst    71
## 911  162      1    4   2      1    3    socst    56
## 912    4      1    1   1      1    2    socst    51
## 913  131      1    4   3      1    2    socst    66
## 914  125      1    4   1      1    2    socst    56
## 915   34      1    1   3      2    2    socst    66
## 916  106      1    4   2      1    3    socst    41
## 917  130      1    4   3      1    1    socst    46
## 918   93      1    4   3      1    2    socst    66
## 919  163      1    4   1      1    2    socst    56
## 920   37      1    3   1      1    3    socst    51
## 921   35      1    1   1      2    1    socst    51
## 922   87      1    4   2      1    1    socst    56
## 923   73      1    4   2      1    2    socst    56
## 924  151      1    4   2      1    3    socst    46
## 925   44      1    3   1      1    3    socst    46
## 926  152      1    4   3      1    2    socst    61
## 927  105      1    4   2      1    2    socst    56
## 928   28      1    2   2      1    1    socst    41
## 929   91      1    4   3      1    3    socst    46
## 930   45      1    3   1      1    3    socst    26
## 931  116      1    4   2      1    2    socst    56
## 932   33      1    2   1      1    2    socst    56
## 933   66      1    4   2      1    3    socst    51
## 934   72      1    4   2      1    3    socst    46
## 935   77      1    4   1      1    2    socst    66
## 936   61      1    4   3      1    2    socst    66
## 937  190      1    4   2      2    2    socst    46
## 938   42      1    3   2      1    3    socst    56
## 939    2      1    1   2      1    3    socst    41
## 940   55      1    3   2      2    2    socst    61
## 941   19      1    1   1      1    1    socst    51
## 942   90      1    4   3      1    2    socst    52
## 943  142      1    4   2      1    3    socst    51
## 944   17      1    1   2      1    2    socst    41
## 945  122      1    4   2      1    2    socst    66
## 946  191      1    4   3      2    2    socst    61
## 947   83      1    4   2      1    3    socst    31
## 948  182      1    4   2      2    2    socst    51
## 949    6      1    1   1      1    2    socst    41
## 950   46      1    3   1      1    2    socst    41
## 951   43      1    3   1      1    2    socst    46
## 952   96      1    4   3      1    2    socst    56
## 953  138      1    4   2      1    3    socst    51
## 954   10      1    1   2      1    1    socst    61
## 955   71      1    4   2      1    1    socst    66
## 956  139      1    4   2      1    2    socst    71
## 957  110      1    4   2      1    3    socst    61
## 958  148      1    4   2      1    3    socst    61
## 959  109      1    4   2      1    1    socst    41
## 960   39      1    3   3      1    2    socst    66
## 961  147      1    4   1      1    2    socst    61
## 962   74      1    4   2      1    2    socst    58
## 963  198      1    4   3      2    2    socst    31
## 964  161      1    4   1      1    2    socst    61
## 965  112      1    4   2      1    2    socst    61
## 966   69      1    4   1      1    3    socst    31
## 967  156      1    4   2      1    2    socst    61
## 968  111      1    4   1      1    1    socst    36
## 969  186      1    4   2      2    2    socst    41
## 970   98      1    4   1      1    3    socst    37
## 971  119      1    4   1      1    1    socst    43
## 972   13      1    1   2      1    3    socst    61
## 973   51      1    3   3      1    1    socst    39
## 974   26      1    2   3      1    2    socst    51
## 975   36      1    3   1      1    1    socst    51
## 976  135      1    4   1      1    2    socst    66
## 977   59      1    4   2      1    2    socst    71
## 978   78      1    4   2      1    2    socst    41
## 979   64      1    4   3      1    3    socst    36
## 980   63      1    4   1      1    1    socst    51
## 981   79      1    4   2      1    2    socst    51
## 982  193      1    4   2      2    2    socst    51
## 983   92      1    4   3      1    1    socst    61
## 984  160      1    4   2      1    2    socst    61
## 985   32      1    2   3      1    3    socst    56
## 986   23      1    2   1      1    2    socst    71
## 987  158      1    4   2      1    1    socst    51
## 988   25      1    2   2      1    1    socst    36
## 989  188      1    4   3      2    2    socst    61
## 990   52      1    3   1      1    2    socst    66
## 991  124      1    4   1      1    3    socst    41
## 992  175      1    4   3      2    1    socst    41
## 993  184      1    4   2      2    3    socst    56
## 994   30      1    2   3      1    2    socst    51
## 995  179      1    4   2      2    2    socst    56
## 996   31      1    2   2      2    1    socst    56
## 997  145      1    4   2      1    3    socst    46
## 998  187      1    4   2      2    1    socst    52
## 999  118      1    4   2      1    1    socst    61
## 1000 137      1    4   3      1    2    socst    61
#Remark: Pay extra attention to the last 2 columns
head(hsb2_long)
##    id female race ses schtyp prog variable value
## 1  70      0    4   1      1    1     read    57
## 2 121      1    4   2      1    3     read    68
## 3  86      0    4   3      1    1     read    44
## 4 141      0    4   3      1    3     read    63
## 5 172      0    4   2      1    2     read    47
## 6 113      0    4   2      1    2     read    44
tail(hsb2_long)
##       id female race ses schtyp prog variable value
## 995  179      1    4   2      2    2    socst    56
## 996   31      1    2   2      2    1    socst    56
## 997  145      1    4   2      1    3    socst    46
## 998  187      1    4   2      2    1    socst    52
## 999  118      1    4   2      1    1    socst    61
## 1000 137      1    4   3      1    2    socst    61
# get the frequency
table(hsb2_long$variable)
## 
##    read   write    math science   socst 
##     200     200     200     200     200
# This means that the tables hsb2_long and hsb2_wide are the same
# tables displayed in two ways
# display data structure of the hsb2_long dataset
str(hsb2_long)
## 'data.frame':    1000 obs. of  8 variables:
##  $ id      : num  70 121 86 141 172 113 50 11 84 48 ...
##  $ female  : num  0 1 0 0 0 0 0 0 0 0 ...
##  $ race    : num  4 4 4 4 4 4 3 1 4 3 ...
##  $ ses     : num  1 2 3 3 2 2 2 2 2 2 ...
##  $ schtyp  : num  1 1 1 1 1 1 1 1 1 1 ...
##  $ prog    : num  1 3 1 3 2 2 1 2 1 2 ...
##  $ variable: Factor w/ 5 levels "read","write",..: 1 1 1 1 1 1 1 1 1 1 ...
##  $ value   : num  57 68 44 63 47 44 50 34 63 57 ...
# the variables female, race, ses, schtyp, prog are stored as numbers
# for encoding purposes. However these variables are actually qualitative variables
# so we convert each from integer type to categorical type
# defining some variables to become factor variable
# we use another variable to preserve the file hsb2_long
data <- hsb2_long
data$ses = factor(data$ses, labels=c("low", "middle", "high"))
data$schtyp = factor(data$schtyp, labels=c("public", "private"))
data$prog = factor(data$prog, labels=c("general", "academic", "vocational"))
data$race = factor(data$race, labels=c("hispanic", "asian", "africanamer","
white"))
data$female = factor(data$female, labels=c("female", "male"))

# check data structure again. The former integer variables are now categorical variable
str(data)
## 'data.frame':    1000 obs. of  8 variables:
##  $ id      : num  70 121 86 141 172 113 50 11 84 48 ...
##  $ female  : Factor w/ 2 levels "female","male": 1 2 1 1 1 1 1 1 1 1 ...
##  $ race    : Factor w/ 4 levels "hispanic","asian",..: 4 4 4 4 4 4 3 1 4 3 ...
##  $ ses     : Factor w/ 3 levels "low","middle",..: 1 2 3 3 2 2 2 2 2 2 ...
##  $ schtyp  : Factor w/ 2 levels "public","private": 1 1 1 1 1 1 1 1 1 1 ...
##  $ prog    : Factor w/ 3 levels "general","academic",..: 1 3 1 3 2 2 1 2 1 2 ...
##  $ variable: Factor w/ 5 levels "read","write",..: 1 1 1 1 1 1 1 1 1 1 ...
##  $ value   : num  57 68 44 63 47 44 50 34 63 57 ...
# we compare student performance by using boxplots
library(gplots)
## 
## Attaching package: 'gplots'
## 
## The following object is masked from 'package:stats':
## 
##     lowess
# compute the average value by group using tapply() command
means <- round(tapply(data$value, data$variable, mean), digits=2)
# create boxplot by group
boxplot(data$value ~ data$variable, main= "Student Performance by Subject
(brown dot = mean score)",
        xlab="Subject matter", ylab="Percentage Scores", col=rainbow(5))

# insert the average values
points(means, col="brown", pch=18)

# can also compute the median values
medians = round(tapply(data$value, data$variable, median), digits=2)
medians
##    read   write    math science   socst 
##      50      54      52      53      52
points(medians, col="red", pch=18)

# Lab Exercise 9: How to plot categorical variables
library(ggplot2)

# we load variable names to memory to avoid the dollar notation
attach(hsb2_long)

# create the plot object p
p <- ggplot(hsb2_long, aes(ses, fill = prog)) + facet_wrap(~race)
p + geom_bar()
## Warning: The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?

p + geom_bar(position = "dodge")
## Warning: The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?

library(ggplot2)
attach(hsb2_long)
## The following objects are masked from hsb2_long (pos = 3):
## 
##     female, id, prog, race, schtyp, ses, value, variable
p <- ggplot(hsb2_long, aes(ses, fill = prog)) + facet_wrap(~schtyp)
p + geom_bar()
## Warning: The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?

p + geom_bar(position = "dodge")
## Warning: The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?
## The following aesthetics were dropped during statistical transformation: fill
## ℹ This can happen when ggplot fails to infer the correct grouping structure in
##   the data.
## ℹ Did you forget to specify a `group` aesthetic or to convert a numerical
##   variable into a factor?

# Lab Exercise 10: Scatter Plots with marginal Distributions
# Advance Scatter plots using libraries
# install.packages("ggExtra")
# install.packages("tidyverse")
library(tidyverse)
## ── Attaching core tidyverse packages ──────────────────────── tidyverse 2.0.0 ──
## ✔ dplyr     1.1.1     ✔ stringr   1.5.0
## ✔ forcats   1.0.0     ✔ tibble    3.2.1
## ✔ lubridate 1.9.2     ✔ tidyr     1.3.0
## ✔ purrr     1.0.1     
## ── Conflicts ────────────────────────────────────────── tidyverse_conflicts() ──
## ✖ dplyr::filter() masks stats::filter()
## ✖ dplyr::lag()    masks stats::lag()
## ℹ Use the conflicted package (<http://conflicted.r-lib.org/>) to force all conflicts to become errors
library(ggExtra)

# set theme appearance of grid background
theme_set(theme_bw(1))

# create X and Y vector
(xAxis <- rnorm(1000)) # normal distribution with mean 0 and sd=1
##    [1]  3.409575e-01 -7.719201e-01  4.876172e-01  3.991219e-01  1.878852e+00
##    [6] -2.121204e+00  1.035551e-02  2.179876e-01 -1.000403e+00 -4.487063e-01
##   [11]  1.581279e+00  4.188315e-01 -6.791913e-01  1.659934e+00  7.553677e-01
##   [16] -1.667321e+00  6.574069e-01 -4.869845e-01 -1.249671e+00 -1.590320e-01
##   [21] -5.782027e-01 -8.943598e-01  6.245035e-01 -1.093621e+00  2.373496e-01
##   [26]  2.689920e-01  4.942085e-01 -3.297741e-01 -1.367781e+00  2.928795e-01
##   [31] -1.425571e+00 -1.783196e+00 -1.290991e+00 -1.400121e-01 -1.117545e+00
##   [36]  1.829056e+00 -8.282749e-02  1.994940e-02 -1.240645e-01  6.586247e-03
##   [41] -1.536574e+00  7.053144e-02  7.334283e-01 -6.769525e-01  1.469061e-01
##   [46]  7.066507e-01  3.745086e-01  7.165542e-01  2.253530e+00  2.265302e-01
##   [51]  3.839332e-01 -1.023759e-01  9.144695e-01 -1.127231e+00 -1.070486e+00
##   [56] -5.809122e-01  1.417153e+00  5.027462e-01  5.846934e-01 -2.049763e-03
##   [61] -4.135235e-01  6.522196e-01  6.659892e-01 -9.109032e-01 -2.030678e+00
##   [66] -3.869109e-01 -1.299242e+00 -8.259640e-02 -5.462009e-02  1.341195e+00
##   [71]  2.764819e-01 -1.807248e+00  1.564987e+00 -1.381861e+00 -1.050401e-01
##   [76]  7.875416e-01  3.318146e-01 -2.326054e-01  2.689871e+00 -1.270241e+00
##   [81]  8.592305e-01 -6.859279e-01  2.220620e+00 -1.290481e+00 -2.761709e-01
##   [86] -1.114385e+00 -1.910441e+00  7.458022e-01 -5.603938e-01  1.113525e-01
##   [91]  9.577619e-01  3.873006e-01 -5.995250e-01 -6.049432e-01 -7.088252e-02
##   [96] -5.938226e-02  1.761465e+00  1.530876e+00 -2.099453e+00  8.429981e-02
##  [101] -1.242658e+00  2.088927e-01 -1.352475e+00  1.077401e+00  4.340448e-02
##  [106]  1.777176e+00 -4.066184e-01  1.435004e+00  7.951172e-02 -1.129640e-01
##  [111]  8.741924e-01 -5.148990e-01 -1.479696e-01  9.906909e-01  1.096519e+00
##  [116]  2.434663e+00 -2.913619e-01 -9.871906e-01  4.511395e-01 -2.202277e-01
##  [121] -6.979903e-01 -1.445276e+00  3.862502e-01  1.584769e+00  6.803168e-01
##  [126] -1.682292e+00  6.878002e-02 -6.574444e-01  1.209443e+00 -1.079798e+00
##  [131] -1.422287e+00  7.189521e-02 -2.525578e-01 -7.882570e-01  2.076565e+00
##  [136] -1.305280e+00 -1.209629e+00 -6.035099e-01  2.088116e-01 -6.667146e-02
##  [141]  1.086865e+00 -7.959841e-01 -1.556256e+00 -1.492581e+00 -1.118105e-01
##  [146] -1.669966e+00  8.791722e-01 -3.296513e-01  9.326564e-01 -7.043529e-01
##  [151]  1.648896e+00 -1.076650e+00  9.009351e-01  5.682331e-01 -2.809782e-01
##  [156]  6.244678e-01  2.195397e+00 -3.790542e-01 -3.245761e-01  9.337869e-01
##  [161] -1.971571e+00 -1.033280e+00  3.427030e-01 -1.004823e+00  1.901582e+00
##  [166] -1.232107e+00 -1.047757e-01  1.308674e+00  6.631255e-01 -4.952800e-01
##  [171]  1.460605e+00 -5.702497e-01  1.046362e+00  1.403625e+00  1.089381e+00
##  [176]  1.370614e-01 -8.852995e-01  6.574533e-01 -8.096115e-01 -4.305182e-01
##  [181] -3.179791e-01 -7.457510e-01 -4.605317e-01 -1.056466e+00 -1.139446e+00
##  [186]  3.868106e-01 -7.859772e-01  2.384253e-01 -8.961429e-01 -1.593211e+00
##  [191] -3.738927e-01  7.735259e-01  6.857871e-01 -5.223749e-01  8.010797e-01
##  [196] -9.413153e-01 -5.669490e-01 -4.746584e-01 -1.638148e-01  1.515446e-01
##  [201] -7.273367e-02 -2.011138e-01  1.050540e+00  1.200810e+00  9.815205e-01
##  [206] -8.332721e-01 -2.503941e-02  3.829635e-01 -1.115403e-01  3.058218e-01
##  [211] -5.118443e-01  1.423254e+00  2.794278e-02 -1.283295e+00 -2.569362e-01
##  [216] -1.130067e+00  8.388776e-03  9.044386e-02 -5.563117e-01 -1.695991e+00
##  [221] -5.706962e-01  6.248616e-01 -9.524885e-02 -8.769316e-01  6.294927e-01
##  [226]  1.281731e-01  1.316090e+00  1.290378e+00 -1.137059e+00 -2.067914e-01
##  [231] -8.330314e-01  5.004598e-01 -1.540153e+00 -2.741267e-02  1.865387e-01
##  [236]  1.115644e+00 -1.361765e-01  2.450819e+00 -3.740874e-01 -9.424560e-01
##  [241] -2.248322e+00 -4.886354e-01  1.092209e-01  9.874453e-04 -4.527194e-01
##  [246]  1.611906e-01  3.620933e-01 -9.289031e-01 -1.259060e+00  1.691572e-01
##  [251] -2.323643e-01 -5.670137e-01 -7.511098e-01  7.084574e-01 -5.284639e-01
##  [256]  5.092486e-02 -3.241424e-01  9.909194e-01  1.929576e-01  3.739242e-01
##  [261]  1.530022e+00  4.611246e-01 -1.810379e+00 -1.238104e+00 -5.004199e-01
##  [266] -5.112005e-01 -1.982114e-01 -7.322820e-01 -9.797301e-01 -3.086885e-01
##  [271]  1.161829e+00  7.339281e-01  3.765491e-01 -5.336119e-01 -3.650638e-01
##  [276]  3.562810e-01  1.719492e+00 -4.002897e-01  7.861289e-01 -2.905187e+00
##  [281]  5.889372e-02 -4.531388e-01  2.922541e-01  2.262458e-01 -3.311195e-01
##  [286] -1.175555e+00 -4.844587e-01 -3.526646e-01  6.753127e-01 -2.232440e-01
##  [291] -5.984553e-01  1.192218e+00  1.006098e+00 -1.164808e+00 -9.114231e-01
##  [296] -5.474136e-01  1.388172e+00 -1.198035e-01 -8.760456e-01 -1.413709e+00
##  [301] -8.775808e-01 -1.562521e+00 -2.415780e-01 -1.592944e-01  9.298013e-01
##  [306] -1.487598e+00 -1.375478e+00 -1.150258e+00  3.734889e-01 -1.641655e+00
##  [311]  2.090085e+00  1.241919e+00  2.018898e+00 -1.244763e+00  8.686362e-01
##  [316]  5.951364e-01 -1.537980e-01 -5.609926e-01  1.004828e+00 -1.374475e+00
##  [321] -1.889149e+00  2.591793e+00  1.467393e+00  1.861938e-01 -1.760868e+00
##  [326] -6.162767e-01 -5.995633e-01  5.449664e-01 -1.303450e-01  1.761425e+00
##  [331] -8.098125e-01 -1.729015e-01  3.384362e-01 -2.536018e-03  2.427281e-01
##  [336]  1.256939e-01  3.774665e-01  9.251033e-01  9.977532e-02  6.632399e-02
##  [341] -2.495618e-01 -1.445335e+00  3.649235e-01 -3.770405e-01  9.257322e-01
##  [346] -1.504689e+00  3.794436e-01 -1.691665e+00  8.244697e-01 -9.771159e-01
##  [351]  1.358224e-01  1.177632e+00  5.076344e-01  2.731869e-01 -1.760787e-01
##  [356] -6.432038e-01 -2.873483e-01  5.863002e-02  1.014129e+00 -7.591230e-01
##  [361] -6.625472e-01  2.928904e-02  9.680263e-01 -4.535334e-01  1.830489e-01
##  [366] -1.548943e+00 -1.690957e+00  1.266109e+00  1.871802e+00  6.784542e-01
##  [371]  1.046214e+00  8.970366e-01  3.194762e-01 -9.493115e-02 -4.227833e-01
##  [376]  7.006012e-01  6.290820e-01 -4.461346e-01 -2.078600e-01 -5.945440e-01
##  [381] -1.356801e+00  7.350038e-01  7.502912e-01 -3.737877e-01  1.009162e+00
##  [386] -5.926768e-01  1.954754e+00 -1.098446e+00 -1.942397e+00  1.667034e+00
##  [391] -9.524117e-01  2.137054e+00 -5.459332e-01  2.729063e+00 -4.296521e-01
##  [396] -3.638107e-01  6.815228e-01 -1.628109e+00  1.445356e+00  2.246554e+00
##  [401] -1.407752e+00  3.975670e-01 -1.667417e+00  2.211537e+00  1.215376e+00
##  [406] -8.592549e-01 -1.156635e+00  1.110529e+00 -1.507332e+00 -1.938236e+00
##  [411]  9.916233e-01 -8.664058e-01  7.320542e-01  5.035988e-01 -1.330849e+00
##  [416] -2.449426e-01  1.132481e+00  4.598998e-01  1.570867e-01  4.875234e-01
##  [421] -1.069531e+00  1.265634e+00  1.345252e+00  2.860358e-01 -1.103901e-01
##  [426] -1.088520e+00  5.087606e-01  9.509454e-01  8.404597e-01 -1.639187e+00
##  [431] -5.378148e-01 -8.032560e-01  3.341928e-01 -1.185620e-01  1.041088e+00
##  [436]  3.788275e-02  7.211497e-01  2.270019e+00  3.664618e-02  5.633037e-01
##  [441] -6.148231e-01  4.683675e-03 -1.046138e+00 -2.282173e-01  4.084029e-01
##  [446]  3.266178e-01 -1.368726e+00  1.402579e+00 -1.802245e+00  1.130855e+00
##  [451]  6.600765e-01  1.091589e+00  7.738603e-01 -1.133310e+00 -4.452571e-01
##  [456]  7.039486e-01  3.130652e-01 -9.612895e-01 -2.522741e-01 -1.989946e-01
##  [461]  1.706204e+00  6.652973e-01  2.642765e-01 -4.485797e-01 -4.195383e-01
##  [466] -1.067415e-01  7.373909e-01 -2.088068e-01 -1.696900e+00  1.410234e+00
##  [471]  3.200339e-02  9.583779e-01 -4.903723e-01  2.283348e+00  5.068375e-01
##  [476]  5.536835e-01 -4.187955e-01  1.055986e+00 -7.790599e-01  1.847680e-01
##  [481]  3.071071e-01 -2.179237e+00  1.253352e+00  1.316307e+00 -1.612764e-01
##  [486] -1.811290e-01 -5.152022e-01 -9.876129e-01  1.574241e+00 -3.122014e-01
##  [491] -5.577358e-01  1.060582e+00  9.615360e-01  4.895078e-03 -1.072402e-01
##  [496]  3.270672e-01 -1.041616e+00 -7.131226e-01 -4.035470e-01 -3.978707e-01
##  [501] -2.959602e+00 -2.849276e-01  7.345552e-01  9.245570e-01 -8.548432e-01
##  [506] -2.730342e-02  4.693053e-01  9.565311e-01  7.173685e-01  1.032761e+00
##  [511] -1.364626e+00 -4.033207e-01 -1.071182e+00  1.598844e+00 -2.845634e-01
##  [516]  2.573061e-01 -3.744480e-01  9.086362e-01 -7.604490e-01  7.852267e-01
##  [521]  1.707014e+00 -2.031403e+00  4.747758e-01  1.151432e+00  4.242852e-01
##  [526] -6.339310e-01  8.712061e-01 -1.006350e+00 -2.409523e+00 -1.634676e+00
##  [531] -1.569678e+00 -8.052392e-01  5.489853e-01 -5.816327e-01  1.571224e+00
##  [536]  7.001274e-01 -7.765119e-01  2.784401e+00  2.329353e-01 -6.181795e-01
##  [541] -1.415938e+00  3.849437e-01  4.883491e-01 -3.660169e-01 -2.578184e-01
##  [546]  8.707405e-01 -4.299221e-01 -1.266613e+00  1.629829e+00 -1.218538e+00
##  [551] -1.542836e+00 -1.238951e+00  3.237242e-01  1.880632e-01 -4.003935e-01
##  [556]  8.023049e-01 -1.532100e-01  1.810440e-01 -1.272760e+00 -1.066830e+00
##  [561]  1.280447e+00 -1.186110e+00  5.863203e-05  4.584896e-01 -8.955855e-01
##  [566] -1.255165e+00 -4.739914e-01 -6.007936e-01 -7.505299e-01 -3.623925e-01
##  [571] -8.241837e-01  7.778733e-04 -1.522984e+00 -3.962287e-01 -1.535087e+00
##  [576] -4.057073e-01 -5.862881e-01  4.185755e-01 -7.345549e-01  2.385410e-01
##  [581] -1.442348e-01  4.341262e-02  6.762230e-01  1.165168e+00  2.738523e+00
##  [586]  5.179207e-01 -7.014055e-01 -9.156144e-01  9.455999e-01  5.096008e-01
##  [591] -6.627273e-01  3.897679e-01  3.585609e-01 -7.743672e-01  2.484510e-01
##  [596]  1.165633e+00 -6.364062e-01 -1.786430e+00  2.307636e-01 -2.601488e-01
##  [601]  7.190922e-01  3.616583e-01  3.104218e-02  2.759193e-01  1.370825e-01
##  [606]  3.080248e-01  1.362376e+00  1.802387e+00 -3.514487e-01 -5.853853e-01
##  [611] -3.665441e-01  1.601780e+00 -2.475328e-02 -3.280880e-01  6.935167e-01
##  [616]  3.247416e-02  1.236982e+00  1.169434e+00 -1.189060e+00  1.145508e+00
##  [621] -2.783449e-01 -1.791495e+00  9.010615e-01 -2.029156e+00  2.123552e+00
##  [626]  4.904401e-01  1.660082e+00  8.696916e-01 -3.226574e-01 -1.162466e+00
##  [631]  2.316559e-02  4.385162e-01  7.194273e-01 -1.044595e+00  1.005509e+00
##  [636]  1.221441e-01  5.297728e-01 -1.617265e+00 -5.258901e-01  3.764792e-01
##  [641]  9.464863e-01 -1.428222e+00  4.694239e-01 -7.500929e-01  2.907662e-01
##  [646] -5.759592e-01 -5.696566e-01 -1.731151e-01 -4.328340e-01  1.611089e-01
##  [651] -2.148214e-01  2.362618e+00  6.472600e-01  1.103584e+00  7.241580e-02
##  [656]  1.992861e+00 -6.113006e-01 -1.067434e+00  6.110102e-01 -4.397162e-01
##  [661]  3.319870e-01  5.481909e-01 -4.550486e-01 -5.203283e-01  5.447056e-01
##  [666] -1.180524e-01  3.322038e-01  7.255522e-01 -5.301118e-01 -9.452194e-01
##  [671]  1.996763e+00 -2.805795e-01 -5.893873e-02 -1.152007e+00  2.864881e-01
##  [676] -5.075160e-01  5.303191e-01  5.997789e-01  1.063368e+00 -1.187970e+00
##  [681] -9.573954e-02 -6.867736e-02  4.934703e-01  6.346203e-01  1.657042e+00
##  [686] -5.342873e-01  4.030736e-01  6.430032e-01  4.621802e-01 -6.629698e-01
##  [691]  2.426747e-01  6.753601e-01 -2.903990e-01  7.357490e-01 -7.186730e-01
##  [696] -1.388407e-01 -7.056514e-01  4.137548e-02 -3.565859e-01  9.441206e-01
##  [701] -5.012408e-01  2.717150e-01  3.749520e-01 -1.474104e+00 -1.051264e+00
##  [706]  2.500415e-01 -1.971542e-01 -7.895032e-01 -7.208512e-01 -4.952971e-01
##  [711] -2.062995e-01 -4.759524e-01 -4.178306e-01  1.332582e+00 -2.295608e+00
##  [716] -1.363704e+00 -2.164797e-01  1.693665e+00  3.988694e-01 -1.236076e+00
##  [721] -7.506897e-01 -1.211024e+00 -7.647874e-01 -9.856615e-01  1.609288e+00
##  [726]  8.441458e-01  1.012514e+00 -1.826996e-01 -5.556780e-01 -8.616292e-01
##  [731] -2.563663e+00  8.634105e-01  4.506151e-02  2.215987e+00 -5.931609e-01
##  [736] -5.259580e-01 -8.885156e-01  1.902544e-01  5.837953e-01  7.773104e-01
##  [741]  6.273919e-01 -1.502877e+00  1.005311e+00 -1.746908e+00 -2.650310e-01
##  [746]  7.116609e-01 -3.212287e-01 -5.030847e-02  7.715189e-01  2.725811e-01
##  [751] -6.826053e-01  2.252843e-01 -1.426949e+00 -6.073178e-01  4.193971e-01
##  [756]  1.260885e+00 -5.630185e-01 -1.387677e+00  1.240208e+00 -1.367099e+00
##  [761]  8.576436e-01  1.235896e+00  1.312439e-01 -4.438057e-01 -6.236640e-01
##  [766]  1.771232e+00 -6.077922e-01 -1.349894e-01  3.454136e-01 -4.582448e-01
##  [771] -2.910404e-01 -1.554030e+00 -2.466181e+00 -9.949888e-01 -1.487724e+00
##  [776] -1.039775e-01  8.149550e-01  1.522509e+00 -1.007803e+00 -1.262925e+00
##  [781] -2.110408e+00  6.517618e-01  7.238002e-01  1.431935e-01 -9.776515e-01
##  [786] -1.303081e-01 -1.461183e+00  6.284861e-01 -1.108837e+00 -3.810098e-01
##  [791]  1.981811e+00 -4.473148e-01  2.217736e-01 -8.764978e-02  1.149344e+00
##  [796] -1.844002e+00  5.988403e-01 -1.720555e+00 -7.366785e-01 -1.114084e-01
##  [801] -5.347304e-01  1.127710e+00  1.521446e+00 -4.837819e-01 -8.874225e-01
##  [806]  2.785573e-01  5.463433e-04 -9.747812e-01 -8.918059e-01  1.271791e+00
##  [811]  1.817452e+00  6.914880e-01  2.548714e-01 -7.441122e-01 -6.528096e-01
##  [816] -1.299401e-01  1.611301e+00 -1.367432e+00 -3.830471e-01  1.632605e-01
##  [821]  9.908760e-01  5.558035e-01 -1.858030e+00 -1.557793e+00 -7.832210e-01
##  [826]  1.683863e+00  4.571530e-01  1.037675e+00  6.085304e-01 -4.551881e-01
##  [831] -2.627435e-01  6.757000e-01 -8.355696e-01 -1.719740e+00 -1.384501e+00
##  [836] -1.016026e+00 -1.024886e+00 -1.249492e+00 -1.570872e+00  1.101574e-01
##  [841] -8.615660e-01 -1.398329e-01 -1.242791e+00  8.381966e-02 -4.801935e-01
##  [846] -6.982082e-01 -1.361053e+00 -1.314153e+00  1.265492e+00 -1.457447e-01
##  [851]  2.281221e-01 -1.202463e+00 -5.528430e-01  1.192652e+00  6.315029e-01
##  [856] -8.092317e-01  9.350428e-01  2.097894e+00 -8.632397e-02 -2.013994e-01
##  [861]  4.836859e-01  3.103468e+00  3.235659e-01 -8.804952e-02  1.449323e+00
##  [866]  5.105417e-01 -3.868537e-01 -5.036138e-01  7.133995e-01  5.787124e-01
##  [871]  8.042879e-01  3.543449e-01 -8.433190e-01 -4.357954e-03  3.912083e-01
##  [876]  1.076239e+00  2.787701e+00 -4.423350e-01 -7.047497e-02 -5.685607e-01
##  [881] -1.613962e-01  1.606455e+00  2.641425e-01  8.916688e-01  6.791757e-01
##  [886] -2.858623e-02 -7.402281e-01  1.258176e-01  1.271132e-02  9.267894e-01
##  [891] -2.587824e-02 -8.448512e-02  9.041815e-01  1.734598e-01 -4.374525e-01
##  [896] -1.369398e-01 -9.206628e-01 -9.109012e-01  4.059263e-02  5.093732e-01
##  [901]  1.733256e+00  3.969522e-01  1.482538e+00 -3.624031e-01  7.276882e-01
##  [906] -1.174352e+00  9.163876e-01 -1.408021e+00 -1.004358e+00 -8.426190e-01
##  [911] -1.547401e+00 -6.604427e-01 -1.149441e+00 -9.787213e-01 -7.247790e-01
##  [916] -1.162991e-01 -8.715543e-01  2.084079e+00  6.895942e-01  1.425751e-01
##  [921] -2.242896e-01  6.519925e-01 -2.253090e+00  6.352372e-01 -6.458876e-01
##  [926] -1.809039e+00  3.593689e-01 -1.444949e+00  1.997993e+00 -9.630709e-01
##  [931] -1.172982e+00 -1.277992e+00  1.635831e+00 -8.222604e-01 -3.362282e-01
##  [936] -2.117293e-02  2.840844e-01  1.134588e-01 -7.953834e-01  9.737984e-01
##  [941] -1.727439e-01 -6.157031e-01  8.342797e-02 -1.602411e+00 -1.355857e+00
##  [946]  1.452195e+00  1.403837e+00  3.117169e-01  4.102366e-01 -9.258744e-01
##  [951] -4.100004e-01  6.509562e-01  1.393049e-01  6.767576e-01 -8.357439e-01
##  [956] -5.544964e-02  8.289160e-01 -2.754559e-01 -2.874954e-01  5.221841e-01
##  [961]  3.005028e-01  1.682822e+00  1.708991e-01  1.478940e+00 -1.193102e+00
##  [966] -8.565334e-01  1.730042e-02  6.378157e-01 -4.718942e-01  5.241351e-01
##  [971]  3.540228e-01 -2.319803e+00 -2.466931e-02  7.198521e-01 -1.103903e-01
##  [976] -1.922731e+00 -1.262346e+00 -2.766504e-01 -4.794508e-01  6.075831e-01
##  [981] -5.357607e-01 -2.458623e-01 -5.549597e-01  8.732257e-02  1.568078e+00
##  [986] -2.256177e-01  9.868531e-01 -8.563744e-01  8.045794e-01  6.141468e-01
##  [991] -7.616397e-01 -2.695376e-01 -9.618311e-01 -1.191909e+00  4.339510e-01
##  [996]  1.457446e+00  1.583324e+00  2.895092e-01  1.123415e+00 -2.773339e-01
yAxis <- rnorm(1000) + xAxis + 10
yAxis
##    [1] 12.892625 11.173296 10.175672 10.308664 12.160531  8.417629 11.046510
##    [8]  8.839149  8.837632  9.345194 10.661556 10.056582  8.729314 13.554631
##   [15] 10.555042  9.259935  9.234248  8.957486  8.194139 11.704306 10.702909
##   [22]  9.657230 11.738335  8.527644 10.042653  9.693401 10.211137  9.203718
##   [29]  9.978710 10.493051  8.398914  7.676048  7.777014  8.654656  8.772878
##   [36] 12.578867  8.686168 10.300881  8.213982  7.580450  7.988360  8.622610
##   [43]  9.524330  8.850089 12.564320 11.021498 10.440161 11.648839 11.987670
##   [50] 10.746997  9.787251  9.640866 11.878266  9.238145  7.616859  9.914876
##   [57] 11.221256 11.342597 10.725963 10.459142 11.185811 11.469862 12.543374
##   [64]  8.186019  8.440229 10.284443  7.426495  9.766200  9.682551 11.779807
##   [71]  9.650926  6.690981 11.093230  8.394739  8.723273  9.966412 10.548530
##   [78] 11.654665 14.617199  8.311213 10.386806  8.667801 12.618485  9.185743
##   [85]  9.653822  8.212596  6.698118 10.490690 10.798787  9.084677 13.740030
##   [92]  9.364291  7.866137 10.127910 10.576488  8.259794 11.092027 12.702329
##   [99]  9.425831 10.706165  8.467866 11.403658  8.026764 11.204583  9.605109
##  [106] 10.728297  9.848181 11.481361 11.979739 12.914399 10.729113  9.969755
##  [113] 11.004299 10.108346 10.415779 11.996905  8.692926  9.194785  9.866129
##  [120]  9.243707  8.277330  8.999043 11.831247 10.616584 10.807493  8.525035
##  [127] 10.379733 10.133338 10.881087  8.206357  9.460271 10.464816  9.580811
##  [134]  8.257852 11.752051  8.953424  7.649440  8.420750 11.656184  9.828466
##  [141]  8.516517  9.035826  8.910192  8.974078  8.649192  8.599475 10.376352
##  [148] 10.026643 12.138227 10.733934 12.262438  8.626191 10.795087 10.594027
##  [155] 10.819404 10.221354 12.316327  8.777980 11.397147 10.944873  7.210773
##  [162] 10.769828 10.253372  7.464330 11.148918  8.010420  8.837086 11.222564
##  [169]  8.591933  9.725245 12.480563 10.219494 11.238329 10.331374 10.696265
##  [176] 11.224772  9.926861 11.372845  9.137210 10.022522  8.683944  8.449150
##  [183]  9.366595  6.697981  8.973977 10.206729  8.743858 10.582804  8.904925
##  [190]  8.059808 10.662433 10.205395  9.894897  8.867486 11.475806  9.918846
##  [197] 10.288948  8.857025  8.839124  9.961463  8.049242 10.280401 11.206947
##  [204] 13.585279 11.123224  8.612142 10.563722 10.245548 10.646689  9.738789
##  [211]  8.708668 11.284799  8.993306  8.632134 10.517476  9.411578 10.148909
##  [218]  9.771651  9.280209  8.699431  8.929193  8.447479  8.537282  7.677566
##  [225] 11.197624  9.567884 13.406143 11.802406 10.917544 10.235615 11.672771
##  [232] 10.581569  7.851378  9.577973  9.497651 10.522383 10.612819 10.228507
##  [239]  9.075845  8.193641  8.780104  8.774857 10.444103 12.016545  8.015640
##  [246] 10.658478 10.387375  9.425360  9.214457 10.474577  8.860022 11.190823
##  [253] 10.603936  9.492520  9.523786 10.327303 10.507218 11.281701 10.498232
##  [260]  9.575227 10.962047 11.144562  7.685182  6.557255  8.554512 12.513912
##  [267]  8.387771  9.288357  9.752984  9.591454 10.529840 10.082747 10.175962
##  [274] 10.134024 11.814467  9.777667 10.675741  8.480834 10.596306  8.364720
##  [281]  8.863333  9.696045 10.061210 10.350772  8.913524  8.442173 11.353871
##  [288]  8.902919 11.623149  8.693585 10.972060 10.456362  9.498321  8.959776
##  [295]  9.179153  8.282276 13.519750 11.152992  7.280464  9.507550  7.582267
##  [302]  8.605865  9.939469 11.488075 11.824876  8.807065  7.955255  8.623602
##  [309] 10.996858  8.569321 12.542108 11.292896 12.216863  8.238455 10.516459
##  [316] 10.894670 10.075690  8.420886 11.361274  9.252027  9.255990 13.087473
##  [323] 10.568339  8.083356  7.246026 10.566936 10.290827  9.000862  7.891355
##  [330] 12.524960  8.842356  9.469790  9.831609 11.149858  9.392395 10.078429
##  [337]  9.289625 10.316251 10.362854 10.389445 10.254542  8.073540 10.730560
##  [344]  9.974695 11.025247  8.296802 10.548531  6.964184 12.211146 10.304183
##  [351] 10.465728  9.988001 10.075623 12.000657  9.856213  8.751250  9.703439
##  [358] 10.070620 11.385667  9.006097  9.342215  9.335508 11.827200  8.979954
##  [365] 10.156229  8.673724  7.736622 11.454045 10.341247 11.880950  9.918257
##  [372] 10.342329  9.313431  9.745759 10.270981 11.059335  8.459238  8.045430
##  [379]  9.719529  8.954733  9.913903  8.782587  9.934287 10.539918  9.466127
##  [386] 10.288010  9.737623  9.665147  7.415041 12.044373  8.946035 12.645331
##  [393]  9.771325 13.134929 10.100385 10.779023 11.343287  6.783610 10.076339
##  [400] 10.255794  9.761192  9.401942  8.644151 10.982655 11.488020 10.910782
##  [407]  7.911283 11.573348  6.379789  8.858610 12.591544  8.902608  9.981642
##  [414]  9.433385  8.577985  9.942465 11.089416 11.853922  9.551877 10.418123
##  [421]  6.853700 11.480948 11.509571 10.235357 10.088006  9.973733 11.121410
##  [428] 10.794233  8.981918  8.335456  9.007717  9.329114 10.811885 11.504149
##  [435] 11.530183  9.675236 12.237933 12.038731 10.104681 11.083763  9.498179
##  [442]  9.890344 10.757290  8.607113  9.316943 10.910340  8.544103 10.004224
##  [449]  8.104598  8.895699  8.831625 12.587992  8.053071  9.996973  9.299589
##  [456] 12.753960  9.256647  9.364809 10.168343  9.222600 10.676237 10.924931
##  [463]  9.069445 11.792655  8.767678 10.518399 10.691468 10.262996  8.312270
##  [470] 12.136209 10.344651 11.545743  9.573209 12.992881 11.036733 10.782293
##  [477]  7.506896  8.987665  9.613765  9.497083  9.369096  6.214975 10.171382
##  [484] 11.436190 10.262285 10.301168 11.018970  7.972591 11.627048  8.707828
##  [491] 10.034211  9.915433 10.947481 10.677295  8.931912 11.835029  9.334289
##  [498]  9.674532 10.314979  9.536909  6.821658 10.875510  9.218992 10.172447
##  [505]  9.302330  7.361110  9.950485 10.057364 10.812881 12.594364  9.030714
##  [512] 11.155835  8.647064  8.602104 10.279869 10.371634 10.211516 11.162380
##  [519]  7.747094 10.065442  9.708688  9.961398 10.723624 11.347602  8.346943
##  [526]  9.381799  9.893754  7.775311  6.545063  6.407268  9.330381  9.849711
##  [533] 12.598262  9.703255 10.170175 11.226495  9.459410 12.390867 12.362525
##  [540]  9.631010  8.776812 11.088282 10.890665  9.809008 11.051228 11.666779
##  [547]  9.098147  9.088695 10.814431 10.299546  7.531063  8.829695  9.732160
##  [554] 10.079685  9.137025 11.161015  9.673467  8.464822  9.450513 11.110122
##  [561] 11.023003  9.647683  9.644044 10.287783  8.003916  8.357487  8.442567
##  [568]  9.872626  9.412088  8.952996  9.107682  9.424309  8.280070  9.498506
##  [575]  8.137316  7.878893 10.301666 11.500162  9.331377  9.767313  8.503024
##  [582] 10.820453 10.573519 10.667023 10.282958  9.355924  7.667892  8.566640
##  [589] 11.913459 11.857641  9.692941  9.576401 10.964118  9.355961  8.611937
##  [596] 12.627223  8.297621  8.743443 10.588798 10.872855 12.334264  9.975152
##  [603] 10.972742 11.595387 10.294823  9.591306 12.162307 12.516812  9.277234
##  [610]  9.871296 10.028509 11.216439  9.801575  9.994297 10.315537 10.769338
##  [617] 11.150474 12.605585  9.872171 11.115188 10.686546  9.246281 11.929814
##  [624]  7.110565 12.075868 11.397097  9.764757 11.273909  9.200955  7.561078
##  [631]  8.188674  9.699515 11.860673  8.528765 10.804951 10.276444 10.887474
##  [638]  7.710259 10.096973  9.868124 11.331875  8.307545 11.891557  9.050659
##  [645] 10.422171  8.849218 10.411450  8.169808  9.256204 10.994578  9.418178
##  [652] 12.098431 10.662307 10.522527  9.852391 12.776043  7.788473  8.076756
##  [659]  9.458226  8.893548  8.221535 10.601381  9.951680  9.430545 11.719252
##  [666]  9.780045 11.335393 11.147364  9.334466  8.780500 11.524449 10.869991
##  [673]  9.524490  9.858144 10.255462  8.302025 13.030194 10.554643 10.343505
##  [680]  8.150104  9.442867  8.574101  9.406789 10.738651 11.249250  9.243971
##  [687] 10.587369 12.420145 11.100449  8.260564  9.835390  9.849407  9.251334
##  [694] 10.837619  8.304840  7.496706  9.266948 11.957366  9.949717 10.164374
##  [701]  9.544662 10.765319 10.405766  9.562969  7.917882  9.625845  8.721998
##  [708]  8.672963 11.204748 10.044869  9.165892 10.140330  9.703105  9.439547
##  [715]  7.516689  9.726198  8.236137 12.269310 11.072918  9.984116  7.980114
##  [722]  8.032713  8.435795  8.513265 12.811519 11.482047 12.016486 10.855574
##  [729]  8.901694 10.209606  8.072525 11.255014 10.911354 13.449565  7.061876
##  [736] 10.364511 10.879163 11.133383 11.030095 10.381266 10.833155 10.551556
##  [743] 10.131775  8.665072  9.721435 10.636928  9.643548  8.336889 11.307883
##  [750] 10.745270  9.553494  9.065902  8.592743  8.896115 11.962629 11.790768
##  [757]  9.329712  8.873421 10.739439 10.219024 11.669655 12.252619  8.998969
##  [764]  9.891125 10.176155 11.599346  9.570402  9.423609 10.584435  9.131257
##  [771] 10.435051  8.476986  6.580153 10.934983  9.062307 11.794344 10.751097
##  [778] 13.506624  8.095798  9.131595  8.776538 10.445262  9.923498 10.164614
##  [785] 10.037622  9.696690  7.604815  8.760753  7.627036 11.049394 11.389872
##  [792]  9.140792  8.356305 10.018462 11.223244  8.003984  9.598308  9.127753
##  [799]  9.743800 11.150249 10.659722 10.311183  9.803898 10.336694  8.649564
##  [806] 10.333851 10.241874  9.941883  8.660743 11.692332 12.467363 10.079548
##  [813]  8.483794  9.198587  8.550607  9.798883 13.085279  7.924250  8.747510
##  [820]  8.893779 11.786345 12.560868  8.287064  6.788992  8.355824 11.971588
##  [827] 12.235746 11.248636 11.347832  9.329526 10.023637 12.563320  8.982155
##  [834]  9.127559  9.037511  9.155316  8.739751  8.694574  9.192018 11.265938
##  [841]  9.787492  9.399260  8.980915  9.131105  9.262152  9.587596  8.629297
##  [848]  9.575951 10.565030  9.968207 10.371368  9.735645  9.075109 11.755552
##  [855] 10.849598  7.918041 10.974510 14.409513 10.317066 10.093052 11.275130
##  [862] 13.253864  8.786692 10.046705 10.283063 11.190567 10.837267  8.518021
##  [869] 11.277277 12.400169 10.467251  9.300778 10.079714  8.675262  8.426540
##  [876] 10.543903 11.998281 10.929945  8.864531  9.559048 10.366356 10.888196
##  [883] 11.075263 10.714603 11.833268 12.287166  9.413204 11.570862  9.504760
##  [890] 11.101216  8.697302  9.807795 11.832683  9.546642  8.481585 10.412156
##  [897]  7.772764  9.042225 10.465463 10.240496 13.794785 10.449261 14.292966
##  [904]  8.730615 11.514269  8.334469 10.240121  8.589517  8.827704  7.833993
##  [911]  8.314930  8.617287  8.972013  7.333772  9.171106  9.269357  9.074314
##  [918] 11.050305 10.511208 11.211924  9.558152 11.439671  7.109118 10.760237
##  [925] 10.623632  8.197919 12.002887  7.511979 11.679438 10.723981  9.267747
##  [932]  8.826215 12.354086  7.306411  7.771697  8.426660  8.838292 11.130172
##  [939]  9.681233 11.271871 11.026748  8.486573 10.640725  8.367940  7.793282
##  [946] 11.337829 12.593998  9.601023 10.280593  9.379596  8.445986  9.558165
##  [953] 10.778719 11.784470  8.743859 11.249599 11.044894  8.812599  8.966387
##  [960] 11.456542 10.260938 12.189612 10.665839 11.953277 11.199459  8.790109
##  [967]  8.770245 11.896063  7.617126 10.441971  9.681973  9.573541  9.771224
##  [974] 10.517743 11.662839  8.730057  8.340625  8.325394  9.322599 10.878099
##  [981]  8.145823 10.112760  8.426379  8.775478 13.238994  9.444306 10.711431
##  [988]  9.729620  9.570518 11.224007 10.596599 10.620578  9.511671  7.571940
##  [995]  9.625180 10.798317 12.534500  9.348679 10.589137  9.766532
# create groups for different values of X
(group <- rep(1,1000)) # a vector consisting of 1000 elements
##    [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##   [38] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##   [75] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [112] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [149] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [186] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [223] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [260] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [297] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [334] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [371] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [408] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [445] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [482] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [519] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [556] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [593] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [630] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [667] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [704] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [741] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [778] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [815] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [852] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [889] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [926] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
##  [963] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## [1000] 1
group[xAxis > -1.5] <- 2
group[xAxis > -.5] <- 3
group[xAxis > .5] <- 4
group[xAxis > 1.5] <- 5
group
##    [1] 3 2 3 3 5 1 3 3 2 3 5 3 2 5 4 1 4 3 2 3 2 2 4 2 3 3 3 3 2 3 2 1 2 3 2 5 3
##   [38] 3 3 3 1 3 4 2 3 4 3 4 5 3 3 3 4 2 2 2 4 4 4 3 3 4 4 2 1 3 2 3 3 4 3 1 5 2
##   [75] 3 4 3 3 5 2 4 2 5 2 3 2 1 4 2 3 4 3 2 2 3 3 5 5 1 3 2 3 2 4 3 5 3 4 3 3 4
##  [112] 2 3 4 4 5 3 2 3 3 2 2 3 5 4 1 3 2 4 2 2 3 3 2 5 2 2 2 3 3 4 2 1 2 3 1 4 3
##  [149] 4 2 5 2 4 4 3 4 5 3 3 4 1 2 3 2 5 2 3 4 4 3 4 2 4 4 4 3 2 4 2 3 3 2 3 2 2
##  [186] 3 2 3 2 1 3 4 4 2 4 2 2 3 3 3 3 3 4 4 4 2 3 3 3 3 2 4 3 2 3 2 3 3 2 1 2 4
##  [223] 3 2 4 3 4 4 2 3 2 4 1 3 3 4 3 5 3 2 1 3 3 3 3 3 3 2 2 3 3 2 2 4 2 3 3 4 3
##  [260] 3 5 3 1 2 2 2 3 2 2 3 4 4 3 2 3 3 5 3 4 1 3 3 3 3 3 2 3 3 4 3 2 4 4 2 2 2
##  [297] 4 3 2 2 2 1 3 3 4 2 2 2 3 1 5 4 5 2 4 4 3 2 4 2 1 5 4 3 1 2 2 4 3 5 2 3 3
##  [334] 3 3 3 3 4 3 3 3 2 3 3 4 1 3 1 4 2 3 4 4 3 3 2 3 3 4 2 2 3 4 3 3 1 1 4 5 4
##  [371] 4 4 3 3 3 4 4 3 3 2 2 4 4 3 4 2 5 2 1 5 2 5 2 5 3 3 4 1 4 5 2 3 1 5 4 2 2
##  [408] 4 1 1 4 2 4 4 2 3 4 3 3 3 2 4 4 3 3 2 4 4 4 1 2 2 3 3 4 3 4 5 3 4 2 3 2 3
##  [445] 3 3 2 4 1 4 4 4 4 2 3 4 3 2 3 3 5 4 3 3 3 3 4 3 1 4 3 4 3 5 4 4 3 4 2 3 3
##  [482] 1 4 4 3 3 2 2 5 3 2 4 4 3 3 3 2 2 3 3 1 3 4 4 2 3 3 4 4 4 2 3 2 5 3 3 3 4
##  [519] 2 4 5 1 3 4 3 2 4 2 1 1 1 2 4 2 5 4 2 5 3 2 2 3 3 3 3 4 3 2 5 2 1 2 3 3 3
##  [556] 4 3 3 2 2 4 2 3 3 2 2 3 2 2 3 2 3 1 3 1 3 2 3 2 3 3 3 4 4 5 4 2 2 4 4 2 3
##  [593] 3 2 3 4 2 1 3 3 4 3 3 3 3 3 4 5 3 2 3 5 3 3 4 3 4 4 2 4 3 1 4 1 5 3 5 4 3
##  [630] 2 3 3 4 2 4 3 4 1 2 3 4 2 3 2 3 2 2 3 3 3 3 5 4 4 3 5 2 2 4 3 3 4 3 2 4 3
##  [667] 3 4 2 2 5 3 3 2 3 2 4 4 4 2 3 3 3 4 5 2 3 4 3 2 3 4 3 4 2 3 2 3 3 4 2 3 3
##  [704] 2 2 3 3 2 2 3 3 3 3 4 1 2 3 5 3 2 2 2 2 2 5 4 4 3 2 2 1 4 3 5 2 2 2 3 4 4
##  [741] 4 1 4 1 3 4 3 3 4 3 2 3 2 2 3 4 2 2 4 2 4 4 3 3 2 5 2 3 3 3 3 1 1 2 2 3 4
##  [778] 5 2 2 1 4 4 3 2 3 2 4 2 3 5 3 3 3 4 1 4 1 2 3 2 4 5 3 2 3 3 2 2 4 5 4 3 2
##  [815] 2 3 5 2 3 3 4 4 1 1 2 5 3 4 4 3 3 4 2 1 2 2 2 2 1 3 2 3 2 3 3 2 2 2 4 3 3
##  [852] 2 2 4 4 2 4 5 3 3 3 5 3 3 4 4 3 2 4 4 4 3 2 3 3 4 5 3 3 2 3 5 3 4 4 3 2 3
##  [889] 3 4 3 3 4 3 3 3 2 2 3 4 5 3 4 3 4 2 4 2 2 2 1 2 2 2 2 3 2 5 4 3 3 4 1 4 2
##  [926] 1 3 2 5 2 2 2 5 2 3 3 3 3 2 4 3 2 3 1 2 4 4 3 3 2 3 4 3 4 2 3 4 3 3 4 3 5
##  [963] 3 4 2 2 3 4 3 4 3 1 3 4 3 1 2 3 3 4 2 3 2 3 5 3 4 2 4 4 2 3 2 2 3 4 5 3 4
## [1000] 3
# create sample dataframe by joining variables
sample_data <- data.frame(xAxis,yAxis,group)
sample_data
##              xAxis     yAxis group
## 1     3.409575e-01 12.892625     3
## 2    -7.719201e-01 11.173296     2
## 3     4.876172e-01 10.175672     3
## 4     3.991219e-01 10.308664     3
## 5     1.878852e+00 12.160531     5
## 6    -2.121204e+00  8.417629     1
## 7     1.035551e-02 11.046510     3
## 8     2.179876e-01  8.839149     3
## 9    -1.000403e+00  8.837632     2
## 10   -4.487063e-01  9.345194     3
## 11    1.581279e+00 10.661556     5
## 12    4.188315e-01 10.056582     3
## 13   -6.791913e-01  8.729314     2
## 14    1.659934e+00 13.554631     5
## 15    7.553677e-01 10.555042     4
## 16   -1.667321e+00  9.259935     1
## 17    6.574069e-01  9.234248     4
## 18   -4.869845e-01  8.957486     3
## 19   -1.249671e+00  8.194139     2
## 20   -1.590320e-01 11.704306     3
## 21   -5.782027e-01 10.702909     2
## 22   -8.943598e-01  9.657230     2
## 23    6.245035e-01 11.738335     4
## 24   -1.093621e+00  8.527644     2
## 25    2.373496e-01 10.042653     3
## 26    2.689920e-01  9.693401     3
## 27    4.942085e-01 10.211137     3
## 28   -3.297741e-01  9.203718     3
## 29   -1.367781e+00  9.978710     2
## 30    2.928795e-01 10.493051     3
## 31   -1.425571e+00  8.398914     2
## 32   -1.783196e+00  7.676048     1
## 33   -1.290991e+00  7.777014     2
## 34   -1.400121e-01  8.654656     3
## 35   -1.117545e+00  8.772878     2
## 36    1.829056e+00 12.578867     5
## 37   -8.282749e-02  8.686168     3
## 38    1.994940e-02 10.300881     3
## 39   -1.240645e-01  8.213982     3
## 40    6.586247e-03  7.580450     3
## 41   -1.536574e+00  7.988360     1
## 42    7.053144e-02  8.622610     3
## 43    7.334283e-01  9.524330     4
## 44   -6.769525e-01  8.850089     2
## 45    1.469061e-01 12.564320     3
## 46    7.066507e-01 11.021498     4
## 47    3.745086e-01 10.440161     3
## 48    7.165542e-01 11.648839     4
## 49    2.253530e+00 11.987670     5
## 50    2.265302e-01 10.746997     3
## 51    3.839332e-01  9.787251     3
## 52   -1.023759e-01  9.640866     3
## 53    9.144695e-01 11.878266     4
## 54   -1.127231e+00  9.238145     2
## 55   -1.070486e+00  7.616859     2
## 56   -5.809122e-01  9.914876     2
## 57    1.417153e+00 11.221256     4
## 58    5.027462e-01 11.342597     4
## 59    5.846934e-01 10.725963     4
## 60   -2.049763e-03 10.459142     3
## 61   -4.135235e-01 11.185811     3
## 62    6.522196e-01 11.469862     4
## 63    6.659892e-01 12.543374     4
## 64   -9.109032e-01  8.186019     2
## 65   -2.030678e+00  8.440229     1
## 66   -3.869109e-01 10.284443     3
## 67   -1.299242e+00  7.426495     2
## 68   -8.259640e-02  9.766200     3
## 69   -5.462009e-02  9.682551     3
## 70    1.341195e+00 11.779807     4
## 71    2.764819e-01  9.650926     3
## 72   -1.807248e+00  6.690981     1
## 73    1.564987e+00 11.093230     5
## 74   -1.381861e+00  8.394739     2
## 75   -1.050401e-01  8.723273     3
## 76    7.875416e-01  9.966412     4
## 77    3.318146e-01 10.548530     3
## 78   -2.326054e-01 11.654665     3
## 79    2.689871e+00 14.617199     5
## 80   -1.270241e+00  8.311213     2
## 81    8.592305e-01 10.386806     4
## 82   -6.859279e-01  8.667801     2
## 83    2.220620e+00 12.618485     5
## 84   -1.290481e+00  9.185743     2
## 85   -2.761709e-01  9.653822     3
## 86   -1.114385e+00  8.212596     2
## 87   -1.910441e+00  6.698118     1
## 88    7.458022e-01 10.490690     4
## 89   -5.603938e-01 10.798787     2
## 90    1.113525e-01  9.084677     3
## 91    9.577619e-01 13.740030     4
## 92    3.873006e-01  9.364291     3
## 93   -5.995250e-01  7.866137     2
## 94   -6.049432e-01 10.127910     2
## 95   -7.088252e-02 10.576488     3
## 96   -5.938226e-02  8.259794     3
## 97    1.761465e+00 11.092027     5
## 98    1.530876e+00 12.702329     5
## 99   -2.099453e+00  9.425831     1
## 100   8.429981e-02 10.706165     3
## 101  -1.242658e+00  8.467866     2
## 102   2.088927e-01 11.403658     3
## 103  -1.352475e+00  8.026764     2
## 104   1.077401e+00 11.204583     4
## 105   4.340448e-02  9.605109     3
## 106   1.777176e+00 10.728297     5
## 107  -4.066184e-01  9.848181     3
## 108   1.435004e+00 11.481361     4
## 109   7.951172e-02 11.979739     3
## 110  -1.129640e-01 12.914399     3
## 111   8.741924e-01 10.729113     4
## 112  -5.148990e-01  9.969755     2
## 113  -1.479696e-01 11.004299     3
## 114   9.906909e-01 10.108346     4
## 115   1.096519e+00 10.415779     4
## 116   2.434663e+00 11.996905     5
## 117  -2.913619e-01  8.692926     3
## 118  -9.871906e-01  9.194785     2
## 119   4.511395e-01  9.866129     3
## 120  -2.202277e-01  9.243707     3
## 121  -6.979903e-01  8.277330     2
## 122  -1.445276e+00  8.999043     2
## 123   3.862502e-01 11.831247     3
## 124   1.584769e+00 10.616584     5
## 125   6.803168e-01 10.807493     4
## 126  -1.682292e+00  8.525035     1
## 127   6.878002e-02 10.379733     3
## 128  -6.574444e-01 10.133338     2
## 129   1.209443e+00 10.881087     4
## 130  -1.079798e+00  8.206357     2
## 131  -1.422287e+00  9.460271     2
## 132   7.189521e-02 10.464816     3
## 133  -2.525578e-01  9.580811     3
## 134  -7.882570e-01  8.257852     2
## 135   2.076565e+00 11.752051     5
## 136  -1.305280e+00  8.953424     2
## 137  -1.209629e+00  7.649440     2
## 138  -6.035099e-01  8.420750     2
## 139   2.088116e-01 11.656184     3
## 140  -6.667146e-02  9.828466     3
## 141   1.086865e+00  8.516517     4
## 142  -7.959841e-01  9.035826     2
## 143  -1.556256e+00  8.910192     1
## 144  -1.492581e+00  8.974078     2
## 145  -1.118105e-01  8.649192     3
## 146  -1.669966e+00  8.599475     1
## 147   8.791722e-01 10.376352     4
## 148  -3.296513e-01 10.026643     3
## 149   9.326564e-01 12.138227     4
## 150  -7.043529e-01 10.733934     2
## 151   1.648896e+00 12.262438     5
## 152  -1.076650e+00  8.626191     2
## 153   9.009351e-01 10.795087     4
## 154   5.682331e-01 10.594027     4
## 155  -2.809782e-01 10.819404     3
## 156   6.244678e-01 10.221354     4
## 157   2.195397e+00 12.316327     5
## 158  -3.790542e-01  8.777980     3
## 159  -3.245761e-01 11.397147     3
## 160   9.337869e-01 10.944873     4
## 161  -1.971571e+00  7.210773     1
## 162  -1.033280e+00 10.769828     2
## 163   3.427030e-01 10.253372     3
## 164  -1.004823e+00  7.464330     2
## 165   1.901582e+00 11.148918     5
## 166  -1.232107e+00  8.010420     2
## 167  -1.047757e-01  8.837086     3
## 168   1.308674e+00 11.222564     4
## 169   6.631255e-01  8.591933     4
## 170  -4.952800e-01  9.725245     3
## 171   1.460605e+00 12.480563     4
## 172  -5.702497e-01 10.219494     2
## 173   1.046362e+00 11.238329     4
## 174   1.403625e+00 10.331374     4
## 175   1.089381e+00 10.696265     4
## 176   1.370614e-01 11.224772     3
## 177  -8.852995e-01  9.926861     2
## 178   6.574533e-01 11.372845     4
## 179  -8.096115e-01  9.137210     2
## 180  -4.305182e-01 10.022522     3
## 181  -3.179791e-01  8.683944     3
## 182  -7.457510e-01  8.449150     2
## 183  -4.605317e-01  9.366595     3
## 184  -1.056466e+00  6.697981     2
## 185  -1.139446e+00  8.973977     2
## 186   3.868106e-01 10.206729     3
## 187  -7.859772e-01  8.743858     2
## 188   2.384253e-01 10.582804     3
## 189  -8.961429e-01  8.904925     2
## 190  -1.593211e+00  8.059808     1
## 191  -3.738927e-01 10.662433     3
## 192   7.735259e-01 10.205395     4
## 193   6.857871e-01  9.894897     4
## 194  -5.223749e-01  8.867486     2
## 195   8.010797e-01 11.475806     4
## 196  -9.413153e-01  9.918846     2
## 197  -5.669490e-01 10.288948     2
## 198  -4.746584e-01  8.857025     3
## 199  -1.638148e-01  8.839124     3
## 200   1.515446e-01  9.961463     3
## 201  -7.273367e-02  8.049242     3
## 202  -2.011138e-01 10.280401     3
## 203   1.050540e+00 11.206947     4
## 204   1.200810e+00 13.585279     4
## 205   9.815205e-01 11.123224     4
## 206  -8.332721e-01  8.612142     2
## 207  -2.503941e-02 10.563722     3
## 208   3.829635e-01 10.245548     3
## 209  -1.115403e-01 10.646689     3
## 210   3.058218e-01  9.738789     3
## 211  -5.118443e-01  8.708668     2
## 212   1.423254e+00 11.284799     4
## 213   2.794278e-02  8.993306     3
## 214  -1.283295e+00  8.632134     2
## 215  -2.569362e-01 10.517476     3
## 216  -1.130067e+00  9.411578     2
## 217   8.388776e-03 10.148909     3
## 218   9.044386e-02  9.771651     3
## 219  -5.563117e-01  9.280209     2
## 220  -1.695991e+00  8.699431     1
## 221  -5.706962e-01  8.929193     2
## 222   6.248616e-01  8.447479     4
## 223  -9.524885e-02  8.537282     3
## 224  -8.769316e-01  7.677566     2
## 225   6.294927e-01 11.197624     4
## 226   1.281731e-01  9.567884     3
## 227   1.316090e+00 13.406143     4
## 228   1.290378e+00 11.802406     4
## 229  -1.137059e+00 10.917544     2
## 230  -2.067914e-01 10.235615     3
## 231  -8.330314e-01 11.672771     2
## 232   5.004598e-01 10.581569     4
## 233  -1.540153e+00  7.851378     1
## 234  -2.741267e-02  9.577973     3
## 235   1.865387e-01  9.497651     3
## 236   1.115644e+00 10.522383     4
## 237  -1.361765e-01 10.612819     3
## 238   2.450819e+00 10.228507     5
## 239  -3.740874e-01  9.075845     3
## 240  -9.424560e-01  8.193641     2
## 241  -2.248322e+00  8.780104     1
## 242  -4.886354e-01  8.774857     3
## 243   1.092209e-01 10.444103     3
## 244   9.874453e-04 12.016545     3
## 245  -4.527194e-01  8.015640     3
## 246   1.611906e-01 10.658478     3
## 247   3.620933e-01 10.387375     3
## 248  -9.289031e-01  9.425360     2
## 249  -1.259060e+00  9.214457     2
## 250   1.691572e-01 10.474577     3
## 251  -2.323643e-01  8.860022     3
## 252  -5.670137e-01 11.190823     2
## 253  -7.511098e-01 10.603936     2
## 254   7.084574e-01  9.492520     4
## 255  -5.284639e-01  9.523786     2
## 256   5.092486e-02 10.327303     3
## 257  -3.241424e-01 10.507218     3
## 258   9.909194e-01 11.281701     4
## 259   1.929576e-01 10.498232     3
## 260   3.739242e-01  9.575227     3
## 261   1.530022e+00 10.962047     5
## 262   4.611246e-01 11.144562     3
## 263  -1.810379e+00  7.685182     1
## 264  -1.238104e+00  6.557255     2
## 265  -5.004199e-01  8.554512     2
## 266  -5.112005e-01 12.513912     2
## 267  -1.982114e-01  8.387771     3
## 268  -7.322820e-01  9.288357     2
## 269  -9.797301e-01  9.752984     2
## 270  -3.086885e-01  9.591454     3
## 271   1.161829e+00 10.529840     4
## 272   7.339281e-01 10.082747     4
## 273   3.765491e-01 10.175962     3
## 274  -5.336119e-01 10.134024     2
## 275  -3.650638e-01 11.814467     3
## 276   3.562810e-01  9.777667     3
## 277   1.719492e+00 10.675741     5
## 278  -4.002897e-01  8.480834     3
## 279   7.861289e-01 10.596306     4
## 280  -2.905187e+00  8.364720     1
## 281   5.889372e-02  8.863333     3
## 282  -4.531388e-01  9.696045     3
## 283   2.922541e-01 10.061210     3
## 284   2.262458e-01 10.350772     3
## 285  -3.311195e-01  8.913524     3
## 286  -1.175555e+00  8.442173     2
## 287  -4.844587e-01 11.353871     3
## 288  -3.526646e-01  8.902919     3
## 289   6.753127e-01 11.623149     4
## 290  -2.232440e-01  8.693585     3
## 291  -5.984553e-01 10.972060     2
## 292   1.192218e+00 10.456362     4
## 293   1.006098e+00  9.498321     4
## 294  -1.164808e+00  8.959776     2
## 295  -9.114231e-01  9.179153     2
## 296  -5.474136e-01  8.282276     2
## 297   1.388172e+00 13.519750     4
## 298  -1.198035e-01 11.152992     3
## 299  -8.760456e-01  7.280464     2
## 300  -1.413709e+00  9.507550     2
## 301  -8.775808e-01  7.582267     2
## 302  -1.562521e+00  8.605865     1
## 303  -2.415780e-01  9.939469     3
## 304  -1.592944e-01 11.488075     3
## 305   9.298013e-01 11.824876     4
## 306  -1.487598e+00  8.807065     2
## 307  -1.375478e+00  7.955255     2
## 308  -1.150258e+00  8.623602     2
## 309   3.734889e-01 10.996858     3
## 310  -1.641655e+00  8.569321     1
## 311   2.090085e+00 12.542108     5
## 312   1.241919e+00 11.292896     4
## 313   2.018898e+00 12.216863     5
## 314  -1.244763e+00  8.238455     2
## 315   8.686362e-01 10.516459     4
## 316   5.951364e-01 10.894670     4
## 317  -1.537980e-01 10.075690     3
## 318  -5.609926e-01  8.420886     2
## 319   1.004828e+00 11.361274     4
## 320  -1.374475e+00  9.252027     2
## 321  -1.889149e+00  9.255990     1
## 322   2.591793e+00 13.087473     5
## 323   1.467393e+00 10.568339     4
## 324   1.861938e-01  8.083356     3
## 325  -1.760868e+00  7.246026     1
## 326  -6.162767e-01 10.566936     2
## 327  -5.995633e-01 10.290827     2
## 328   5.449664e-01  9.000862     4
## 329  -1.303450e-01  7.891355     3
## 330   1.761425e+00 12.524960     5
## 331  -8.098125e-01  8.842356     2
## 332  -1.729015e-01  9.469790     3
## 333   3.384362e-01  9.831609     3
## 334  -2.536018e-03 11.149858     3
## 335   2.427281e-01  9.392395     3
## 336   1.256939e-01 10.078429     3
## 337   3.774665e-01  9.289625     3
## 338   9.251033e-01 10.316251     4
## 339   9.977532e-02 10.362854     3
## 340   6.632399e-02 10.389445     3
## 341  -2.495618e-01 10.254542     3
## 342  -1.445335e+00  8.073540     2
## 343   3.649235e-01 10.730560     3
## 344  -3.770405e-01  9.974695     3
## 345   9.257322e-01 11.025247     4
## 346  -1.504689e+00  8.296802     1
## 347   3.794436e-01 10.548531     3
## 348  -1.691665e+00  6.964184     1
## 349   8.244697e-01 12.211146     4
## 350  -9.771159e-01 10.304183     2
## 351   1.358224e-01 10.465728     3
## 352   1.177632e+00  9.988001     4
## 353   5.076344e-01 10.075623     4
## 354   2.731869e-01 12.000657     3
## 355  -1.760787e-01  9.856213     3
## 356  -6.432038e-01  8.751250     2
## 357  -2.873483e-01  9.703439     3
## 358   5.863002e-02 10.070620     3
## 359   1.014129e+00 11.385667     4
## 360  -7.591230e-01  9.006097     2
## 361  -6.625472e-01  9.342215     2
## 362   2.928904e-02  9.335508     3
## 363   9.680263e-01 11.827200     4
## 364  -4.535334e-01  8.979954     3
## 365   1.830489e-01 10.156229     3
## 366  -1.548943e+00  8.673724     1
## 367  -1.690957e+00  7.736622     1
## 368   1.266109e+00 11.454045     4
## 369   1.871802e+00 10.341247     5
## 370   6.784542e-01 11.880950     4
## 371   1.046214e+00  9.918257     4
## 372   8.970366e-01 10.342329     4
## 373   3.194762e-01  9.313431     3
## 374  -9.493115e-02  9.745759     3
## 375  -4.227833e-01 10.270981     3
## 376   7.006012e-01 11.059335     4
## 377   6.290820e-01  8.459238     4
## 378  -4.461346e-01  8.045430     3
## 379  -2.078600e-01  9.719529     3
## 380  -5.945440e-01  8.954733     2
## 381  -1.356801e+00  9.913903     2
## 382   7.350038e-01  8.782587     4
## 383   7.502912e-01  9.934287     4
## 384  -3.737877e-01 10.539918     3
## 385   1.009162e+00  9.466127     4
## 386  -5.926768e-01 10.288010     2
## 387   1.954754e+00  9.737623     5
## 388  -1.098446e+00  9.665147     2
## 389  -1.942397e+00  7.415041     1
## 390   1.667034e+00 12.044373     5
## 391  -9.524117e-01  8.946035     2
## 392   2.137054e+00 12.645331     5
## 393  -5.459332e-01  9.771325     2
## 394   2.729063e+00 13.134929     5
## 395  -4.296521e-01 10.100385     3
## 396  -3.638107e-01 10.779023     3
## 397   6.815228e-01 11.343287     4
## 398  -1.628109e+00  6.783610     1
## 399   1.445356e+00 10.076339     4
## 400   2.246554e+00 10.255794     5
## 401  -1.407752e+00  9.761192     2
## 402   3.975670e-01  9.401942     3
## 403  -1.667417e+00  8.644151     1
## 404   2.211537e+00 10.982655     5
## 405   1.215376e+00 11.488020     4
## 406  -8.592549e-01 10.910782     2
## 407  -1.156635e+00  7.911283     2
## 408   1.110529e+00 11.573348     4
## 409  -1.507332e+00  6.379789     1
## 410  -1.938236e+00  8.858610     1
## 411   9.916233e-01 12.591544     4
## 412  -8.664058e-01  8.902608     2
## 413   7.320542e-01  9.981642     4
## 414   5.035988e-01  9.433385     4
## 415  -1.330849e+00  8.577985     2
## 416  -2.449426e-01  9.942465     3
## 417   1.132481e+00 11.089416     4
## 418   4.598998e-01 11.853922     3
## 419   1.570867e-01  9.551877     3
## 420   4.875234e-01 10.418123     3
## 421  -1.069531e+00  6.853700     2
## 422   1.265634e+00 11.480948     4
## 423   1.345252e+00 11.509571     4
## 424   2.860358e-01 10.235357     3
## 425  -1.103901e-01 10.088006     3
## 426  -1.088520e+00  9.973733     2
## 427   5.087606e-01 11.121410     4
## 428   9.509454e-01 10.794233     4
## 429   8.404597e-01  8.981918     4
## 430  -1.639187e+00  8.335456     1
## 431  -5.378148e-01  9.007717     2
## 432  -8.032560e-01  9.329114     2
## 433   3.341928e-01 10.811885     3
## 434  -1.185620e-01 11.504149     3
## 435   1.041088e+00 11.530183     4
## 436   3.788275e-02  9.675236     3
## 437   7.211497e-01 12.237933     4
## 438   2.270019e+00 12.038731     5
## 439   3.664618e-02 10.104681     3
## 440   5.633037e-01 11.083763     4
## 441  -6.148231e-01  9.498179     2
## 442   4.683675e-03  9.890344     3
## 443  -1.046138e+00 10.757290     2
## 444  -2.282173e-01  8.607113     3
## 445   4.084029e-01  9.316943     3
## 446   3.266178e-01 10.910340     3
## 447  -1.368726e+00  8.544103     2
## 448   1.402579e+00 10.004224     4
## 449  -1.802245e+00  8.104598     1
## 450   1.130855e+00  8.895699     4
## 451   6.600765e-01  8.831625     4
## 452   1.091589e+00 12.587992     4
## 453   7.738603e-01  8.053071     4
## 454  -1.133310e+00  9.996973     2
## 455  -4.452571e-01  9.299589     3
## 456   7.039486e-01 12.753960     4
## 457   3.130652e-01  9.256647     3
## 458  -9.612895e-01  9.364809     2
## 459  -2.522741e-01 10.168343     3
## 460  -1.989946e-01  9.222600     3
## 461   1.706204e+00 10.676237     5
## 462   6.652973e-01 10.924931     4
## 463   2.642765e-01  9.069445     3
## 464  -4.485797e-01 11.792655     3
## 465  -4.195383e-01  8.767678     3
## 466  -1.067415e-01 10.518399     3
## 467   7.373909e-01 10.691468     4
## 468  -2.088068e-01 10.262996     3
## 469  -1.696900e+00  8.312270     1
## 470   1.410234e+00 12.136209     4
## 471   3.200339e-02 10.344651     3
## 472   9.583779e-01 11.545743     4
## 473  -4.903723e-01  9.573209     3
## 474   2.283348e+00 12.992881     5
## 475   5.068375e-01 11.036733     4
## 476   5.536835e-01 10.782293     4
## 477  -4.187955e-01  7.506896     3
## 478   1.055986e+00  8.987665     4
## 479  -7.790599e-01  9.613765     2
## 480   1.847680e-01  9.497083     3
## 481   3.071071e-01  9.369096     3
## 482  -2.179237e+00  6.214975     1
## 483   1.253352e+00 10.171382     4
## 484   1.316307e+00 11.436190     4
## 485  -1.612764e-01 10.262285     3
## 486  -1.811290e-01 10.301168     3
## 487  -5.152022e-01 11.018970     2
## 488  -9.876129e-01  7.972591     2
## 489   1.574241e+00 11.627048     5
## 490  -3.122014e-01  8.707828     3
## 491  -5.577358e-01 10.034211     2
## 492   1.060582e+00  9.915433     4
## 493   9.615360e-01 10.947481     4
## 494   4.895078e-03 10.677295     3
## 495  -1.072402e-01  8.931912     3
## 496   3.270672e-01 11.835029     3
## 497  -1.041616e+00  9.334289     2
## 498  -7.131226e-01  9.674532     2
## 499  -4.035470e-01 10.314979     3
## 500  -3.978707e-01  9.536909     3
## 501  -2.959602e+00  6.821658     1
## 502  -2.849276e-01 10.875510     3
## 503   7.345552e-01  9.218992     4
## 504   9.245570e-01 10.172447     4
## 505  -8.548432e-01  9.302330     2
## 506  -2.730342e-02  7.361110     3
## 507   4.693053e-01  9.950485     3
## 508   9.565311e-01 10.057364     4
## 509   7.173685e-01 10.812881     4
## 510   1.032761e+00 12.594364     4
## 511  -1.364626e+00  9.030714     2
## 512  -4.033207e-01 11.155835     3
## 513  -1.071182e+00  8.647064     2
## 514   1.598844e+00  8.602104     5
## 515  -2.845634e-01 10.279869     3
## 516   2.573061e-01 10.371634     3
## 517  -3.744480e-01 10.211516     3
## 518   9.086362e-01 11.162380     4
## 519  -7.604490e-01  7.747094     2
## 520   7.852267e-01 10.065442     4
## 521   1.707014e+00  9.708688     5
## 522  -2.031403e+00  9.961398     1
## 523   4.747758e-01 10.723624     3
## 524   1.151432e+00 11.347602     4
## 525   4.242852e-01  8.346943     3
## 526  -6.339310e-01  9.381799     2
## 527   8.712061e-01  9.893754     4
## 528  -1.006350e+00  7.775311     2
## 529  -2.409523e+00  6.545063     1
## 530  -1.634676e+00  6.407268     1
## 531  -1.569678e+00  9.330381     1
## 532  -8.052392e-01  9.849711     2
## 533   5.489853e-01 12.598262     4
## 534  -5.816327e-01  9.703255     2
## 535   1.571224e+00 10.170175     5
## 536   7.001274e-01 11.226495     4
## 537  -7.765119e-01  9.459410     2
## 538   2.784401e+00 12.390867     5
## 539   2.329353e-01 12.362525     3
## 540  -6.181795e-01  9.631010     2
## 541  -1.415938e+00  8.776812     2
## 542   3.849437e-01 11.088282     3
## 543   4.883491e-01 10.890665     3
## 544  -3.660169e-01  9.809008     3
## 545  -2.578184e-01 11.051228     3
## 546   8.707405e-01 11.666779     4
## 547  -4.299221e-01  9.098147     3
## 548  -1.266613e+00  9.088695     2
## 549   1.629829e+00 10.814431     5
## 550  -1.218538e+00 10.299546     2
## 551  -1.542836e+00  7.531063     1
## 552  -1.238951e+00  8.829695     2
## 553   3.237242e-01  9.732160     3
## 554   1.880632e-01 10.079685     3
## 555  -4.003935e-01  9.137025     3
## 556   8.023049e-01 11.161015     4
## 557  -1.532100e-01  9.673467     3
## 558   1.810440e-01  8.464822     3
## 559  -1.272760e+00  9.450513     2
## 560  -1.066830e+00 11.110122     2
## 561   1.280447e+00 11.023003     4
## 562  -1.186110e+00  9.647683     2
## 563   5.863203e-05  9.644044     3
## 564   4.584896e-01 10.287783     3
## 565  -8.955855e-01  8.003916     2
## 566  -1.255165e+00  8.357487     2
## 567  -4.739914e-01  8.442567     3
## 568  -6.007936e-01  9.872626     2
## 569  -7.505299e-01  9.412088     2
## 570  -3.623925e-01  8.952996     3
## 571  -8.241837e-01  9.107682     2
## 572   7.778733e-04  9.424309     3
## 573  -1.522984e+00  8.280070     1
## 574  -3.962287e-01  9.498506     3
## 575  -1.535087e+00  8.137316     1
## 576  -4.057073e-01  7.878893     3
## 577  -5.862881e-01 10.301666     2
## 578   4.185755e-01 11.500162     3
## 579  -7.345549e-01  9.331377     2
## 580   2.385410e-01  9.767313     3
## 581  -1.442348e-01  8.503024     3
## 582   4.341262e-02 10.820453     3
## 583   6.762230e-01 10.573519     4
## 584   1.165168e+00 10.667023     4
## 585   2.738523e+00 10.282958     5
## 586   5.179207e-01  9.355924     4
## 587  -7.014055e-01  7.667892     2
## 588  -9.156144e-01  8.566640     2
## 589   9.455999e-01 11.913459     4
## 590   5.096008e-01 11.857641     4
## 591  -6.627273e-01  9.692941     2
## 592   3.897679e-01  9.576401     3
## 593   3.585609e-01 10.964118     3
## 594  -7.743672e-01  9.355961     2
## 595   2.484510e-01  8.611937     3
## 596   1.165633e+00 12.627223     4
## 597  -6.364062e-01  8.297621     2
## 598  -1.786430e+00  8.743443     1
## 599   2.307636e-01 10.588798     3
## 600  -2.601488e-01 10.872855     3
## 601   7.190922e-01 12.334264     4
## 602   3.616583e-01  9.975152     3
## 603   3.104218e-02 10.972742     3
## 604   2.759193e-01 11.595387     3
## 605   1.370825e-01 10.294823     3
## 606   3.080248e-01  9.591306     3
## 607   1.362376e+00 12.162307     4
## 608   1.802387e+00 12.516812     5
## 609  -3.514487e-01  9.277234     3
## 610  -5.853853e-01  9.871296     2
## 611  -3.665441e-01 10.028509     3
## 612   1.601780e+00 11.216439     5
## 613  -2.475328e-02  9.801575     3
## 614  -3.280880e-01  9.994297     3
## 615   6.935167e-01 10.315537     4
## 616   3.247416e-02 10.769338     3
## 617   1.236982e+00 11.150474     4
## 618   1.169434e+00 12.605585     4
## 619  -1.189060e+00  9.872171     2
## 620   1.145508e+00 11.115188     4
## 621  -2.783449e-01 10.686546     3
## 622  -1.791495e+00  9.246281     1
## 623   9.010615e-01 11.929814     4
## 624  -2.029156e+00  7.110565     1
## 625   2.123552e+00 12.075868     5
## 626   4.904401e-01 11.397097     3
## 627   1.660082e+00  9.764757     5
## 628   8.696916e-01 11.273909     4
## 629  -3.226574e-01  9.200955     3
## 630  -1.162466e+00  7.561078     2
## 631   2.316559e-02  8.188674     3
## 632   4.385162e-01  9.699515     3
## 633   7.194273e-01 11.860673     4
## 634  -1.044595e+00  8.528765     2
## 635   1.005509e+00 10.804951     4
## 636   1.221441e-01 10.276444     3
## 637   5.297728e-01 10.887474     4
## 638  -1.617265e+00  7.710259     1
## 639  -5.258901e-01 10.096973     2
## 640   3.764792e-01  9.868124     3
## 641   9.464863e-01 11.331875     4
## 642  -1.428222e+00  8.307545     2
## 643   4.694239e-01 11.891557     3
## 644  -7.500929e-01  9.050659     2
## 645   2.907662e-01 10.422171     3
## 646  -5.759592e-01  8.849218     2
## 647  -5.696566e-01 10.411450     2
## 648  -1.731151e-01  8.169808     3
## 649  -4.328340e-01  9.256204     3
## 650   1.611089e-01 10.994578     3
## 651  -2.148214e-01  9.418178     3
## 652   2.362618e+00 12.098431     5
## 653   6.472600e-01 10.662307     4
## 654   1.103584e+00 10.522527     4
## 655   7.241580e-02  9.852391     3
## 656   1.992861e+00 12.776043     5
## 657  -6.113006e-01  7.788473     2
## 658  -1.067434e+00  8.076756     2
## 659   6.110102e-01  9.458226     4
## 660  -4.397162e-01  8.893548     3
## 661   3.319870e-01  8.221535     3
## 662   5.481909e-01 10.601381     4
## 663  -4.550486e-01  9.951680     3
## 664  -5.203283e-01  9.430545     2
## 665   5.447056e-01 11.719252     4
## 666  -1.180524e-01  9.780045     3
## 667   3.322038e-01 11.335393     3
## 668   7.255522e-01 11.147364     4
## 669  -5.301118e-01  9.334466     2
## 670  -9.452194e-01  8.780500     2
## 671   1.996763e+00 11.524449     5
## 672  -2.805795e-01 10.869991     3
## 673  -5.893873e-02  9.524490     3
## 674  -1.152007e+00  9.858144     2
## 675   2.864881e-01 10.255462     3
## 676  -5.075160e-01  8.302025     2
## 677   5.303191e-01 13.030194     4
## 678   5.997789e-01 10.554643     4
## 679   1.063368e+00 10.343505     4
## 680  -1.187970e+00  8.150104     2
## 681  -9.573954e-02  9.442867     3
## 682  -6.867736e-02  8.574101     3
## 683   4.934703e-01  9.406789     3
## 684   6.346203e-01 10.738651     4
## 685   1.657042e+00 11.249250     5
## 686  -5.342873e-01  9.243971     2
## 687   4.030736e-01 10.587369     3
## 688   6.430032e-01 12.420145     4
## 689   4.621802e-01 11.100449     3
## 690  -6.629698e-01  8.260564     2
## 691   2.426747e-01  9.835390     3
## 692   6.753601e-01  9.849407     4
## 693  -2.903990e-01  9.251334     3
## 694   7.357490e-01 10.837619     4
## 695  -7.186730e-01  8.304840     2
## 696  -1.388407e-01  7.496706     3
## 697  -7.056514e-01  9.266948     2
## 698   4.137548e-02 11.957366     3
## 699  -3.565859e-01  9.949717     3
## 700   9.441206e-01 10.164374     4
## 701  -5.012408e-01  9.544662     2
## 702   2.717150e-01 10.765319     3
## 703   3.749520e-01 10.405766     3
## 704  -1.474104e+00  9.562969     2
## 705  -1.051264e+00  7.917882     2
## 706   2.500415e-01  9.625845     3
## 707  -1.971542e-01  8.721998     3
## 708  -7.895032e-01  8.672963     2
## 709  -7.208512e-01 11.204748     2
## 710  -4.952971e-01 10.044869     3
## 711  -2.062995e-01  9.165892     3
## 712  -4.759524e-01 10.140330     3
## 713  -4.178306e-01  9.703105     3
## 714   1.332582e+00  9.439547     4
## 715  -2.295608e+00  7.516689     1
## 716  -1.363704e+00  9.726198     2
## 717  -2.164797e-01  8.236137     3
## 718   1.693665e+00 12.269310     5
## 719   3.988694e-01 11.072918     3
## 720  -1.236076e+00  9.984116     2
## 721  -7.506897e-01  7.980114     2
## 722  -1.211024e+00  8.032713     2
## 723  -7.647874e-01  8.435795     2
## 724  -9.856615e-01  8.513265     2
## 725   1.609288e+00 12.811519     5
## 726   8.441458e-01 11.482047     4
## 727   1.012514e+00 12.016486     4
## 728  -1.826996e-01 10.855574     3
## 729  -5.556780e-01  8.901694     2
## 730  -8.616292e-01 10.209606     2
## 731  -2.563663e+00  8.072525     1
## 732   8.634105e-01 11.255014     4
## 733   4.506151e-02 10.911354     3
## 734   2.215987e+00 13.449565     5
## 735  -5.931609e-01  7.061876     2
## 736  -5.259580e-01 10.364511     2
## 737  -8.885156e-01 10.879163     2
## 738   1.902544e-01 11.133383     3
## 739   5.837953e-01 11.030095     4
## 740   7.773104e-01 10.381266     4
## 741   6.273919e-01 10.833155     4
## 742  -1.502877e+00 10.551556     1
## 743   1.005311e+00 10.131775     4
## 744  -1.746908e+00  8.665072     1
## 745  -2.650310e-01  9.721435     3
## 746   7.116609e-01 10.636928     4
## 747  -3.212287e-01  9.643548     3
## 748  -5.030847e-02  8.336889     3
## 749   7.715189e-01 11.307883     4
## 750   2.725811e-01 10.745270     3
## 751  -6.826053e-01  9.553494     2
## 752   2.252843e-01  9.065902     3
## 753  -1.426949e+00  8.592743     2
## 754  -6.073178e-01  8.896115     2
## 755   4.193971e-01 11.962629     3
## 756   1.260885e+00 11.790768     4
## 757  -5.630185e-01  9.329712     2
## 758  -1.387677e+00  8.873421     2
## 759   1.240208e+00 10.739439     4
## 760  -1.367099e+00 10.219024     2
## 761   8.576436e-01 11.669655     4
## 762   1.235896e+00 12.252619     4
## 763   1.312439e-01  8.998969     3
## 764  -4.438057e-01  9.891125     3
## 765  -6.236640e-01 10.176155     2
## 766   1.771232e+00 11.599346     5
## 767  -6.077922e-01  9.570402     2
## 768  -1.349894e-01  9.423609     3
## 769   3.454136e-01 10.584435     3
## 770  -4.582448e-01  9.131257     3
## 771  -2.910404e-01 10.435051     3
## 772  -1.554030e+00  8.476986     1
## 773  -2.466181e+00  6.580153     1
## 774  -9.949888e-01 10.934983     2
## 775  -1.487724e+00  9.062307     2
## 776  -1.039775e-01 11.794344     3
## 777   8.149550e-01 10.751097     4
## 778   1.522509e+00 13.506624     5
## 779  -1.007803e+00  8.095798     2
## 780  -1.262925e+00  9.131595     2
## 781  -2.110408e+00  8.776538     1
## 782   6.517618e-01 10.445262     4
## 783   7.238002e-01  9.923498     4
## 784   1.431935e-01 10.164614     3
## 785  -9.776515e-01 10.037622     2
## 786  -1.303081e-01  9.696690     3
## 787  -1.461183e+00  7.604815     2
## 788   6.284861e-01  8.760753     4
## 789  -1.108837e+00  7.627036     2
## 790  -3.810098e-01 11.049394     3
## 791   1.981811e+00 11.389872     5
## 792  -4.473148e-01  9.140792     3
## 793   2.217736e-01  8.356305     3
## 794  -8.764978e-02 10.018462     3
## 795   1.149344e+00 11.223244     4
## 796  -1.844002e+00  8.003984     1
## 797   5.988403e-01  9.598308     4
## 798  -1.720555e+00  9.127753     1
## 799  -7.366785e-01  9.743800     2
## 800  -1.114084e-01 11.150249     3
## 801  -5.347304e-01 10.659722     2
## 802   1.127710e+00 10.311183     4
## 803   1.521446e+00  9.803898     5
## 804  -4.837819e-01 10.336694     3
## 805  -8.874225e-01  8.649564     2
## 806   2.785573e-01 10.333851     3
## 807   5.463433e-04 10.241874     3
## 808  -9.747812e-01  9.941883     2
## 809  -8.918059e-01  8.660743     2
## 810   1.271791e+00 11.692332     4
## 811   1.817452e+00 12.467363     5
## 812   6.914880e-01 10.079548     4
## 813   2.548714e-01  8.483794     3
## 814  -7.441122e-01  9.198587     2
## 815  -6.528096e-01  8.550607     2
## 816  -1.299401e-01  9.798883     3
## 817   1.611301e+00 13.085279     5
## 818  -1.367432e+00  7.924250     2
## 819  -3.830471e-01  8.747510     3
## 820   1.632605e-01  8.893779     3
## 821   9.908760e-01 11.786345     4
## 822   5.558035e-01 12.560868     4
## 823  -1.858030e+00  8.287064     1
## 824  -1.557793e+00  6.788992     1
## 825  -7.832210e-01  8.355824     2
## 826   1.683863e+00 11.971588     5
## 827   4.571530e-01 12.235746     3
## 828   1.037675e+00 11.248636     4
## 829   6.085304e-01 11.347832     4
## 830  -4.551881e-01  9.329526     3
## 831  -2.627435e-01 10.023637     3
## 832   6.757000e-01 12.563320     4
## 833  -8.355696e-01  8.982155     2
## 834  -1.719740e+00  9.127559     1
## 835  -1.384501e+00  9.037511     2
## 836  -1.016026e+00  9.155316     2
## 837  -1.024886e+00  8.739751     2
## 838  -1.249492e+00  8.694574     2
## 839  -1.570872e+00  9.192018     1
## 840   1.101574e-01 11.265938     3
## 841  -8.615660e-01  9.787492     2
## 842  -1.398329e-01  9.399260     3
## 843  -1.242791e+00  8.980915     2
## 844   8.381966e-02  9.131105     3
## 845  -4.801935e-01  9.262152     3
## 846  -6.982082e-01  9.587596     2
## 847  -1.361053e+00  8.629297     2
## 848  -1.314153e+00  9.575951     2
## 849   1.265492e+00 10.565030     4
## 850  -1.457447e-01  9.968207     3
## 851   2.281221e-01 10.371368     3
## 852  -1.202463e+00  9.735645     2
## 853  -5.528430e-01  9.075109     2
## 854   1.192652e+00 11.755552     4
## 855   6.315029e-01 10.849598     4
## 856  -8.092317e-01  7.918041     2
## 857   9.350428e-01 10.974510     4
## 858   2.097894e+00 14.409513     5
## 859  -8.632397e-02 10.317066     3
## 860  -2.013994e-01 10.093052     3
## 861   4.836859e-01 11.275130     3
## 862   3.103468e+00 13.253864     5
## 863   3.235659e-01  8.786692     3
## 864  -8.804952e-02 10.046705     3
## 865   1.449323e+00 10.283063     4
## 866   5.105417e-01 11.190567     4
## 867  -3.868537e-01 10.837267     3
## 868  -5.036138e-01  8.518021     2
## 869   7.133995e-01 11.277277     4
## 870   5.787124e-01 12.400169     4
## 871   8.042879e-01 10.467251     4
## 872   3.543449e-01  9.300778     3
## 873  -8.433190e-01 10.079714     2
## 874  -4.357954e-03  8.675262     3
## 875   3.912083e-01  8.426540     3
## 876   1.076239e+00 10.543903     4
## 877   2.787701e+00 11.998281     5
## 878  -4.423350e-01 10.929945     3
## 879  -7.047497e-02  8.864531     3
## 880  -5.685607e-01  9.559048     2
## 881  -1.613962e-01 10.366356     3
## 882   1.606455e+00 10.888196     5
## 883   2.641425e-01 11.075263     3
## 884   8.916688e-01 10.714603     4
## 885   6.791757e-01 11.833268     4
## 886  -2.858623e-02 12.287166     3
## 887  -7.402281e-01  9.413204     2
## 888   1.258176e-01 11.570862     3
## 889   1.271132e-02  9.504760     3
## 890   9.267894e-01 11.101216     4
## 891  -2.587824e-02  8.697302     3
## 892  -8.448512e-02  9.807795     3
## 893   9.041815e-01 11.832683     4
## 894   1.734598e-01  9.546642     3
## 895  -4.374525e-01  8.481585     3
## 896  -1.369398e-01 10.412156     3
## 897  -9.206628e-01  7.772764     2
## 898  -9.109012e-01  9.042225     2
## 899   4.059263e-02 10.465463     3
## 900   5.093732e-01 10.240496     4
## 901   1.733256e+00 13.794785     5
## 902   3.969522e-01 10.449261     3
## 903   1.482538e+00 14.292966     4
## 904  -3.624031e-01  8.730615     3
## 905   7.276882e-01 11.514269     4
## 906  -1.174352e+00  8.334469     2
## 907   9.163876e-01 10.240121     4
## 908  -1.408021e+00  8.589517     2
## 909  -1.004358e+00  8.827704     2
## 910  -8.426190e-01  7.833993     2
## 911  -1.547401e+00  8.314930     1
## 912  -6.604427e-01  8.617287     2
## 913  -1.149441e+00  8.972013     2
## 914  -9.787213e-01  7.333772     2
## 915  -7.247790e-01  9.171106     2
## 916  -1.162991e-01  9.269357     3
## 917  -8.715543e-01  9.074314     2
## 918   2.084079e+00 11.050305     5
## 919   6.895942e-01 10.511208     4
## 920   1.425751e-01 11.211924     3
## 921  -2.242896e-01  9.558152     3
## 922   6.519925e-01 11.439671     4
## 923  -2.253090e+00  7.109118     1
## 924   6.352372e-01 10.760237     4
## 925  -6.458876e-01 10.623632     2
## 926  -1.809039e+00  8.197919     1
## 927   3.593689e-01 12.002887     3
## 928  -1.444949e+00  7.511979     2
## 929   1.997993e+00 11.679438     5
## 930  -9.630709e-01 10.723981     2
## 931  -1.172982e+00  9.267747     2
## 932  -1.277992e+00  8.826215     2
## 933   1.635831e+00 12.354086     5
## 934  -8.222604e-01  7.306411     2
## 935  -3.362282e-01  7.771697     3
## 936  -2.117293e-02  8.426660     3
## 937   2.840844e-01  8.838292     3
## 938   1.134588e-01 11.130172     3
## 939  -7.953834e-01  9.681233     2
## 940   9.737984e-01 11.271871     4
## 941  -1.727439e-01 11.026748     3
## 942  -6.157031e-01  8.486573     2
## 943   8.342797e-02 10.640725     3
## 944  -1.602411e+00  8.367940     1
## 945  -1.355857e+00  7.793282     2
## 946   1.452195e+00 11.337829     4
## 947   1.403837e+00 12.593998     4
## 948   3.117169e-01  9.601023     3
## 949   4.102366e-01 10.280593     3
## 950  -9.258744e-01  9.379596     2
## 951  -4.100004e-01  8.445986     3
## 952   6.509562e-01  9.558165     4
## 953   1.393049e-01 10.778719     3
## 954   6.767576e-01 11.784470     4
## 955  -8.357439e-01  8.743859     2
## 956  -5.544964e-02 11.249599     3
## 957   8.289160e-01 11.044894     4
## 958  -2.754559e-01  8.812599     3
## 959  -2.874954e-01  8.966387     3
## 960   5.221841e-01 11.456542     4
## 961   3.005028e-01 10.260938     3
## 962   1.682822e+00 12.189612     5
## 963   1.708991e-01 10.665839     3
## 964   1.478940e+00 11.953277     4
## 965  -1.193102e+00 11.199459     2
## 966  -8.565334e-01  8.790109     2
## 967   1.730042e-02  8.770245     3
## 968   6.378157e-01 11.896063     4
## 969  -4.718942e-01  7.617126     3
## 970   5.241351e-01 10.441971     4
## 971   3.540228e-01  9.681973     3
## 972  -2.319803e+00  9.573541     1
## 973  -2.466931e-02  9.771224     3
## 974   7.198521e-01 10.517743     4
## 975  -1.103903e-01 11.662839     3
## 976  -1.922731e+00  8.730057     1
## 977  -1.262346e+00  8.340625     2
## 978  -2.766504e-01  8.325394     3
## 979  -4.794508e-01  9.322599     3
## 980   6.075831e-01 10.878099     4
## 981  -5.357607e-01  8.145823     2
## 982  -2.458623e-01 10.112760     3
## 983  -5.549597e-01  8.426379     2
## 984   8.732257e-02  8.775478     3
## 985   1.568078e+00 13.238994     5
## 986  -2.256177e-01  9.444306     3
## 987   9.868531e-01 10.711431     4
## 988  -8.563744e-01  9.729620     2
## 989   8.045794e-01  9.570518     4
## 990   6.141468e-01 11.224007     4
## 991  -7.616397e-01 10.596599     2
## 992  -2.695376e-01 10.620578     3
## 993  -9.618311e-01  9.511671     2
## 994  -1.191909e+00  7.571940     2
## 995   4.339510e-01  9.625180     3
## 996   1.457446e+00 10.798317     4
## 997   1.583324e+00 12.534500     5
## 998   2.895092e-01  9.348679     3
## 999   1.123415e+00 10.589137     4
## 1000 -2.773339e-01  9.766532     3
# creates plot object using ggplot
plot <- ggplot(sample_data, aes(x = xAxis, y= yAxis, col = as.factor(group)))+
  geom_point()+theme(legend.position = "none")

# Display plot
plot
# Insert marginal ditribution using marginal function
ggMarginal(plot,type= 'histogram',groupColour=TRUE,groupFill=TRUE)