如何将时间序列的趋势评估为R中的数字指标？

Question

这里是将数据集转换为时间序列对象的示例。 我想找到允许识别趋势类型的数字指标“ x”。 假设x> 0-“上升趋势”，x <0-“下降趋势”。数据少于2个季节。请分享您的实践经验。谢谢。

# 1. Data set
df_data <- data.frame(
  year = c(2000:2017),
  count = c(3, 2, 1, 3, 17, 18, 59, 93, 144, 266, 263, 401, 802, 1263, 2366, 4170, 2617, 2382))

# 2. Time-series
ts_data <- ts(df_data$count, start = min(df_data$year), end = max(df_data$year), frequency = 1)

# 3. Plot
plot.ts(ts_data)

# 4. How identify up & down trend as a numeric metric?