inst/examples/R/stat/Trend/Leistungsbilanzsalden.R

In sigbertklinke/shinyExample: Create and run simple (interactive) programs as Shiny apps

a = c(9478, 18003, -11031, -28480, -11741, 9866, 10573, 27940, 48327, 85793, 82097, 88336, 104057, 15309, -31916, -30221, -23357, -34191, -33818)
b = c(5483.3, -7169.3, -17084.0, -10118.3, 2899.3, 16126.3, 28946.7, 54020.0, 72072.3, 85408.7, 91496.7, 69234.0, 29150.0, -15609.3, -28498.0, -29256.3, -30455.3)
c = c(-4754.2, -4676.6, -6162.6, 1631.6, 16993.0, 36499.8, 50946.0, 66498.6, 81722.0, 75118.4, 51576.6, 29113.0, 6774.4, -20875.2, -30700.6)
d = c(-476.0, 2161.4, 6493.4, 20325.4, 36122.1, 50418.9, 63874.7, 64551.3, 56000.4, 44779.3, 29186.0, 12573.9, -4876.7)

t1 = ts(a, start=1977, end=1995)
t2 = ts(b, start=1978, end=1994)
t3 = ts(c, start=1979, end=1993)
t4 = ts(d, start=1980, end=1992)
options(scipen=5)
plot(t1, xlab="Period", ylab="Million DM", yaxt="n", lwd=2)
axis(2, at=c(0, 50000, 100000))
lines(t2, col="green", lwd=2)
lines(t3, col="red", lwd=2)
lines(t4, col="blue", lwd=2)