我正在try 使用ggExtra::ggMarginal()添加侧面的密度直方图.它工作正常，但背景 colored颜色 是白色，而不是我想要的"#fffdf7" colored颜色 .我似乎无法更改ggMarginal的背景 colored颜色 以匹配图的 colored颜色 .我希望整个图是相同的"#fffdf7" colored颜色 ，而不是ggMarginal与ggplot相交处的白线.
Any ideas?
library(tidyverse)
library(readxl)
library(summarytools)
library(ggExtra)
library(ggtext)
tr <- ggplot(mtcars) +
aes(x = mpg, y = disp, color = as.character(cyl), shape = as.character(cyl)) +
geom_point(size = 3) +
geom_smooth(method = "lm",
se = TRUE,
show.legend = FALSE,
alpha = 0.1) +
scale_color_manual(values = c("#325756FF", "#7D9FC2FF", "#C582B2FF", "#51806AFF", "#4D5F8EFF", "#A092B7FF")) +
labs(
# Main title label
# New plot <b style='color:#009E73'>title</b>
title = "<i> Mtcars</i> Vizualization Project",
# Subtitle label
subtitle = "Model for <b style='color:#325756FF'>4</b>, <b style='color:#7D9FC2FF'>6</b>, and <b style='color:#C582B2FF'>8</b> Cylinders",
# X-axis label
x = "MPG",
# Y-axis label
y = "Dispersion",
# Caption label
caption = "Sources: mtcars.",
# Legend titles
shape = "Cylinder",
color = "Cylinder",
fill = "Cylinder"
) +
theme(
# Legend location, formatting, and background
legend.position = "bottom",
legend.title = element_text(
family = "",
face = "bold",
size = 16,
color = "grey30"
),
# Legend baclground fill and ourline (color)
legend.background = element_blank(),
#
legend.box.background = element_blank(),
# Legend box for shapes
legend.key = element_blank(),
# Overall text formatting
text = element_text(
family = "",
face = "bold",
size = 16,
color = "grey30"
),
# Plot title formatting
plot.title = element_markdown(
lineheight = 1.1,
family = "",
size = 20,
face = "bold",
hjust = 0.5,
color = "grey30"
),
# Plot subtitle formatting
plot.subtitle = element_markdown(
family = "",
size = 14,
hjust = 0.5,
face = "plain",
color = "grey30"
),
# Plot caption formatting
plot.caption = element_text(
family = "",
size = 10,
face = "plain",
color = "grey30"
),
# Axes text angle and formatting
axis.text.x = element_text(
angle = 0,
face = "bold"
),
axis.text.y = element_text(
angle = 0,
face = "bold"
),
# Overall (x and y) axes ticks formatting
axis.ticks = element_blank(),
# Overall (x and y) axes lines formatting
axis.line = element_line(
color = "#b4aea9"
),
# Panel grid formatting
panel.grid = element_line(
color = "grey95"
),
# Minor overall (x and y) panel grid formatting
panel.grid.minor = element_blank(
),
# Major overall (x and y) panel grid formatting
panel.grid.major = element_line(
linetype = "solid"
),
# Panel background (what is inside axes)
panel.background = element_rect(
fill = "#fffdf7",
color = "#fffdf7"
),
# Plot background (what is outside axes)
plot.background = element_rect(
fill = "#fffdf7",
color = "#fffdf7"
)
)
tr %>%
ggMarginal(
groupColour = TRUE,
groupFill = TRUE
)
