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)
##Dimicks - Corn 
## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 3507 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 3507 rows containing missing values (`geom_point()`).

model <- lm(Tgt_Rate_k ~ Yld_Vol_Dr, Dimicks)
summary(model)
## 
## Call:
## lm(formula = Tgt_Rate_k ~ Yld_Vol_Dr, data = Dimicks)
## 
## Residuals:
##     Min      1Q  Median      3Q     Max 
## -32.907  -1.670  -0.673   2.331   8.579 
## 
## Coefficients:
##              Estimate Std. Error t value Pr(>|t|)    
## (Intercept) 2.113e+01  3.047e-02  693.65   <2e-16 ***
## Yld_Vol_Dr  3.660e-03  1.833e-04   19.97   <2e-16 ***
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
## 
## Residual standard error: 2.971 on 18275 degrees of freedom
##   (3449 observations deleted due to missingness)
## Multiple R-squared:  0.02135,    Adjusted R-squared:  0.0213 
## F-statistic: 398.7 on 1 and 18275 DF,  p-value: < 2.2e-16

##Feedlot - Corn

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 59 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 59 rows containing missing values (`geom_point()`).

##Joubert

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 621 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 621 rows containing missing values (`geom_point()`).

##MarvesPlaceEast - Corn

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 6129 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 6129 rows containing missing values (`geom_point()`).

##10 Acres - Sorghum

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 191 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 191 rows containing missing values (`geom_point()`).

##AJ - Sorghum

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 189 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 189 rows containing missing values (`geom_point()`).

##Hudek - Sorghum

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 9841 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 9841 rows containing missing values (`geom_point()`).

##Lauries Field - Sorghum

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 30798 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 30798 rows containing missing values (`geom_point()`).

##LShape - Sorghum

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 191 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 191 rows containing missing values (`geom_point()`).

##MarvesPlaceWest - Sorghum

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 3988 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 3988 rows containing missing values (`geom_point()`).

##Nydams - Sorghum

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 8184 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 8184 rows containing missing values (`geom_point()`).

##SouthPivot - Sorghum

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 1370 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 1370 rows containing missing values (`geom_point()`).

##TopField - Sorghum

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 1377 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 1377 rows containing missing values (`geom_point()`).

##VanderWest - Sorghum

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 2696 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 2696 rows containing missing values (`geom_point()`).

##Harrison - Soybeans

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 3488 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 3488 rows containing missing values (`geom_point()`).

##JimFishEast - Soybeans

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 6979 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 6979 rows containing missing values (`geom_point()`).

##JimFishWest - Soybeans

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 5013 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 5013 rows containing missing values (`geom_point()`).

##JimFishSouth - Soybeans

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 1087 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 1087 rows containing missing values (`geom_point()`).

##MaasQuarter - Soybeans

## `geom_smooth()` using formula = 'y ~ x'
## Warning: Removed 4823 rows containing non-finite values (`stat_smooth()`).
## Warning: Removed 4823 rows containing missing values (`geom_point()`).