X軸未顯示R

Question

我正在嘗試使用具有相同X軸的兩個不同的Y軸，並且當我將兩個軸都設置為false時，Year不會顯示

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