# Load packages # Define vector with the values that you would like to see plotted at desired lat\/long. Your csv input file loaded as dataframe (Var) must feature the following columns (Site is optional, but useful for labeling) # Define number of colours to be used in plot # Define colour palette to be used # Define colour intervals and colour code variable for plotting # Plot the map with desired lat\/long coordinates and data points with colour coding and legend And here is the result:<\/p>\n Since I look at mercury concentrations at different measurement stations in North America, visualization using a map with values (of your favourite parameter) plotted as colour-coded\u00a0circles is quite useful. After some trial & error, here is some very basic code to do this – I have adapted a recipe from the Dept. of Geography, University … Continue reading Mapping points<\/span><\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[6,4],"tags":[418,417,419,420,511],"class_list":["post-893","post","type-post","status-publish","format-standard","hentry","category-r","category-research","tag-colcode","tag-colour","tag-maps-library","tag-measurement-stations","tag-r"],"_links":{"self":[{"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=\/wp\/v2\/posts\/893","targetHints":{"allow":["GET"]}}],"collection":[{"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=893"}],"version-history":[{"count":4,"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=\/wp\/v2\/posts\/893\/revisions"}],"predecessor-version":[{"id":1672,"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=\/wp\/v2\/posts\/893\/revisions\/1672"}],"wp:attachment":[{"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=893"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=893"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/www.nomad.priv.at\/researchblog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=893"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\nlibrary(maps)
\nlibrary(maptools)
\nlibrary(RColorBrewer)
\nlibrary(classInt)
\nlibrary(gpclib)
\nlibrary(mapdata)<\/code><\/p>\n
\nSite,Para,Lat,Long
\nplotvar <- Var$Para<\/code><\/p>\n
\nnclr <- 7<\/code><\/p>\n
\nplotclr <- brewer.pal(nclr,\"RdPu\")<\/code><\/p>\n
\nclass <- classIntervals(plotvar, nclr, style = \"pretty\")
\ncolcode <- findColours(class, plotclr)<\/code><\/p>\n
\nmap(\"worldHires\", xlim = c(-125, -55), ylim = c(30, 83))
\npoints(Var$Long, Var$Lat, pch = 16, col= colcode, cex = 2)
\nlegend(\"bottomright\", legend = names(attr(colcode, \"table\")), fill = attr(colcode, \"palette\"), cex = 0.7, bty = \"n\")<\/code><\/p>\n![\"r_plotting\"](\"http:\/\/www.nomad.priv.at\/researchblog\/wp-uploads\/r_plotting-230x300.jpg\")
<\/a><\/p>\n
\n<\/span><\/div>\n","protected":false},"excerpt":{"rendered":"