## Map of the locations of the sites
# Geographic coordinates x and y from the spa data frame
plot(spa,
asp = 1,
type = "n",
main = "Site Locations",
xlab = "x coordinate (km)",
ylab = "y coordinate (km)"
)
# Add a blue line connecting the sites along the Doubs River
lines(spa, col = "light blue")
# Add the site labels
text(spa, row.names(spa), cex = 0.8, col = "red")
# Add text blocks
text(68, 20, "Upstream", cex = 1.2, col = "red")
text(15, 35, "Downstream", cex = 1.2, col = "red")
0
5 0
1 0 0
1 5 0
20
40
60
80
100
Site Locations
x coordinate (km)
y coordinate (km)
21
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Upstream
Downstream
Fig. 2.2 Map of the 30 sampling sites along the Doubs River. Sites 1 and 2 are very close to each
other
2.2 Data Exploration
15