\begin{Schunk}
\begin{Sinput}
 merge(x = dat2, y = dat1, by = "Company", all.x = TRUE)
\end{Sinput}
\begin{Soutput}
  Company    Region Earnings
1       A   Midwest   126345
2       B Southeast   492012
3       C      West   234512
4       F     North       NA
\end{Soutput}
\end{Schunk}
