Commit 0ef2791f authored by Renaud Lancelot's avatar Renaud Lancelot 🌍
Browse files

Minor changes in the European analyis

parent 54b77a39
Pipeline #15367 passed with stage
in 3 minutes and 22 seconds
......@@ -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,
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment