Minor changes in the European analyis

src/Covid19MortalityEurope.Rmd

@@ -1035,7 +1035,7 @@ identify clusters of countries sharing similar mortality patterns
 (fig. \@ref(fig:pca)).
 
 
-```{r pca, include=T, fig.height=7, fig.cap = cap}
+```{r pca, include=T, fig.height=7, out.width="80%", fig.cap = cap}
 cap <- paste0(
     "Country clusters according to the features of their mortality pattern. ",
     "A: eigen values of the principal component analysis (PCA); B: ",
@@ -1216,8 +1216,6 @@ for(i in seq_along(ocovmap3@data$class)){
     ocovmap3$class[i] <-  xclass
 }
 
-ocovmap3$name[3]
-
 ocovmap3$class <- factor(ocovmap3$class)
 num <- sprintf(seq(length(onam3)), fmt = "%02d")
 
@@ -1242,10 +1240,10 @@ spplot(ocovmap3, zcol = "class",
        col.regions = colop,
        xlim = e[1:2], ylim = e[3:4] + c(8e5, 0),
        scales = list(draw = F),
-       key = list(corner = c(0, 0),
+       key = list(corner = c(1, 1),
                   background = "transparent",
-                  x=.005, y = .005,
-                  text = list(labs, cex = cex-.1)),
+                  x=.995, y = .995,
+                  text = list(labs, cex = cex-.15)),
        colorkey = list(space = "bottom",
                        height = .4, width = .8,
                        at = (1:(k+1)) -.5,