Graphing adult vs newborn size (solution)

Exercise
Output solution 

Attaching package: 'dplyr'
The following objects are masked from 'package:stats':

    filter, lag
The following objects are masked from 'package:base':

    intersect, setdiff, setequal, union
Rows: 1440 Columns: 14
── Column specification ────────────────────────────────────────────────────────
Delimiter: "\t"
chr (4): order, family, Genus, species
dbl (9): mass(g), gestation(mo), newborn(g), weaning(mo), wean mass(g), AFR(...
num (1): refs

ℹ 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. Graph adult mass vs. newborn mass.
Warning: Removed 624 rows containing missing values or values outside the scale range
(`geom_point()`).

  1. Graph adult mass vs. newborn mass, with both axes scaled logarithmically.
Warning: Removed 624 rows containing missing values or values outside the scale range
(`geom_point()`).

  1. Graph adult mass vs. newborn mass, log-scaled, with data colored by order.
Warning: Removed 624 rows containing missing values or values outside the scale range
(`geom_point()`).

  1. Use facet_wrap to create subplot for each order.
Warning: Removed 624 rows containing missing values or values outside the scale range
(`geom_point()`).

  1. use geom_smooth to fit a linear model to each order.
`geom_smooth()` using formula = 'y ~ x'
Warning: Removed 624 rows containing non-finite outside the scale range
(`stat_smooth()`).
Warning in qt((1 - level)/2, df): NaNs produced
Warning: Removed 624 rows containing missing values or values outside the scale range
(`geom_point()`).
Warning in max(ids, na.rm = TRUE): no non-missing arguments to max; returning
-Inf