An experiment in Kenya has been exploring the influence of large herbivores on plants.
Download the data on Trees for the
experiment
into a data subdirectory. There are a number of problematic entries in this data so use the readr package to import it:
library(readr)
trees <- read_tsv("data/TREE_SURVEYS.txt")
trees data frame named canopy_area that contains
the estimated canopy area calculated as the value in the AXIS_1 column
times the value in the AXIS_2 column. Print out the SURVEY, YEAR,
SITE, and canopy_area columns from data frame.canopy_area on the x axis and HEIGHT on the y
axis. Color the points by TREATMENT and plot the points for each value in
the SPECIES column in a separate subplot. Label the x axis “Canopy Area
(m)” and the y axis “Height (m)”. Make the point size 2.AXIS_1
and AXIS_2 that are over 20 and update the data frame. Then remake the graph.group_by, summarize, and n to make a data frame with YEAR,
SPECIES, and an abundance column that has the number of individuals in
each species in each year. Print out this data frame.geom_line in addition to
geom_point) with YEAR on the x axis and abundance on the y axis with
one subplot per species. To let you seen each trend clearly let the scale for
the y axis vary among plots by adding scales = "free_y" as an optional argument to facet_wrap.