R сюжетная линия не работает, но точка работает

Question

У меня есть фрейм данных, который я хочу построить с двумя различными осями Y.Все работает нормально, кроме типа: 'line' первого графа "Grundwasserstand".Однако при выборе type = 'point' измерения будут напечатаны правильно на графике.Я предполагаю, что проблема вызвана NA.

Обязательно нужно, чтобы type = 'line' работал.

Что мне делать?Интерполяция не вариант в этом случае.Ни один не оставляет данные из Elbewasserstand.

показано несколько строк моего фрейма данных:

Time Grundwasserstand Elbewasserstand
1   1980-01-01           119.62         110.576
2   1980-01-02               NA         111.426
3   1980-01-03               NA         111.316
4   1980-01-04               NA         111.126
5   1980-01-05               NA         110.956
6   1980-01-06               NA         110.786
7   1980-01-07               NA         110.726
8   1980-01-08               NA         110.866
9   1980-01-09               NA         110.816
10  1980-01-10               NA         110.756
11  1980-01-11               NA         110.656
12  1980-01-12               NA         110.636
13  1980-01-13               NA         110.316
14  1980-01-14               NA         110.176
15  1980-01-15           119.65         110.146
16  1980-01-16               NA         110.166

как выглядит код моего графика: ´

png(filename = speicherpfad_inkl_namen_png, width = 1000)
par(mar=c(5, 4, 2, 4) + 0.1)
plot(zusm$Time,zusm$Grundwasserstand, type = "b", 
           col="1", ylab = "Grundwasserstand [m NHN]", xlab = "Time", axes = T)
par(new=T)
plot(zusm$Time, zusm$Elbewasserstand, type = "l",col="blue", lwd=1,
           axes=F, ylab = "", xlab = "" ) 
axis(side = 4, col="black") 
mtext(4,text="Elbewasserstand [m NHN]", col = "black", line = 2)
legend("bottomright",title="Legende", legend = c("Grundwasserstand", "Elbewasserstand"), 
             lwd = 1, col = c(1,4))
dev.off()

ОБНОВЛЕНИЕ:

решено с добавлениемиз:

zusm$Time[!is.na(zusm$Grundwasserstand)],zusm$Grundwasserstand[!is.na(zusm$Grundwasserstand)]

в моем коде сюжета на участке №.1!

png(filename = speicherpfad_inkl_namen_png, width = 1000)
par(mar=c(5, 4, 2, 4) + 0.1)
plot(zusm$Time[!is.na(zusm$Grundwasserstand)],zusm$Grundwasserstand[!is.na(zusm$Grundwasserstand)], type = "l", 
         col="1", ylab = "Grundwasserstand [m NHN]", xlab = "Time", axes = T)
par(new=T)
plot(zusm$Time, zusm$Elbewasserstand, type = "l",col="blue", lwd=1,
         axes=F, ylab = "", xlab = "" ) 
axis(side = 4, col="black") 
mtext(4,text="Elbewasserstand [m NHN]", col = "black", line = 2)
legend("bottomright",title="Legende", legend = c("Grundwasserstand", "Elbewasserstand"), 
           lwd = 1, col = c(1,4))
dev.off()