如何在ggplot的scale_x_date中使用罗马数字？

library(ggplot2)

# 创建一个包含日期和数值的数据框
df <- data.frame(
  date = seq(as.Date("2022-01-01"), as.Date("2022-01-10"), by = "day"),
  value = 1:10
)

# 将日期转换为字符型，并使用as.roman()函数将其转换为罗马数字表示
df$date_roman <- as.roman(as.character(df$date))

# 使用ggplot绘制折线图
ggplot(df, aes(x = date_roman, y = value)) +
  geom_line() +
  scale_x_discrete(labels = df$date_roman) +
  labs(x = "日期（罗马数字表示）", y = "数值")