R 自定义标题并将文本添加到方面？

有人能帮我编辑我的条形图标题吗？我试图在facet中编辑条形图的标题，但不知怎么的，它不起作用，而且我想在每个条形图中添加文本，比如“a”、“b”或“ab”（类似于统计解释）。 这是我的密码：

df <- data.frame(
H1 = c(6.36, 3.03, 6.85, 4.07, 4.69, 6.27, 6.67, 3.11, 5.07, 6.14, 5.93, 6.49),
H2 = c(5.15, 5.00, 5.71, 5.50, 4.99, 5.81, 6.05, 5.76, 5.28, 5.69, 5.69, 5.06),
H3 = c(3.85, 5.13, 4.99, 4.91, 5.01, 5.73, 5.77, 5.94, 5.57, 5.35, 6.00, 4.39),
H4 = c(3.84, 4.80, 5.15, 4.85, 4.99, 5.73, 5.77, 5.45, 5.44, 5.41, 5.81, 4.46),
H5 = c(4.08, 5.17, 4.77, 5.03, 5.00, 5.49, 5.49, 5.80, 5.51, 5.18, 5.76, 4.60),
H6 = c(4.35, 5.59, 5.59, 4.83, 5.52, 5.63, 5.85, 5.74, 5.66, 5.19, 5.79, 4.84), fontface = c("bold"),
names = c("Russian Banana", "Vermillion", "Atlantic", "POR12PG28-3",
           "Valery", "Rio Colorado", "CO99076-6R", "Purple Majesty",
           "AC99330-1P/Y", "CO05068-1RU", "Masquerade", "Canela Russet"),
specie = c(rep("Appearance", 12), rep("Aroma" , 12), rep("Flavor" , 12),
            rep("Overall" , 12), rep("Aftertaste", 12), rep("Texture", 12)),
condition = rep(c("Russian Banana", "Vermillion", "Atlantic", "POR12PG28-3",
                   "Valery", "Rio Colorado", "CO99076-6R", "Purple Majesty",
                   "AC99330-1P/Y", "CO05068-1RU", "Masquerade", "Canela Russet") , 6))
df <- df %>% 
  pivot_longer(starts_with("H"))

nameframe <- enframe(unique(df$name))
specieframe <- enframe(unique(df$specie))
specie.labs <- c("Appearance", "Aroma", "Flavor", "Overall", "Aftertaste", "Texture")
names(specie.labs) <- c("H1", "H2", "H3", "H4", "H5", "H6")


(filtframe <- inner_join(nameframe, specieframe, by = "name") %>% mutate(
  filtcont =
    paste0(
      "(name=='", value.x,
      "' & ", "specie=='", value.y, "')"
    )
))

(filtcond <- paste0(filtframe$filtcont, collapse = " | "))

df_filt <- filter(
  df,
  !!rlang::parse_expr(filtcond)
)
ggplot() +
  geom_col(data = df_filt, mapping = aes(x = names, y = value, fill = specie), position = "dodge") +
  coord_flip() +
  labs(y = "", x = "") + theme(legend.title = element_blank()) +
  scale_fill_discrete(breaks=c("Appearance","Aroma","Flavor", "Overall", "Aftertaste", "Texture")) +
  facet_wrap(vars(name), labeller = labeller(specie = specie.labs))

---

df创建一个
labeller
如下：

map\u物种%
pivot_更长（以“H”开头），名称到=“H_name”）%>%
ggplot（aes（x=名称，y=值，填充=种类））+
几何坐标（位置=“道奇”）+
coord_flip（）+
实验室（y=“”，x=“”）+
主题（legend.title=element\u blank（））+
比例\填充\离散(
中断=c（“外观”、“香气”、“风味”、“整体”、“回味”、“质地”）
) +
刻面缠绕（~h_名称，贴标者=贴标者（h_名称=地图物种））

请在代码中提供示例数据。Post
dput（df）
，或
df的子集。这样就可以生成绘图并显示结果。我在原始代码中添加了数据帧。谢谢，我使用df%pivot\u longer（以“H”开头）生成了图。但是我如何更改标题，比如从H1改为外观等等。我还将pivot_添加到原始代码中。啊，好的，我现在明白了-您需要稍微不同的
标签（）。请参阅更新。@chetan这能回答您的问题吗？谢谢@andrew\u reece。您能告诉我如何在条形图中添加文本，如“a”或“ab”，以显示统计意义吗。我不是一个专业人士，我花了太长的时间去理解和编辑，所以你可以使用我发布的文本代码。我解决了轴。你能告诉我怎样才能把文字添加到条上吗？