Code:
clear
input str9 date float rate
1960
1960
1961 1.3
1961 1.3
1962 1.3
1962 1.3
1963 1.3
1963 1.3
1964 1.3
1964 1.3
1965 1.3
1965 1.3
1966 3.1
1966 3.1
1967 3.1
1967 3.1
1968 3.1
1968 3.1
1969 3.1
1969 3.1
1970 3.1
1970 3.1
1971 -3.2
1971 -3.2
1972 -3.2
1972 -3.2
1973 -3.2
1973 -3.2
1974 -3.2
1974 -3.2
1975 -3.2
1975 -3.2
1976 5.1
1976 5.1
1977 5.1
1977 5.1
1978 5.1
1978 5.1
1979 5.1
1979 5.1
1980 5.1
1980 5.1
1981 -2.3
1981 -2.3
1982 -2.3
1982 -2.3
1983 -2.3
1983 -2.3
1984 -2.3
1984 -2.3
1985 -2.3
1985 -2.3
1986 2.1
1986 2.1
1987 2.1
1987 2.1
1988 2.1
1988 2.1
1989 2.1
1989 2.1
1990 2.1
1990 2.1
1991 4.9
1991 4.9
1992 4.9
1992 4.9
1993 4.9
1993 4.9
1994 4.9
1994 4.9
1995 4.9
1995 4.9
1996 0.9
1996 0.9
1997 0.9
1997 0.9
1998 0.9
1998 0.9
1999 0.9
1999 0.9
2000 0.9
2000 0.9
2001 1
2001 1
2002 1
2002 1
2003 1
2003 1
2004 1
2004 1
end
gen ndate = daily(date, "Y", 2050)
format ndate %td
forvalues i = 2(2)112 {
replace ndate = ndate[`i'+1] - 1 in `i'/`i'
}
twoway line rate ndate, cmissing(no) xla(, format(%tdCY)) xtitle("") yla(, ang(h))
