R - Problema al generar grafico

Hola a todos tengo un problema al generar un plot con ggplot el problema es que al cambiar los datos de los ejes para que se vea de 1980-2005 el grafico se queda en blanco
este es mi codigo


library(readxl)
library(ggplot2)
datos <- read_excel(ruta_excel, range = "A3:H29")
summary(datos)
EstadosUnidos <- datos[, 2]
for (i in 1:25) {
VF = EstadosUnidos[i+1,]
VI = EstadosUnidos[i,]
TI = ((VF-VI)/VI)*100
print(TI)
}
Canada <- datos[, 3]
for (i in 1:25) {
VF = Canada[i+1,]
VI = Canada[i,]
TI = ((VF-VI)/VI)*100
print(TI)
}
print(TI)
Japan <- datos[, 4]
for (i in 1:25) {
VF = Japan[i+1,]
VI = Japan[i,]
TI = ((VF-VI)/VI)*100
print(TI)
}
France <- datos[, 5]
for (i in 1:25) {
VF = France[i+1,]
VI = France[i,]
TI = ((VF-VI)/VI)*100
print(TI)
}
Germany <- datos[, 6]
for (i in 1:25) {
VF = Germany[i+1,]
VI = Germany[i,]
TI = ((VF-VI)/VI)*100
print(TI)
}
Italy <- datos[, 7]
for (i in 1:25) {
VF = Italy[i+1,]
VI = Italy[i,]
TI = ((VF-VI)/VI)*100
print(TI)
}
UK <- datos[, 8]
for (i in 1:25) {
VF = UK[i+1,]
VI = UK[i,]
TI = ((VF-VI)/VI)*100
print(TI)
}

X<-c(1:25)
Y<-c(11.97452,8.532423,4.612159,5.01002,6.01145,3.420342,4.177546,4.928989,7.72293,9.534368,5.870445,3.696622,1.598033,2.480339,3.364817,2.45574,3.121516,3.459459,1.515152,2.985075,1.749125,1.669941,2.898551,3.004695,2.825889)
Z<-c(10.31553,6.160616,3.212435,4.317269,3.561116,1.858736,3.649635,4.137324,4.818259,5.403226,4.20811,3.010279,2.993585,2.560554,2.834008,2.952756,2.294455,1.557632,2.208589,3.361345,2.845528,1.581028,2.279044,2.663043,3.388036)
plot(X,Y,type="b",col="red",
main="INFLATION RATE IN UK",
ylab="RATE", xlab ="TIME", xlim=c(1980,2005), ylim=c(0,13))
lines(X,Z,type="b",col="blue", xlim=c(1980,2005), ylim=c(0,13))