Ось X не отображается R

Question

Я пытаюсь использовать две разные оси Y с одной и той же осью X, и когда я устанавливаю обе оси на false, год не будет отображаться

library(lubridate)

x <- dataset$Date
y <- dataset$AvgCostPerKwh
z <- dataset$ActualkWhSold


par(mar=c(5, 4, 4, 6) + 0.1)

plot(year(x),y, pch = 16, axes = FALSE, ylim = c(0.030,0.090), xlab = "",  ylab = "",
 type = "b", col="black", main = "Wholesale Power cost")

axis(2, ylim =(range(c(y))), col = "black", las =1)

mtext("$ per KWh", side = 2, line = 2.5)
box()

par(new = TRUE)


plot(year(x),z, pch = 15, xlab = "", ylab = "",ylim=c(5000000,45000000), 
 axes = FALSE, type="b", col="red")

mtext("Kwh's Sold", side=4, col="red", line=4)
axis(4, ylim=(range(c(z))), col = "red", las=1)



mtext("Year", side = 1, col="black",line=2.5)

legend("topleft", legend = c("AvgCostPerKwh", "ActualKwhSold"),
   text.col = c("black", "red"), 
   pch=c(15,15),col=c("black", "red"))

Изображение 1

Когда я устанавливаю для одного из графиков значение true, я получаю перекрывающиеся значения с одной стороны, но появляется год внизу.

library(lubridate)

x <- dataset$Date
y <- dataset$AvgCostPerKwh
z <- dataset$ActualkWhSold


par(mar=c(5, 4, 4, 6) + 0.1)

plot(year(x),y, pch = 16, axes = TRUE, ylim = c(0.030,0.090), xlab = "", ylab = "",
 type = "b", col="black", main = "Wholesale Power cost")

axis(2, ylim =(range(c(y))), col = "black", las =1)

mtext("$ per KWh", side = 2, line = 2.5)
box()

par(new = TRUE)


plot(year(x),z, pch = 15, xlab = "", ylab = "",ylim=c(5000000,45000000), 
 axes = FALSE, type="b", col="red")

mtext("Kwh's Sold", side=4, col="red", line=4)
axis(4, ylim=(range(c(z))), col = "red", las=1)



mtext("Year", side = 1, col="black",line=2.5)

legend("topleft", legend = c("AvgCostPerKwh", "ActualKwhSold"),
   text.col = c("black", "red"), 
   pch=c(15,15),col=c("black", "red"))

изображение 2

Я не уверен, я следовал другим примерам здесь относительно оси 2 Y, и я не могу заставить мою работать.

Answer 1

Я ответил на свой вопрос всем, кто заинтересовался, забыл добавить

year(as.Date(dataset$Date, format = "%m/%d/%Y"),"%Y")

вверху, прежде чем добавить

plot(year(x), y, pch=16, axes=FALSE, ylim=c(0.030,1), xlab="", ylab="", 
 type="b",col="black", main="Wholesale Power Cost")