如何将x轴从工作日名称更改为日期？

Question

我在使绘图显示日期（即23/01）而不是工作日名称（即星期四）时遇到麻烦。我的数据集包括蝙蝠活动的日期和度量。我将数据的“日期”列设置为as.Date，格式为“％d。％m。％y”，每当绘制图形时，我都会得到工作日名称而不是日期。

我的代码如下：

rdate<-as.Date(df,"%d.%m.%Y")
plot(df$Afromontane)

[[我的情节最终看起来像这样] [1]。一切都很好，只不过我希望工作日名称为（d / m）格式的日期。

df看起来像这样：

"27.01.20", "28.01.20", "29.01.20"), Afromontane = c(13.67, 0, 
0, 1.67, 3.67, 22, 3.33), Milkwood = c(8.33, 3.67, 8, 8.33, 4.33, 
6.33, 1)), row.names = c(NA, -7L), class = c("tbl_df", "tbl", 
"data.frame"))``` 

Thanks in advance for the assistance.

  [1]: https://i.stack.imgur.com/xsicG.png

Answer 1

一个最小的例子：

library(ggplot2)

df = data.frame(date = sample(seq(as.Date('2001/01/01'), as.Date('2003/01/01'), by="day"), 10), x = runif(10, 1, 10))

df$shortdate <- format(df$date, format="%m-%d")

ggplot(df, aes(x = shortdate, y = x)) +
      geom_point()