Facet_grid：将条形文本的位置更改为顶部并更改颜色

Question

这是我的第一个问题。另外，我想说我对 R 和 ggplot2 很陌生。

我想为每个“网格”放置一个标签来标识每个类别（In_motion、High_intensity ...等等）。

这是我正在使用的数据示例。

library (tidyverse)
library (ggplot2)
library (dplyr)
library (directlabels)

activity_move_3_long <- tibble(
  Day_name = factor(c(1, 1, 1, 1, 2, 2, 2, 2, 3, 3, 3, 3, 4, 4, 4), labels =  c("Monday", "Tuesday", "Wednesday", "Thursday")),
  Intensity_cat = factor(c(1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3, 4, 1, 2, 3), labels = c("In_motion", "High_intensity", "Moderate_intensity", "Light_intensity")),
  value = c(252, 26, 16, 211, 277, 24, 17, 236, 248, 22, 14, 212, 256, 24, 14)
)

这是我的情节的代码

ggplot(data = activity_move_3_long, aes(x = Day_name, y = value, color = Intensity_cat))+
  geom_line(aes(group = Intensity_cat), size = 1.2)+
  facet_grid(rows = vars(Intensity_cat), scales = 'free_y')+
  geom_dl(aes(label = Intensity_cat), method ='last.points')+
  theme(axis.title.y = element_blank(), axis.title.x = element_blank())
  theme(strip.text = element_blank())

• 我尝试使用 annotate() 函数，但一点也不走运。文档对我来说没有多大帮助。
• 我安装了 directlabels 包，我能够在每个图表中绘制类别的标签。但我不喜欢它的样子，而且我无法改变位置。
• 所以我想将条形文本从右侧更改为顶部。

谁能帮我解决这个问题吗？

Answer 1

我正处于工作最后期限，但一定要查看 ggh4x 软件包。几个月前的定制确实对我很有帮助。