Как изменить x-метку на графике, не показывая предыдущие значения?

Question

Я пытаюсь построить с помощью plot следующее:

df = (DF = c(24, 62, 37, 27, 50, 20, 23, 23, 25, 20, 27, 25, 24, 11, 23, 21, 17, 20, 17, 13, 13, 13, 15, 15, 14, 10))

plot(df$DF, type = "o", col = "red", lwd = 2, xlab = "", ylab = "Growth Rate (%)") 

Проблема в том, что я получаю числа по оси X от 1 до 27.

Я бы хотелось бы провести там дни с 25 февраля по 22 марта. Итак, я попытался:

df$Date <- seq(as.Date("2020/02/25"), as.Date("2020/03/22"), by = "days")

plot(df$DF, type = "o", col = "red", lwd = 2, xlab = "", ylab = "Growth Rate (%)") + axis(1, at=1:27, labels= df$Date, cex.axis=0.5)

Проблема в том, что новый x-label написан на старом.

Как можно Я это исправлю?

Спасибо

Answer 1

# Create the data
df = data.frame(DF = c(24, 62, 37, 27, 50, 20, 23, 23, 25, 20, 27, 25, 24, 11, 23, 21, 17, 20, 17, 13, 13, 13, 15, 15, 14, 10))

df$Date <- seq(as.Date("2020/02/25"), as.Date("2020/03/21"), by = "day")
df$data_line <- c(24, 62, 37, 27, 50, 20, 23, 23, 25, 20, 27, 25, 24, 11, 23, 21, 17, 20, 17, 13, 13, 13, 15, 15, 14, 10) + 2

# Open the plot area 
     plot(df$Date, df$DF, 
     type = "o", col = "red", lwd = 2, xlab = "",ylab = "Growth Rate (%)", axes = F)

     # Configuring the new axes
     axis.Date(1, at = seq(min(df$Date), max(df$Date), by ="day"), cex.axis= 0.5)
     axis(2, las = 2)

     # Add a new line     
     lines(df$Date, df$data_line, col = "blue")

     # Close the box around the plot area
     box()             

Привет Ролло,

В базовом сюжете я предпочитаю вставлять каждую вещь отдельно. Я воссоздаю ваш пример данных и строю график снова. Я построил синюю линию с новым примером данных, созданным путем добавления 2 к исходным данным DF, они были сохранены в df $ data_line.

Когда я вызывал график, я использовал аргумент 'axes = F ', чтобы опустить оригинальные оси. После этого я назвал две оси, с разными функциями.

В базовом графике r вы не можете использовать «+» между функциями при открытии графика.

Надеюсь, мой код поможет вам!