如何按发行方与票面利率重新排序ggplot分面堆叠柱状图

要让分面按指定顺序排列，最可靠的方法是将分面字段转换为有序因子，手动指定所需的分面顺序，以下是具体实现步骤：

方法一：直接指定目标分面顺序 #

如果分面数量固定，直接列出你需要的顺序即可：

1. 定义目标分面顺序列表（完全匹配数据中FondskodePlotColumn的取值）：

target_order <- c("NYK 1' 2050", "NYK 5' 2053", "RD 1'2050", "RD 5'2053", "NDA 1' 2050")

2. 将数据中的分面字段转换为有序因子：

your_data$FondskodePlotColumn <- factor(your_data$FondskodePlotColumn, 
                                        levels = target_order, 
                                        ordered = TRUE)

3. 重新绘制分面图：

library(ggplot2)
ggplot(your_data, aes(x = 你的X轴字段, y = 你的Y轴字段, fill = 堆叠分组字段)) +
  geom_col(position = "stack") +
  facet_wrap(~FondskodePlotColumn)

方法二：按发行方+票面利率规则自动生成顺序 #

如果后续分面数量可能变化，可通过UdstederKat和KuponRente的优先级自动生成顺序：

1. 先定义两个排序字段的优先级：

# 指定发行方顺序：NYK > RD > NDA
udsteder_order <- c("NYK", "RD", "NDA")
your_data$UdstederKat <- factor(your_data$UdstederKat, levels = udsteder_order, ordered = TRUE)

# 指定票面利率顺序：1' > 5'
kupon_order <- c("1'", "5'")
your_data$KuponRente <- factor(your_data$KuponRente, levels = kupon_order, ordered = TRUE)

2. 按规则排序后提取分面字段的唯一值作为目标顺序：

target_order <- unique(your_data[order(your_data$UdstederKat, your_data$KuponRente), "FondskodePlotColumn"])

3. 转换分面字段为有序因子后绘图（同方法一的步骤3）

注意事项 #

• 确保target_order中的每个值与数据中FondskodePlotColumn的取值完全一致（包括空格、符号等细节）
• ggplot默认会按字符字典序或因子默认水平排序，只有手动指定因子水平才能强制自定义顺序

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