For the following questions we work with the built-in dataset longley. This dataset contains economic regression data of the US for several years:

 

     GNP.deflator     GNP Unemployed Armed.Forces Population Year Employed
1947         83.0 234.289      235.6        159.0    107.608 1947   60.323
1948         88.5 259.426      232.5        145.6    108.632 1948   61.122
1949         88.2 258.054      368.2        161.6    109.773 1949   60.171
1950         89.5 284.599      335.1        165.0    110.929 1950   61.187
1951         96.2 328.975      209.9        309.9    112.075 1951   63.221
1952         98.1 346.999      193.2        359.4    113.270 1952   63.639
1953         99.0 365.385      187.0        354.7    115.094 1953   64.989
1954        100.0 363.112      357.8        335.0    116.219 1954   63.761
1955        101.2 397.469      290.4        304.8    117.388 1955   66.019
1956        104.6 419.180      282.2        285.7    118.734 1956   67.857

 

Question: Now, use lattice graphics to make a scatterplot of the variable Employed in function of the variable GNP. Use full circles as the plotting symbol and color the points red. Store the graph in an object called p1.

 

Note: The command as.grob() from the ggplotify package enables Dodona to check your result. Just put your ordinary graphical command(s) between the two comments.