When I run this and the plot comes up, the order of my x axis labels (column titles) get rearranged. How do i maintain the order that i created in the df?
Here is my dataset and code, with values hidden:
library(tidyverse)
library(cowplot)
df <- structure(list(Number_Behavior_1 = c(1, 2, 3, 4, 5, 6, 7, 8, 9),
Number_Behavior_2 = c(1, 2, 3, 4, 5, 6, 7, 8, 9),
Number_Behavior_3 = c(1, 2, 3, 4, 5, 6, 7, 8, 9),
Number_Behavior_4 = c(1, 2, 3, 4, 5, 6, 7, 8, 9),
Number_Behavior_5 = c(1, 2, 3, 4, 5, 6, 7, 8, 9),
Number_Behavior_6 = c(1, 2, 3, 4, 5, 6, 7, 8, 9),
Number_Behavior_7 = c(1, 2, 3, 4, 5, 6, 7, 8, 9),
Number_Behavior_8 = c(1, 2, 3, 4, 5, 6, 7, 8, 9),
Number_Behavior_9 = c(1, 2, 3, 4, 5, 6, 7, 8, 9),
Number_Behavior_10 = c(1, 2, 3, 4, 5, 6, 7, 8, 9)),
class = c("spec_tbl_df", "tbl_df", "tbl", "data.frame"), row.names = c(NA, -9L))
df_Number <- df %>%
pivot_longer(
cols = 1:10,
names_to = "names",
values_to = "values"
) %>%
filter(grepl('Number', names))
plot_Number <- ggplot(df_Number, aes(x=factor(names), y=values)) +
geom_point(stat = "identity") +
geom_smooth(method = 'lm', formula = y~x)+
xlab("Number") +
ylab("Value") +
theme_bw()
plot_grid(plot_Number, labels = "AUTO")