ggplot绘图x轴日期标签错位问题求助：如何修正位置错误

你有如下data.table格式的日期与情感分数数据：

structure(list(day = c("11. Februar", "12. Februar", "13. Februar", 
"14. Februar", "15. Februar", "16. Februar", "18. Februar", "19. Februar", 
"20. Februar", "21. Februar", "22. Februar", "23. Februar", "25. Februar", 
"26. Februar", "27. Februar", "28. Februar", "01. März", "02. März", 
"04. März", "05. März", "06. März", "07. März", "08. März", 
"09. März", "11. März"), mean_score = c(-0.0544601918465228, 
-0.0261774456521739, -0.0194014563106796, -0.0700457858769932, 
-0.0344666666666667, -0.0431649230769231, -0.0395243346007605, 
0.00460614406779661, -0.0536940711462451, -0.0243264444444444, 
-0.0295975683890577, -0.0554590509666081, -0.0600848484848485, 
-0.0214302375809935, -0.00898032490974729, -0.0516276397515528, 
-0.0820686330935252, -0.054661620294599, -0.049621686746988, 
-0.0169375654450262, -0.0215138719512195, -0.0119615160349854, 
-0.00512207207207207, -0.0409468584405753, -0.0158904621435595
)), row.names = c(NA, -25L), class = c("data.table", "data.frame"
), .internal.selfref = <pointer: 0x0000022386fef540>)

使用以下ggplot代码绘图时，x轴的"27. Februar"标签跑到了图表末尾，但该日期实际处于数据中间（数据起始为11. Februar，结束为11. März），图表未正确展示数据顺序：

test_data %>%
  ggplot(aes(x = day, y = mean_score)) +
  stat_smooth(aes(group = 1), method = "loess", se = FALSE, size = 2.5, color = "black") +
  scale_y_continuous(limits = c(-0.08, 0.001), expand = c(0, 0)) +
  scale_x_discrete(breaks = test_data$day, 
                   labels = ifelse(test_data$day == "27. Februar", "27. Februar", "")) +
  xlab(" ") +
  ylab("Sentiment Score") +
  ggtitle("Raiffi Verlauf über 30 Tage") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5),
        plot.title = element_text(hjust = 0.5, vjust = 0.5),
        panel.grid.major.y = element_line(color = "gray80"))

• 字符串排序而非日期排序：你的day列是字符串类型，ggplot处理离散x轴时会按字符串字典序排序，而非实际日期顺序。比如"01. März"首字符是0，比"11. Februar"的1小，会被排在最前面，直接打乱了时间顺序。
• 标签与breaks不匹配：scale_x_discrete中用test_data$day作为breaks，但ggplot已经按字典序重新排序了x轴，你设置的labels是原数据的顺序，自然和排序后的breaks对应不上，导致标签错位。

核心是把字符串日期转换成真正的Date类型，让ggplot按时间顺序排列x轴，再调整标签显示：

步骤1：安装并加载lubridate包 #

install.packages("lubridate")
library(lubridate)

步骤2：转换字符串日期为Date类型 #

需要指定德语月份对应的locale（Windows系统可用"German_Germany.1252"，Linux/macOS用"de_DE.UTF-8"）：

test_data$date <- dmy(test_data$day, locale = "de_DE.UTF-8")

步骤3：修改ggplot代码 #

改用scale_x_date设置x轴，确保标签对应正确的日期位置：

test_data %>%
  ggplot(aes(x = date, y = mean_score)) +
  stat_smooth(aes(group = 1), method = "loess", se = FALSE, size = 2.5, color = "black") +
  scale_y_continuous(limits = c(-0.08, 0.001), expand = c(0, 0)) +
  scale_x_date(breaks = test_data$date,
               labels = function(x) {
                 target_date <- dmy("27. Februar", locale = "de_DE.UTF-8")
                 ifelse(x == target_date, "27. Februar", "")
               }) +
  xlab(" ") +
  ylab("Sentiment Score") +
  ggtitle("Raiffi Verlauf über 30 Tage") +
  theme_minimal() +
  theme(axis.text.x = element_text(angle = 90, vjust = 0.5),
        plot.title = element_text(hjust = 0.5, vjust = 0.5),
        panel.grid.major.y = element_line(color = "gray80"))

修改后x轴会按实际时间顺序排列，"27. Februar"的标签也会出现在正确的位置。

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