我正在努力提高我在数据可视化方面的技能，我几乎得到了我想要的。但在某个时候，我被卡住了，不能再往前走了。只是要知道，伙计们，我在这里做了广泛的研究，试图找到我的疑虑，它帮助了我很多。
以下是我的数据集：
https://app.box.com/s/pp5p5chgypn6ba33anotie7wlxvdu01v
下面是我的代码：

library(tidyverse)
library(ggalluvial)
library(alluvial)

A_col <- "firebrick3"
B_col <- "darkorange"
C_col <- "aquamarine2"
D_col <- "dodgerblue2"
E_col <- "darkviolet"
F_col <- "chartreuse2"
G_col <- "goldenrod1"
H_col <- "gray73"
set.seed(39)

ggplot(df,
       aes(y = Time, axis1 = Activity, axis2 = Category, axis3 = Positions)) +
  geom_alluvium(aes(fill = Positions, color = Positions), 
        width = 4/12, alpha = 0.5, knot.pos = 0.3) +
  geom_stratum(width = 4/12, color = "grey36") +
  geom_text(stat = "stratum", label.strata = TRUE) +
  scale_x_continuous(breaks = 1:3, 
       labels = c("Activity", "Category", "Positions/Movements"), expand = c(.01, .05)) +
  ylab("Time 24 hours") +
  scale_fill_manual(values  = c(A_col, B_col, C_col, D_col, E_col, F_col, G_col, H_col)) +
  scale_color_manual(values = c(A_col, B_col, C_col, D_col, E_col, F_col, G_col, H_col)) +
  ggtitle("Physical Activity during the week and weekend") +
  theme_minimal() +
  theme(legend.position = "none", panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(), axis.text.y = element_blank(), 
        axis.text.x = element_text(size = 12, face = "bold"))

# I also have this code that I run without pre-choosing the colours.
# I like this one because the flow diagram doesn't have any border.

ggplot(df,
       aes(y = Time, axis1 = Activity, axis2 = Category, axis3 = Positions)) +
  scale_x_discrete(limits = c("Activity", "Category", "Positions/Moviments"), 
       expand = c(.01, .05)) +
  ylab("Time 24 hours") +
  geom_alluvium(aes(fill = Positions), width = 4/12, alpha = 0.5, knot.pos = 0.3) +
  geom_stratum() + geom_text(stat = "stratum", label.strata = TRUE) +
  theme_minimal() +
  ggtitle("Physical Activity during the week and weekend") +
  theme(legend.position = "none", panel.grid.major = element_blank(), 
        panel.grid.minor = element_blank(), axis.text.y = element_blank(), 
        axis.text.x = element_text(size = 12, face = "bold"))

字符串
以下是可视化：x1c 0d1x的数据
有三件事我真的做不到：
1.对Category进行排序，清晰地看到一周和周末之后，例如Working、Non Working、Sleep Week、Leisure和Sleep Weekend。
1.对位置/移动进行排序，如Sitting、Lying、Standing、Moving、Stairs、Walk Slow、Walk Fast和Running。另外，我想用流程图的相同颜色填充此列的正方形。另一件事是，有些名字没有足够的空间，我不知道是否有可能重置空间来容纳他们，或者也许把他们外面的箭头指示属于他们的广场。差点忘了，有没有办法手动为每个变量分配颜色，比如colour black为Walk Slow？另外，如果可能的话，我想去掉流程图边缘的线条。
1.有没有办法把位置和动作的名字叠加起来？
有什么方法可以改善这种可视化并使其变得美丽吗？
先谢谢你了，路易斯