Bar Plots with two variables - r

Question

I am trying to create a bar plot, with both base r plotting and geom_point plot with ggplot to visualize two variables by a column of factors.
I have created a datasheet that uses r-squared values for Species and Elasmobranch variables calculated using each factor.
Graph <- structure(list(Factors = structure(c(5L, 4L, 11L, 6L, 8L, 10L
), .Label = c("Activity", "Bait", "Depth", "Location", "Marine Park",
"Month", "Sea State", "Start Time", "Substrate", "Swell", "Year"
), class = "factor"), Species = c(0.1064, 0.5806, 0.05974, 0.07888,
0.1325, 0.05725), Elasmobranchs = c(0.02658, 0.4074, 0.02072,
0.1419, 0.1065, 0.08661)), row.names = c(NA, 6L), class = "data.frame")
ggplot(data = Graph, aes(x = Species, y = Factors, colour = Factors)) +
geom_point(size = 3) +
xlab("Species Richness") +
ylab("Factors") +
theme_classic()
barplot(Species~Factors, xlab="Factors", ylab="R-Sqaured Values",
horizontal = TRUE,
main = "Factor correlations with species richness", frame.plot=FALSE)
barplot(Elasmobranchs~Factors, xlab="Factors", ylab="R-Sqaured Values",
horizontal = TRUE,
main = "Factor correlations with species richness", frame.plot=FALSE)
These ggplot and standard plots work nicely, however I would simply like to add Elasmobranchs on the x-axis alongside Species and have the result displayed in decreasing order. Is there a simple way to do this by adding a small line of code to my existing plots?
Thank you for any assistance.

Answer 1

If I understood correctly what you're trying to do, you can reshape your data frame using pivot_longer (former gather) and then differentiate between Species and Elasmobranchs through shape. You can reverse the scale using scale_x_reverse.
library(tidyverse)
ggplot(data = Graph %>% pivot_longer(-Factors),
aes(x = value, y = Factors, colour = Factors, shape=name)) +
geom_point(size = 3) +
xlab("Species Richness") +
ylab("Factors") +
scale_x_reverse() +
theme_classic()
EDIT:
In case you're working with an older version of tidyr that doesn't have pivot_longer function, you can use gather (from the same package).
ggplot(data = Graph %>% gather("name", "value", -Factors),
aes(x = value, y = Factors, colour = Factors, shape=name)) +
geom_point(size = 3) +
xlab("Species Richness") +
ylab("Factors") +
scale_x_reverse() +
theme_classic()
EDIT 2:
To reorder the y-axis based on the values of x-axis.
ggplot(data = Graph %>% gather("name", "value", -Factors),
aes(x = value, y = fct_reorder(Factors, value), colour = Factors, shape=name)) +
geom_point(size = 3) +
xlab("Species Richness") +
ylab("Factors") +
theme_classic()