RDS文件非常适合在R文件之间共享R对象，而且当我有一个特别复杂的布局时，我经常在R文件之间共享ggplot对象，通常这样做效果很好。
我的抱怨是，如果ggplot（）函数调用包含一个全局变量，那么当你将绘图保存为.rds文件时，这个变量就会丢失，所以当你将绘图加载到一个新的R文件中时，信息就会丢失。
有人知道解决这个问题的聪明方法吗？我提出的解决方法很笨拙。而且我真的不想退回到默认的保存（）和load（）函数。
举几个例子怎么样？我将从一个有效的块开始。然后我将展示如何使用全局变量。

注意：这段代码会在你当前的工作目录中放置一些垃圾文件。请注意。

# Preliminaries -------------------------------------------
library(tibble)
library(magrittr)
library(ggplot2)

# Fake data
x <- 1:5 %>% as.factor()
y <- rnorm(5)
df <- data_frame(x, y)

# First an example that works -----------------------------
# Notice how the color palette is 
# defined within scale_fill_manual()
this_plot_works <- ggplot(df, aes(x, y, fill = x)) + 
  geom_bar(stat = "identity") + 
  scale_fill_manual(values = c("red", "blue", "orange", "green", "purple"))

# Save plot to file
saveRDS(this_plot_works, file = "this_plot_works.rds")

# To simulate the behavior of moving to a new R file
# let's remove the ggplot object from the environment.
rm(this_plot_works)

# Now, pretending we're in a new R file, load the plot
this_plot_works_reloaded <- readRDS("this_plot_works.rds")
this_plot_works_reloaded

现在我将调色板指定为一个全局变量，并在ggplot函数中调用它（我猜，从技术上讲，它是在'scale_fill_manual（）'函数中调用的，但您知道我的意思）。

# Second example that won't work --------------------------
# Specify color palette as a global variable
col_pal <- c("red", "blue", "orange", "green", "purple")

# Plot
# Note that the color palette is tied to the global variable
this_plot_wont_work <- ggplot(df, aes(x, y, fill = x)) + 
  geom_bar(stat = "identity") + 
  scale_fill_manual(values = col_pal) 

# Save the plot to file
saveRDS(this_plot_wont_work, file = "this_plot_wont_work.rds")

# Again, let's remove the key global variables
# and pretend we're switching to a new R file
rm(this_plot_wont_work, col_pal)

# Load the plot
this_plot_wont_work_reloaded <- readRDS("this_plot_wont_work.rds")
this_plot_wont_work_reloaded