mydata2 = data.frame(
row.names = c("1959","1960","1961","1962","1963",
"1964","1965","1966","1967","1968","1969","1970","1971",
"1972","1973","1974","1975","1976","1977","1978","1979",
"1980","1981","1982","1983","1984","1985","1986","1987",
"1988","1989","1990","1991","1992","1993","1994","1995",
"1996","1997"),
Jan = c(315.42,316.27,316.73,317.78,318.58,
319.41,319.27,320.46,322.17,322.4,323.83,324.89,326.01,
326.6,328.37,329.18,330.23,331.58,332.75,334.8,336.05,
337.84,339.06,340.57,341.2,343.52,344.79,346.11,347.84,
350.25,352.6,353.5,354.59,355.88,356.63,358.34,359.98,
362.09,363.23),
Feb = c(316.31,316.81,317.54,318.4,318.92,
320.07,320.28,321.43,322.34,322.99,324.26,325.82,326.51,
327.47,329.4,330.55,331.25,332.39,333.24,335.22,336.59,
338.19,340.3,341.44,342.35,344.33,345.82,346.78,348.29,
351.54,352.92,354.55,355.63,356.63,357.1,358.89,361.03,
363.29,364.06),
Mar = c(316.5,317.42,318.38,319.53,319.7,
320.74,320.73,322.23,322.88,323.73,325.47,326.77,327.01,
327.58,330.14,331.32,331.87,333.33,334.53,336.47,337.79,
339.91,341.21,342.53,342.93,345.11,347.25,347.68,349.23,
352.05,353.53,355.23,357.03,357.72,358.32,359.95,361.66,
364.06,364.61),
Apr = c(317.56,318.87,319.31,320.42,321.22,
321.4,321.97,323.54,324.25,324.86,326.5,327.97,327.62,
329.56,331.33,332.48,333.14,334.41,335.9,337.59,338.71,
340.6,342.33,343.39,344.77,346.88,348.17,349.37,350.8,
353.41,355.26,356.04,358.48,359.07,359.41,361.25,363.48,
364.76,366.4),
May = c(318.13,319.87,320.42,320.85,322.08,
322.06,322,323.91,324.83,325.4,327.21,327.91,328.76,329.9,
332.31,332.92,333.8,334.71,336.57,337.84,339.3,341.29,
342.74,343.96,345.58,347.25,348.74,350.03,351.66,354.04,
355.52,357,359.22,359.58,360.23,361.67,363.82,365.45,
366.84),
Jun = c(318,319.43,319.61,320.45,321.31,321.73,
321.71,323.59,323.93,325.2,326.54,327.5,328.4,328.92,
331.9,332.08,333.43,334.17,336.1,337.72,339.12,341,
342.08,343.18,345.14,346.62,348.07,349.37,351.07,353.62,
354.97,356.07,358.12,359.17,359.55,360.94,363.3,365.01,
365.68),
Jul = c(316.39,318.01,318.42,319.45,319.58,
320.27,321.05,322.24,322.38,323.98,325.72,326.18,327.2,
327.88,330.7,331.01,331.73,332.89,334.76,336.37,337.56,
339.39,340.32,341.88,343.81,345.22,346.38,347.76,349.33,
352.22,353.75,354.67,356.06,356.94,357.53,359.55,361.94,
363.7,364.52),
Aug = c(314.65,315.74,316.63,317.25,317.61,
318.54,318.71,320.2,320.76,321.95,323.5,324.53,325.27,
326.16,329.15,329.23,329.9,330.77,332.59,334.51,335.92,
337.43,338.26,339.65,342.21,343.11,344.51,345.73,347.92,
350.27,351.52,352.76,353.92,354.92,355.48,357.49,359.5,
361.54,362.57),
Sep = c(313.68,314,314.83,316.11,316.05,316.54,
317.66,318.48,319.1,320.18,322.22,322.93,323.2,324.68,
327.35,327.27,328.4,329.14,331.42,332.6,333.75,335.72,
336.52,337.81,339.69,340.9,342.92,344.68,346.27,348.55,
349.64,350.82,352.05,352.94,353.67,355.84,358.11,359.51,
360.24),
Oct = c(313.18,313.68,315.16,315.27,315.83,
316.71,317.14,317.94,319.24,320.09,321.62,322.9,323.4,
325.04,327.02,327.21,328.17,328.78,330.98,332.38,333.7,
335.84,336.68,337.69,339.82,341.18,342.62,343.99,346.18,
348.72,349.83,351.04,352.11,353.23,353.95,356,357.8,359.65,
360.83),
Nov = c(314.66,314.84,315.94,316.53,316.91,
317.53,318.7,319.63,320.56,321.16,322.69,323.85,324.63,
326.34,327.99,328.29,329.32,330.14,332.24,333.75,335.12,
336.93,338.19,339.09,340.98,342.8,344.06,345.48,347.64,
349.91,351.14,352.69,353.64,354.09,355.3,357.59,359.61,
360.8,362.49),
Dec = c(315.43,316.03,316.85,317.53,318.2,
318.55,319.25,320.87,321.8,322.74,323.95,324.96,325.85,
327.39,328.48,329.41,330.59,331.52,333.68,334.78,336.56,
338.04,339.44,340.32,342.82,344.04,345.38,346.72,348.78,
351.18,352.37,354.07,354.89,355.33,356.78,359.05,360.74,
362.38,364.34)
)
library(tidyr)
library(dplyr)
mydata2 %>%
mutate(year = rownames(.)) %>%
pivot_longer(
-year,
names_to = "month",
values_to = "value"
) -> df
ts = ts(df$value, start = 1959, freq = 12)
plot(ts)