我正在使用R生成一个包含图形和表格的Quarto文档。该文档应呈现为HTML和PDF文件。大部分工作都很顺利。然而，当生成图形时，一些图例被切断了边缘。
这在HTML文档中呈现出一个漂亮的图形：
我尝试使用cowplot中的get_legend从图例中提取图例，然后将1）没有图例的图形（
为了避免这种情况，我正在寻找另一种方法，在打印绘图之前提取整个图例（不切割任何边缘），以便能够将其单独与生成的没有图例的图形组合，以便调整图例的大小以适应应该打印在上面的材料。
提前感谢您的帮助！
theme(legend.text = element_text(size = 6),
legend.title = element_text(size = 11))
这在HTML文档中呈现出一个漂亮的图形：
---
title: "Reproducible Example"
format:
html:
toc: true
pdf:
toc: true
---
This is a reproducible example to present my problem.
```{r}
library(tidyverse)
library(cowplot)
library(ggnewscale)
library(ggtext)
```
## Create data
```{r}
species_df <- tibble(fish_species = factor(x = c("Rainbow trout<br />(<i>Oncorhynchus mykiss</i>)", "Brown trout<br />(<i>Salmo trutta fario</i>)", "Whitefish<br />(<i>Coregonus sp.</i>)", "Grayling<br />(<i>Thymallus sp.</i>)", "Other salmonid<br />(other <i>Salmonidae</i>)", "Common perch<br />(<i>Perca fluviatilis</i>)", "Pikeperch<br />(<i>Sander lucioperca</i>)", "Other percid<br />(other <i>Percidae</i>)", "Koi<br />(<i>Cyprinus carpio</i>)", "Other carp<br />(other <i>Cyprinidae</i>)", "Freshwater ornamental fish<br />(diverse species)", "Saltwater ornamental fish<br />(diverse species)", "Crayfish<br />(<i>Crustacea</i>)", "Missing data"),
levels = c("Rainbow trout<br />(<i>Oncorhynchus mykiss</i>)", "Brown trout<br />(<i>Salmo trutta fario</i>)", "Whitefish<br />(<i>Coregonus sp.</i>)", "Grayling<br />(<i>Thymallus sp.</i>)", "Other salmonid<br />(other <i>Salmonidae</i>)", "Common perch<br />(<i>Perca fluviatilis</i>)", "Pikeperch<br />(<i>Sander lucioperca</i>)", "Other percid<br />(other <i>Percidae</i>)", "Koi<br />(<i>Cyprinus carpio</i>)", "Other carp<br />(other <i>Cyprinidae</i>)", "Freshwater ornamental fish<br />(diverse species)", "Saltwater ornamental fish<br />(diverse species)", "Crayfish<br />(<i>Crustacea</i>)", "Missing data"))) |>
mutate(family = factor(x = case_when(fish_species %in% c("Rainbow trout<br />(<i>Oncorhynchus mykiss</i>)", "Brown trout<br />(<i>Salmo trutta fario</i>)", "Whitefish<br />(<i>Coregonus sp.</i>)", "Grayling<br />(<i>Thymallus sp.</i>)", "Other salmonid<br />(other <i>Salmonidae</i>)") ~ "Salmonid<br />(<i>Salmonidae</i>)",
fish_species %in% c("Common perch<br />(<i>Perca fluviatilis</i>)", "Pikeperch<br />(<i>Sander lucioperca</i>)", "Other percid<br />(other <i>Percidae</i>)") ~ "Percid<br />(<i>Percidae</i>)",
fish_species %in% c("Koi<br />(<i>Cyprinus carpio</i>)", "Other carp<br />(other <i>Cyprinidae</i>)") ~ "Cyprinid<br />(<i>Cyprinidae</i>)",
fish_species %in% c("Freshwater ornamental fish<br />(diverse species)", "Saltwater ornamental fish<br />(diverse species)") ~ "Ornamental fish",
fish_species %in% c("Crayfish<br />(<i>Crustacea</i>)") ~ "Crayfish<br />(<i>Crustacea</i>)",
TRUE ~ "Other"),
levels = c("Salmonid<br />(<i>Salmonidae</i>)", "Percid<br />(<i>Percidae</i>)", "Cyprinid<br />(<i>Cyprinidae</i>)", "Ornamental fish", "Crayfish<br />(<i>Crustacea</i>)", "Other")),
family_sober = factor(x = word(string = family,
sep = "<br />"),
levels = word(string = levels(family),
sep = "<br />")))
quartal <- paste("Quartal", 1:4)
year <- 2020:2022
quartal_df <- crossing(quartal, year) |>
mutate(quartal_year = factor(x = paste(year, quartal, sep = " - "),
levels = sort(paste(year, quartal, sep = " - ")))) |>
arrange(quartal_year) |>
mutate(quartal_num = seq_len(n())) |>
slice_tail(n = 9)
df <- species_df |>
crossing(quartal_df) |>
mutate(number = sample(x = 1:20, size = n(), replace = TRUE))
```
## Create plot
```{r}
# Prepare x axis breaks for ticks
quartal_breaks <- df |>
distinct(quartal_year, year) |>
group_by(year) |>
summarise(n_quartals = n()) |>
mutate(breaks = NA)
for (i in seq_len(nrow(quartal_breaks))) {
quartal_breaks$breaks[i] <- 1 + sum(quartal_breaks$n_quartals[seq_len(i - 1)])
}
#Prepare colours
n_groups <- df |> distinct(family) |> nrow()
colour_group <- RColorBrewer::brewer.pal(name = "Dark2", n = n_groups)
colours <- c()
j <- 0
for (i in seq_len(n_groups)) {
j <- j + 1
n_in_group <- df |> filter(family == levels(df$family)[i]) |> distinct(fish_species) |> nrow()
group_palette <- colorRampPalette(colors = c(colour_group[j], "#FFFFFF"))
group_colours <- group_palette(n_in_group + 1) |> head(-1)
colours <- append(colours, group_colours)
}
colours <- setNames(colours, df |> distinct(fish_species) |> pull(fish_species) |> sort())
#Create plot
fig <- ggplot(data = df) +
geom_line(aes(x = quartal_num, y = number, colour = fish_species))
j <- 0
for (i in df |> distinct(family) |> arrange(family) |> pull()) {
j <- j + 1
fig <- fig +
geom_line(aes(x = quartal_num, y = number, colour = fish_species)) +
scale_colour_manual(aesthetics = "colour",
values = colours,
labels = df |> filter(family == i) |> distinct(fish_species) |> pull(fish_species),
breaks = df |> filter(family == i) |> distinct(fish_species) |> pull(fish_species),
name = i,
guide = guide_legend(title.position = "top", direction = "vertical", order = j)) +
new_scale_colour()
}
fig <- fig +
facet_wrap(vars(family_sober)) +
scale_x_continuous(breaks = quartal_breaks$breaks,
labels = quartal_breaks$year,
minor_breaks = c(1:9)) +
xlab("Time") +
ylab("Number") +
guides(color = guide_legend(override.aes = list(size = 0.8))) +
theme(legend.position = "bottom",
legend.text = element_markdown(size = 6),
legend.key.height = unit(1.8, units = "char"),
legend.margin = margin(t = 0, r = 0, b = 0, l = 0, unit='cm'),
legend.spacing = unit(0.5, units = "char"),
legend.title = element_markdown(size = 11),
axis.text.x=element_text(angle=45, hjust=1, size = 7))
#Prepare plot to print
# fig_legend <- get_legend(fig)
#
# fig_nolegend <- fig +
# theme(legend.position = "none")
#
# fig_print <- plot_grid(fig_nolegend,
# fig_legend,
# ncol = 1,
# rel_heights = c(3, 1))
print(fig)
# print(fig_print)
```
我尝试使用cowplot中的get_legend从图例中提取图例，然后将1）没有图例的图形（
theme(legend.position = "none")）和2）单独的图例（cowplot::get_legend()）组合起来（请参见可重现示例末尾的代码），但问题在于在图例提取过程中会创建虚拟图形，提取出的图例将根据所使用的渲染版本进行裁剪，如下所示：
为了避免这种情况，我正在寻找另一种方法，在打印绘图之前提取整个图例（不切割任何边缘），以便能够将其单独与生成的没有图例的图形组合，以便调整图例的大小以适应应该打印在上面的材料。
提前感谢您的帮助！
