Skip to main content
Mathematics LibreTexts

1.6.4.9: Answers to exercises

  • Page ID
    32631
  • \( \newcommand{\vecs}[1]{\overset { \scriptstyle \rightharpoonup} {\mathbf{#1}} } \)

    \( \newcommand{\vecd}[1]{\overset{-\!-\!\rightharpoonup}{\vphantom{a}\smash {#1}}} \)

    \( \newcommand{\id}{\mathrm{id}}\) \( \newcommand{\Span}{\mathrm{span}}\)

    ( \newcommand{\kernel}{\mathrm{null}\,}\) \( \newcommand{\range}{\mathrm{range}\,}\)

    \( \newcommand{\RealPart}{\mathrm{Re}}\) \( \newcommand{\ImaginaryPart}{\mathrm{Im}}\)

    \( \newcommand{\Argument}{\mathrm{Arg}}\) \( \newcommand{\norm}[1]{\| #1 \|}\)

    \( \newcommand{\inner}[2]{\langle #1, #2 \rangle}\)

    \( \newcommand{\Span}{\mathrm{span}}\)

    \( \newcommand{\id}{\mathrm{id}}\)

    \( \newcommand{\Span}{\mathrm{span}}\)

    \( \newcommand{\kernel}{\mathrm{null}\,}\)

    \( \newcommand{\range}{\mathrm{range}\,}\)

    \( \newcommand{\RealPart}{\mathrm{Re}}\)

    \( \newcommand{\ImaginaryPart}{\mathrm{Im}}\)

    \( \newcommand{\Argument}{\mathrm{Arg}}\)

    \( \newcommand{\norm}[1]{\| #1 \|}\)

    \( \newcommand{\inner}[2]{\langle #1, #2 \rangle}\)

    \( \newcommand{\Span}{\mathrm{span}}\) \( \newcommand{\AA}{\unicode[.8,0]{x212B}}\)

    \( \newcommand{\vectorA}[1]{\vec{#1}}      % arrow\)

    \( \newcommand{\vectorAt}[1]{\vec{\text{#1}}}      % arrow\)

    \( \newcommand{\vectorB}[1]{\overset { \scriptstyle \rightharpoonup} {\mathbf{#1}} } \)

    \( \newcommand{\vectorC}[1]{\textbf{#1}} \)

    \( \newcommand{\vectorD}[1]{\overrightarrow{#1}} \)

    \( \newcommand{\vectorDt}[1]{\overrightarrow{\text{#1}}} \)

    \( \newcommand{\vectE}[1]{\overset{-\!-\!\rightharpoonup}{\vphantom{a}\smash{\mathbf {#1}}}} \)

    \( \newcommand{\vecs}[1]{\overset { \scriptstyle \rightharpoonup} {\mathbf{#1}} } \)

    \( \newcommand{\vecd}[1]{\overset{-\!-\!\rightharpoonup}{\vphantom{a}\smash {#1}}} \)

    \(\newcommand{\avec}{\mathbf a}\) \(\newcommand{\bvec}{\mathbf b}\) \(\newcommand{\cvec}{\mathbf c}\) \(\newcommand{\dvec}{\mathbf d}\) \(\newcommand{\dtil}{\widetilde{\mathbf d}}\) \(\newcommand{\evec}{\mathbf e}\) \(\newcommand{\fvec}{\mathbf f}\) \(\newcommand{\nvec}{\mathbf n}\) \(\newcommand{\pvec}{\mathbf p}\) \(\newcommand{\qvec}{\mathbf q}\) \(\newcommand{\svec}{\mathbf s}\) \(\newcommand{\tvec}{\mathbf t}\) \(\newcommand{\uvec}{\mathbf u}\) \(\newcommand{\vvec}{\mathbf v}\) \(\newcommand{\wvec}{\mathbf w}\) \(\newcommand{\xvec}{\mathbf x}\) \(\newcommand{\yvec}{\mathbf y}\) \(\newcommand{\zvec}{\mathbf z}\) \(\newcommand{\rvec}{\mathbf r}\) \(\newcommand{\mvec}{\mathbf m}\) \(\newcommand{\zerovec}{\mathbf 0}\) \(\newcommand{\onevec}{\mathbf 1}\) \(\newcommand{\real}{\mathbb R}\) \(\newcommand{\twovec}[2]{\left[\begin{array}{r}#1 \\ #2 \end{array}\right]}\) \(\newcommand{\ctwovec}[2]{\left[\begin{array}{c}#1 \\ #2 \end{array}\right]}\) \(\newcommand{\threevec}[3]{\left[\begin{array}{r}#1 \\ #2 \\ #3 \end{array}\right]}\) \(\newcommand{\cthreevec}[3]{\left[\begin{array}{c}#1 \\ #2 \\ #3 \end{array}\right]}\) \(\newcommand{\fourvec}[4]{\left[\begin{array}{r}#1 \\ #2 \\ #3 \\ #4 \end{array}\right]}\) \(\newcommand{\cfourvec}[4]{\left[\begin{array}{c}#1 \\ #2 \\ #3 \\ #4 \end{array}\right]}\) \(\newcommand{\fivevec}[5]{\left[\begin{array}{r}#1 \\ #2 \\ #3 \\ #4 \\ #5 \\ \end{array}\right]}\) \(\newcommand{\cfivevec}[5]{\left[\begin{array}{c}#1 \\ #2 \\ #3 \\ #4 \\ #5 \\ \end{array}\right]}\) \(\newcommand{\mattwo}[4]{\left[\begin{array}{rr}#1 \amp #2 \\ #3 \amp #4 \\ \end{array}\right]}\) \(\newcommand{\laspan}[1]{\text{Span}\{#1\}}\) \(\newcommand{\bcal}{\cal B}\) \(\newcommand{\ccal}{\cal C}\) \(\newcommand{\scal}{\cal S}\) \(\newcommand{\wcal}{\cal W}\) \(\newcommand{\ecal}{\cal E}\) \(\newcommand{\coords}[2]{\left\{#1\right\}_{#2}}\) \(\newcommand{\gray}[1]{\color{gray}{#1}}\) \(\newcommand{\lgray}[1]{\color{lightgray}{#1}}\) \(\newcommand{\rank}{\operatorname{rank}}\) \(\newcommand{\row}{\text{Row}}\) \(\newcommand{\col}{\text{Col}}\) \(\renewcommand{\row}{\text{Row}}\) \(\newcommand{\nul}{\text{Nul}}\) \(\newcommand{\var}{\text{Var}}\) \(\newcommand{\corr}{\text{corr}}\) \(\newcommand{\len}[1]{\left|#1\right|}\) \(\newcommand{\bbar}{\overline{\bvec}}\) \(\newcommand{\bhat}{\widehat{\bvec}}\) \(\newcommand{\bperp}{\bvec^\perp}\) \(\newcommand{\xhat}{\widehat{\xvec}}\) \(\newcommand{\vhat}{\widehat{\vvec}}\) \(\newcommand{\uhat}{\widehat{\uvec}}\) \(\newcommand{\what}{\widehat{\wvec}}\) \(\newcommand{\Sighat}{\widehat{\Sigma}}\) \(\newcommand{\lt}{<}\) \(\newcommand{\gt}{>}\) \(\newcommand{\amp}{&}\) \(\definecolor{fillinmathshade}{gray}{0.9}\)

    Answers to the barplot coloring question:

    Code \(\PageIndex{1}\) (R):

    sex <- c("male", "female", "male", "male", "female", "male", "male")
    sex.f <- factor(sex)
    plot(sex.f, col=1:2)
    

    or

    Code \(\PageIndex{2}\) (R):

    sex <- c("male", "female", "male", "male", "female", "male", "male")
    sex.f <- factor(sex)
    plot(sex.f, col=1:nlevels(sex.f))
    

    (Please try these commands yourself. The second answer is preferable because it will work even in cases when factor has more than two levels.)

    Answers to the barplot counts question. To see frequencies, from highest to smallest, run:

    Code \(\PageIndex{3}\) (R):

    lload("data/com12.rd")
    exists("com12")
    com12.plot <- barplot(com12, names.arg="")
    rev(sort(com12))
    

    or

    Code \(\PageIndex{4}\) (R):

    lload("data/com12.rd")
    exists("com12")
    com12.plot <- barplot(com12, names.arg="")
    rev(sort(com12))
    sort(com12, decreasing=TRUE)
    

    Answer to flowering heads question. First, we need to load the file into R. With url.show() or simply by examining the file in the browser window, we reveal that file has multiple columns divided with wide spaces (likely Tab symbols) and that the first column contains species names with spaces. Therefore, header and separator should be defined explicitly:

    Code \(\PageIndex{5}\) (R):

    comp <- read.table("http://ashipunov.info/shipunov/open/compositae.txt", h=TRUE, sep="\t")
    

    Next step is always to check the structure of new object:

    Code \(\PageIndex{6}\) (R):

    comp <- read.table("http://ashipunov.info/shipunov/open/compositae.txt", h=TRUE, sep="\t")
    str(comp)
    

    Two columns (including species) are factors, others are numerical (integer or not). The resulted object is a data frame.

    Next is to select our species and remove unused levels:

    Code \(\PageIndex{7}\) (R):

    comp <- read.table("http://ashipunov.info/shipunov/open/compositae.txt", h=TRUE, sep="\t")
    c3 <- comp[comp$SPECIES %in% c("Anthemis tinctoria", "Cosmos bipinnatus", "Tripleurospermum inodorum"), ]
    c3$SPECIES <- droplevels(c3$SPECIES)
    

    To select tree species in one command, we used logical expression made with %in% operator (please see how it works with ?"%in%" command).

    Removal of redundant levels will help to use species names for scatterplot:

    Code \(\PageIndex{8}\) (R):

    comp <- read.table("http://ashipunov.info/shipunov/open/compositae.txt", h=TRUE, sep="\t")
    c3 <- comp[comp$SPECIES %in% c("Anthemis tinctoria", "Cosmos bipinnatus", "Tripleurospermum inodorum"), ]
    c3$SPECIES <- droplevels(c3$SPECIES)
    with(c3, plot(HEAD.D, RAYS, col=as.numeric(SPECIES), pch=as.numeric(SPECIES), xlab="Diameter of head, mm", ylab="Number of rays"))
    legend("topright", pch=1:3, col=1:3, legend=levels(c3$SPECIES))
    

    Please make this plot yourself. The key is to use SPECIES factor as number, with as.numeric() command. Function with() allows to ignore cc$ and therefore saves typing.

    However, there is one big problem which at first is not easy to recognize: in many places, points overlay each other and therefore amount of visible data points is much less then in the data file. What is worse, we cannot say if first and third species are well or not well segregated because we do not see how many data values are located on the “border” between them. This scatterplot problem is well known and there are workarounds:

    Code \(\PageIndex{9}\) (R):

    comp <- read.table("http://ashipunov.info/shipunov/open/compositae.txt", h=TRUE, sep="\t")
    c3 <- comp[comp$SPECIES %in% c("Anthemis tinctoria", "Cosmos bipinnatus", "Tripleurospermum inodorum"), ]
    with(c3, plot(jitter(HEAD.D), jitter(RAYS), col=as.numeric(SPECIES), pch=as.numeric(SPECIES), xlab="Diameter of head, mm", ylab="Number of rays"))
    

    Please run this code yourself. Function jitter() adds random noise to variables and shits points allowing to see what is below. However, it is still hard to understand the amount of overplotted values.

    There are also:

    Code \(\PageIndex{10}\) (R):

    comp <- read.table("http://ashipunov.info/shipunov/open/compositae.txt", h=TRUE, sep="\t")
    c3 <- comp[comp$SPECIES %in% c("Anthemis tinctoria", "Cosmos bipinnatus", "Tripleurospermum inodorum"), ]
    with(c3, sunflowerplot(HEAD.D, RAYS))
    with(c3, smoothScatter(HEAD.D, RAYS))
    

    (Try these variants yourself. When you run the first line of code, you will see sunflower plot, developed exactly to such “overplotting cases”. It reflects how many points are overlaid. However, it is not easy to make sunflowerplot() show overplotting separately for each species. The other approach, smoothScatter() suffers from the same problem\(^{[1]}\).)

    To overcome this, we developed PPoints() function (Figure \(\PageIndex{1}\)):

    Code \(\PageIndex{11}\) (R):

    comp <- read.table("http://ashipunov.info/shipunov/open/compositae.txt", h=TRUE, sep="\t")
    c3 <- comp[comp$SPECIES %in% c("Anthemis tinctoria", "Cosmos bipinnatus", "Tripleurospermum inodorum"), ]
    with(c3, plot(HEAD.D, RAYS, type="n", xlab="Diameter of head, mm", ylab="Number of rays"))
    with(c3, PPoints(SPECIES, HEAD.D, RAYS, scale=.9))
    legend("topright", pch=1:3, col=1:3, legend=levels(c3$SPECIES))
    
    Screen Shot 2019-01-09 at 10.33.17 AM.png Figure \(\PageIndex{1}\) Scatterplot which shows density of data points for each species.

    Finally, the answer. As one might see, garden cosmos is really separate from two other species which in turn could be distinguished with some certainty, mostly because number of rays in the yellow chamomile is more than 20. This approach is possible to improve. “Data mining” chapter tells how to do that.

    Answer to the matrix question. While creating matrix ma, we defined byrow=TRUE, i.e. indicated that elements should be joined into a matrix row by row. In case of byrow=FALSE (default) we would have obtained the matrix identical to mb:

    Code \(\PageIndex{12}\) (R):

    m <- 1:4
    ma <- matrix(m, ncol=2, byrow=FALSE)
    ma

    Answer to the sorting exercise. To work with columns, we have to use square brackets with a comma and place commands to the right:

    Code \(\PageIndex{13}\) (R):

    w <- c(69, 68, 93, 87, 59, 82, 72)
    x <- c(174, 162, 188, 192, 165, 168, 172.5)
    sex <- c("male", "female", "male", "male", "female", "male", "male")
    sex.f <- factor(sex)
    m.o <- c("L", "S", "XL", "XXL", "S", "M", "L")
    d <- data.frame(weight=w, height=x, size=m.o, sex=sex.f)
    row.names(d) <- c("Rick", "Amanda", "Peter", "Alex", "Kathryn","Ben", "George")
    d.sorted <- d[order(d$sex, d$height), ]
    d.sorted[, order(names(d.sorted))]

    Please note that we cannot just type order() after the comma. This command returns the new order of columns, thus we gave it our column names (names() returns column names for a given data frame). By the way, sort() would have worked here too, since we only needed to rearrange a single vector.

    References

    1. There is also hexbin package which used hexagonal shapes and color shading.


    1.6.4.9: Answers to exercises is shared under a Public Domain license and was authored, remixed, and/or curated by LibreTexts.

    • Was this article helpful?