# Graphing Data From Multiple Tables (Graphing)

An experiment in Kenya has been exploring the influence of large herbivores on plants.

Check to see if `ACACIA_DREPANOLOBIUM_SURVEY.txt`

and `TREE_SURVEYS.txt`

is in your workspace.
If not, download `ACACIA_DREPANOLOBIUM_SURVEY.txt`

and `TREE_SURVEYS.txt`

Install the `readr`

package and use `read_tsv`

to read in the data using the following commands:

```
library(readr)
acacia <- read.csv("ACACIA_DREPANOLOBIUM_SURVEY.txt", sep="\t", na.strings = c("dead"))
trees <- read_tsv("TREE_SURVEYS.txt",
col_types = list(HEIGHT = col_double(),
AXIS_2 = col_double()))
```

We want to compare the circumference to height relationship in acacia and to the same relationship for trees in the region. These data are stored in two different tables. Make a graph with the relationship between `CIRC`

and `HEIGHT`

for the trees as gray circles in the background and the same relationship for acacia as red circles plotted on top of the grah circles. Scale the both axes logarithmically. Inlude linear models for both sets of data. Provide clear labels for the axes.

*Expected outputs for Graphing Data From Multiple Tables:*

*1*