Is this what you're looking for?
library(ggplot2)
library(ggthemes)
DF <- structure(list(Chr = c("2L", "2L", "2L", "2L", "2L", "2L"), Pos = c(
1,
2, 3, 4, 5, 6
), variable = c("d1", "d1", "d1", "d1", "d1", "d1"), value = c(
-0.488857515, 0.295529037, 0.003036192, -1.113652386,
-0.668819366, -1.30278715
), Stock = c(
"Control", "Control", "Control",
"Bunny", "Bunny", "Bunny"
)), class = c(
"spec_tbl_df", "tbl_df",
"tbl", "data.frame"
), row.names = c(NA, -6L), spec = structure(list(
cols = list(Chr = structure(list(), class = c(
"collector_character",
"collector"
)), Pos = structure(list(), class = c(
"collector_double",
"collector"
)), variable = structure(list(), class = c(
"collector_character",
"collector"
)), value = structure(list(), class = c(
"collector_double",
"collector"
)), Stock = structure(list(), class = c(
"collector_character",
"collector"
))), default = structure(list(), class = c(
"collector_guess",
"collector"
)), skip = 1L
), class = "col_spec"))
p <- ggplot(DF, aes(Pos, value, group = Stock)) +
geom_line(aes(color = Stock), size = 1) +
facet_grid(variable ~ Chr, scales = "free") + ############### use scales = "free" for individual axes length
scale_color_brewer(palette = "Reds") + # put palette="Paired" for blues
# scale_color_brewer(palette="Paired") +
theme_clean() +
theme(
title = element_text(size = 20, face = "bold"),
axis.title.x = element_text(size = 16, face = "bold"),
axis.text.x = element_text(size = 14),
axis.title.y = element_text(size = 16, face = "bold"),
axis.text.y = element_text(size = 14),
legend.text = element_text(size = 14),
aspect.ratio = 0.8,
legend.position = "right",
panel.background = element_rect(fill = "white", colour = "grey50"),
axis.line = element_line(size = 3, colour = "grey80"),
axis.text = element_text(size = 10),
axis.ticks.length.y = unit(.25, "cm"),
axis.ticks.length.x = unit(.25, "cm")
)
p

Created on 2021-01-13 by the reprex package (v0.3.0.9001)