因此，我尝试使用ggpattern包在R中可视化我的数据。问题是，我似乎无法使用guides函数编辑图例的标题。在我进一步讨论之前，让我显示数据

tag Center  n n_tag      persen
1  lisan     же 11  2142 0.005135387
2 medrus     же  6  2588 0.002318393
3 medsos     же 14  2778 0.005039597
4  puisi     же 15  2622 0.005720824
5  lisan     ну 39  2142 0.018207283
6  puisi     ну 13  2622 0.004958047

字符串
这是使用ggpattern包的可视化：x1c 0d1x
正如你所看到的，图例的标题目前是“中心”。我想把它改成“传奇”。
到目前为止，这是我尝试使用的代码，但无济于事：

judul <- paste("Sebaran leksikon", kata_difilter, "\n", "dalam Korpus Nasional Rusia") 
subjudul <- paste("Jumlah token: ", ftj)
viz_akhir <- ggplot(df_viz, aes(tag, persen, fill=Center)) +
  geom_bar_pattern(stat="identity",
                   position=position_dodge(),
                   pattern_color = NA,
                   pattern_fill = "black",
                   pattern_density = 0.25,
                   pattern_spacing = 0.010,
                   pattern_key_scale_factor = 0.70,
                   aes(pattern=Center)) +
  scale_fill_grey(start = 0, end = .9) + #untuk b&w
  theme_light() +
  labs(title=judul, subtitle=subjudul) +
  xlab("Tag korpus") + ylab("Persentase dalam korpus") +
  guides(pattern=guides_legend(title="Legenda"))
  theme(plot.title=element_text(hjust=0.5, face="bold", size=15),
        plot.subtitle=element_text(hjust=0.5, size=8))
print(viz_akhir)

型
这是该代码的可视化：

相反，它会创建一个新的图例，而不是从ggpattern可视化中更改图例。
有谁知道答案吗？提前感谢！