我有下面的数据和代码，产生一个条形图。

#create data frame for bar plot
Correlation_task_persistence <- c("0.45", "0.40", "-0.46", "-0.24", "0.06", "0.16")
Biv_A_task_persistence <- c("63%", "66%", "67%", "71%", "69%", "55%")
Biv_E_task_persistence  <- c("37%", "34%", "33%", "29%", "31%", "45%")
Correlation_activity <- c("0.40", "0.33", "-0.59", "-0.10", "0.06", "0.10")
Biv_A_activity <- c("55%", "40%", "65%", "70%", "97%", "40%")
Biv_E_activity <- c("45%", "60", "35%", "30%", "3%", "60%")
age <- c("36", "30", "24", "18", "12", "6")
df.new <- data.frame(Correlation_task_persistence, Biv_A_task_persistence,Biv_E_task_persistence, Correlation_activity, Biv_A_activity, Biv_E_activity, age )

#produce bar pot
suppressWarnings(
  df.new %>% 
    mutate(across(Correlation_task_persistence:Biv_E_activity, 
                  ~if_else(as.numeric(gsub("%", "", .x)) > 1,
                           as.numeric(gsub("%", "", .x, fixed = TRUE))/100, 
                           as.numeric(.x)))) %>% 
    pivot_longer(-c(age, contains("Correlation"))) %>% 
    mutate(Correlation = if_else(grepl("task", name),
                                 Correlation_task_persistence, Correlation_activity),
           final_value = Correlation * value,
           name = gsub("_task", "", name)) %>% 
    tidyr::extract("name", c("var","group"), regex = "(.*)_([^_]+)$") %>% 
 ggplot(aes(x = age, y = final_value, fill = var)) +
  geom_col() +
   scale_fill_grey(
  start = 0.475,
  end = 0.8,
  na.value = "red",
  aesthetics = "fill"
  ) +
  labs(x="Age (months)", y= "Correlation") +
  facet_wrap(~group)
)

我想修改我的代码，对条形图进行三处更改：
1.按6岁排在12岁之前的顺序排列年龄。因此，小节的顺序应该是6、12、18、24、30、36，而不是12、18、24、30、36、6。
1.在每个条形图的顶部显示相关性（例如，6岁时用黑色显示）。
1.在条内显示Biv_A和Biv_E值（例如，6岁时用黑色显示）。
会很感激任何帮助如何做到这一点。