我正在尝试使用facet_wrap
将文件名添加到通过ggplot获得的绘图区域之外。我很确定我在这篇文章中找到了解决方案:
Add filename or other annotation to ggplot figures。但是,将解决方案应用于我的问题会导致图像失真。
生成此代码的代码在这里:
require("gridExtra")
library(tidyverse)
df <- data.frame(x =runif(100, 1, 10),
y = runif(100, 1, 10),
myfacet = c("one", "two"))
p <- ggplot(data = df,
aes(x = x,
y = y)) +
geom_point() +
facet_wrap(~myfacet)
print(p)
script.name <- "myscript.R"
sub.label = textGrob(script.name,
gp=gpar(fontsize=6),
x = unit(1, "npc"),
hjust = 1,
vjust = 1)
ggsave(filename="../plots/myplot.png",
plot = arrangeGrob(p,
sub = sub.label,
clip = FALSE))
如果我只是使用
ggsave(filename="../plots/myplot2.png",
plot = p)
请注意,我需要一个可以在各个方面使用的解决方案。 任何人都可以提示发生了什么事吗?谢谢!
答案 0 :(得分:1)
grid.arrange(p, bottom = sub.label)