如何将指定格式的时间序列矩阵转换为ggplot格式？

嘿，我来帮你搞定这个转换！首先得明确：ggplot依赖长格式数据（每一行对应一个独立观测值），而你现在的矩阵是宽格式（每列对应一个星期几），所以核心步骤就是把宽格式转成长格式。下面是具体的操作流程和代码：

1. 先构造你的矩阵（如果还没在R里定义的话） #

首先把你给出的矩阵内容转换成R可识别的对象：

# 定义你的星期时间序列矩阵
week_matrix <- matrix(
  c(-1.783558, 0.5123224, 0.5997068, 0.4680476, 0.6521374, 0.6276698, -1.0763264,
    -1.730086, 0.8552685, 0.6426731, 0.6377859, 0.3995325, 0.2944567, -1.0996309,
    -1.503333, 0.9450167, -0.4125656, 0.8446433, 0.6839187, 0.5397113, -1.0973919,
    -1.720261, 0.3044134, 0.6722075, 0.5313041, 0.6411365, 0.7105043, -1.1393050,
    -1.234701, 0.9189446, 0.9670409, 0.8713827, -1.1208727, 0.3465987, -0.7483936),
  nrow = 5,
  byrow = TRUE,
  dimnames = list(NULL, c("dDomingo", "dSegunda", "dTerça", "dQuarta", "dQuinta", "dSexta", "dSábado"))
)

2. 转换为长格式数据（ggplot所需格式） #

我们用tidyverse包来完成转换（它包含了dplyr、tidyr和ggplot2，是处理这类问题的标准工具）：

# 加载tidyverse包（如果没安装先运行 install.packages("tidyverse")）
library(tidyverse)

# 把矩阵转成数据框，添加分组标识（对应原矩阵的5行），再转成长格式
week_long <- week_matrix %>%
  as.data.frame() %>%
  mutate(Group = paste0("Group_", row_number())) %>% # 给每行添加分组标签
  pivot_longer(
    cols = -Group,          # 保留Group列，转换其他所有列
    names_to = "Weekday",   # 原列名（星期几）存入Weekday列
    values_to = "Value"     # 原矩阵中的数值存入Value列
  )

执行完这段代码后，week_long就是ggplot完全兼容的数据结构了，它的结构大概是这样（示例前几行）：

# A tibble: 35 × 3
   Group   Weekday    Value
   <chr>   <chr>      <dbl>
 1 Group_1 dDomingo  -1.78 
 2 Group_1 dSegunda   0.512
 3 Group_1 dTerça     0.600
 4 Group_1 dQuarta    0.468
 ...

3. 可选：调整星期几的顺序 #

默认情况下，ggplot会按字母顺序排列星期几，但你可能想要按实际星期顺序展示。可以把Weekday列转换成有序因子：

week_long$Weekday <- factor(
  week_long$Weekday,
  levels = c("dDomingo", "dSegunda", "dTerça", "dQuarta", "dQuinta", "dSexta", "dSábado"),
  ordered = TRUE
)

4. 用ggplot画图示例 #

现在你可以随便用ggplot可视化了，比如画分组折线图：

ggplot(week_long, aes(x = Weekday, y = Value, color = Group, group = Group)) +
  geom_line(linewidth = 1) +
  geom_point(size = 2) +
  labs(title = "Weekly Time Series by Group", x = "Weekday", y = "Value") +
  theme_minimal()

或者画星期几的数值分布箱线图：

ggplot(week_long, aes(x = Weekday, y = Value)) +
  geom_boxplot(fill = "lightblue", alpha = 0.7) +
  labs(title = "Value Distribution by Weekday", x = "Weekday", y = "Value") +
  theme_minimal()

内容的提问来源于stack exchange，提问作者theBotelho