R Notebook

library(dplyr)

## 
## 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

library(ggplot2)

##FIELD 5

## `geom_smooth()` using formula = 'y ~ x'

## Warning: Removed 403 rows containing non-finite values (`stat_smooth()`).

## Warning: Removed 403 rows containing missing values (`geom_point()`).

##FIELD 6

## `geom_smooth()` using formula = 'y ~ x'

## Warning: Removed 568 rows containing non-finite values (`stat_smooth()`).

## Warning: Removed 568 rows containing missing values (`geom_point()`).

##FIELD 454

## `geom_smooth()` using formula = 'y ~ x'

## Warning: Removed 279 rows containing non-finite values (`stat_smooth()`).

## Warning: Removed 279 rows containing missing values (`geom_point()`).

##FIELD 4610

## `geom_smooth()` using formula = 'y ~ x'

## Warning: Removed 1129 rows containing non-finite values (`stat_smooth()`).

## Warning: Removed 1129 rows containing missing values (`geom_point()`).

##FIELD 4663

## `geom_smooth()` using formula = 'y ~ x'

## Warning: Removed 625 rows containing non-finite values (`stat_smooth()`).

## Warning: Removed 625 rows containing missing values (`geom_point()`).