From 3ad417a61f5335902a7f829862b980e4a8db0134 Mon Sep 17 00:00:00 2001 From: tobiste <73840881+tobiste@users.noreply.github.com> Date: Wed, 4 Dec 2024 03:03:20 +0000 Subject: [PATCH] =?UTF-8?q?Deploying=20to=20gh-pages=20from=20@=20tobiste/?= =?UTF-8?q?geoprofiler@4e86b4bd479b1341b2b4c8274972071e740ec782=20?= =?UTF-8?q?=F0=9F=9A=80?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- articles/geoprofiler.html | 19 ++++++++++-------- .../figure-html/profile_plot2-1.png | Bin 216958 -> 222821 bytes index.html | 19 ++++++++++++++++-- pkgdown.yml | 2 +- search.json | 2 +- 5 files changed, 30 insertions(+), 12 deletions(-) diff --git a/articles/geoprofiler.html b/articles/geoprofiler.html index 170904b..6dc6073 100644 --- a/articles/geoprofiler.html +++ b/articles/geoprofiler.html @@ -197,14 +197,17 @@

Plot data along profile 
-ggplot(quakes_profile, aes(X/1000, depth, color = mag, size = abs(Y)/1000, alpha = abs(Y)/1000)) +
-  geom_point() +
-  scale_color_viridis_c("Richter Magnitude", option = "A") +
-  scale_size_continuous("Distance from profile (km)", range = c(3, .1)) +
-  scale_alpha_continuous("Distance from profile (km)", range = c(1, .1)) +
-  scale_y_reverse() +
-  scale_x_continuous(guide = guide_axis(position = "top")) +
-  labs(x = "Distance along profile (km)", y = "Depth (km)")
+ quakes_profile |> + arrange(desc(abs(Y))) |> + ggplot(aes(X / 1000, depth, color = mag, size = abs(Y) / 1000, alpha = abs(Y) / 1000)) + + geom_point() + + scale_color_viridis_c("Richter Magnitude", option = "A") + + scale_size_continuous("Distance from profile (km)", range = c(3, .1)) + + scale_alpha_continuous("Distance from profile (km)", range = c(1, .1)) + + scale_y_reverse() + + scale_x_continuous(guide = guide_axis(position = "top")) + + labs(x = "Distance along profile (km)", y = "Depth (km)") + + coord_cartesian(expand = FALSE)