I need an R programmer tonight

Using the template below as a reference, create a scatterplot of the unemployment rate
(UNRATE) versus the job vacancy rate (JTSJOR). This is known as the Beveridge Curve.
Also, print the correlation coefficient between them. Export the graph to pdf and png.
To do this you need to install the package called ggpubr and then add that using the
library() command at the top of your code. That will enable you to run stat cor() to get the
correlation coefficient.
You will need to merge the two series using the merge command and note that the two
series have different lengths. So
merged <- merge(Var1, Var2, all=FALSE)
The code for producing the scatter plot using ggplot is:
scatter_plot <- ggplot(merged,aes(x=UNRATE,y=JTSJOR)) + geom_point() +
stat_cor(label.x=12, label.y=7) +
....
The dots above mean that you fill in the rest, title, axis names, etc. Name the graph Beveridge Curve and the labels are unemployment rate and vacancy rate. The label commands
in stat cor() just move the correlation to a different spot.