Как изменить ось X из названий дней недели в даты?

Question

У меня проблемы с отображением на графике дат (ie. 23/01) вместо названий дней недели (ie. Чт). Мой набор данных состоит из дат и измерений активности летучих мышей. Я установил столбец «Даты» своих данных как as.Date в формате «% d.% M.% Y», и всякий раз, когда я строю график, я получаю названия дней недели вместо дат.

Мой код выглядит следующим образом:

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

Мой график в итоге выглядит следующим образом (ниже). Все хорошо, за исключением того, что я хотел бы, чтобы названия дней недели были датами в формате (д / м).

df выглядит так:

structure(list(Date = c("23.01.20", "24.01.20", "25.01.20", "26.01.20", 
"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"))

Answer 1

Минимальный пример использования ggplot2:

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()

В качестве альтернативы, используя базу R:

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

plot(as.Date(df$date), df$x,xaxt = "n", type = "p")
axis(1, df$date, format(df$date, "%m-%d"))