R 更改提取的图例中的标题

我有一个数据框：

df1 = data.frame(Time = rep(0.5:9.5, each = 10), RoiID = rep(1:10, 10), Diameter = runif(100, 5.0, 7.5),Time.hours=rep(c(1,2)))

我想从绘图中提取图例，然后通过“grid.arrange”放到另一个绘图中

p1=ggplot（数据=子集（df1，df1$Time.hours==1），aes（x=系数（roid），y=时间，fill=直径））+
theme_minimal（）+坐标固定（比率=1/2）+
geom_瓷砖（颜色=NA，宽度=1.5，高度=1）+
刻度填充梯度（低=“黑色”，高=“白色”，极限=c（最小值（df1$直径），最大值（df1$直径））+
主题（图例方向=“水平”）
g_legend如果我理解正确，您只需将“F49直径”添加到
scale\u fill\u gradient

所以你的代码看起来像这样

p1=ggplot(data=subset(df1,df1$Time.hours==1), aes(x=factor(RoiID), y=Time, fill = Diameter)) + 
  theme_minimal()  + coord_fixed(ratio=1/2) + 
  geom_tile(colour = NA, width =1.5 , height = 1)+
  scale_fill_gradient("F49 Diameter",low="black",high="white",limits=c(min(df1$Diameter),max(df1$Diameter)))+ 
  theme(legend.direction="horizontal") 

还有你的传奇

library(gridExtra)
grid.arrange(g_legend(p1))

将命名为“F49直径”

我没有看到随附的图像。嗨，米哈，很抱歉我忘记添加图像了。现在可以用了，这就是我需要的。非常感谢米哈，我很乐意帮忙。
library(gridExtra)
grid.arrange(g_legend(p1))