#initialize time series list
tsl <- tsl_initialize(
x = fagus_dynamics,
name_column = "name",
time_column = "time"
)
#original names
tsl_names_get(
tsl = tsl
)
#abbreviate names
#---------------------------
tsl_clean <- tsl_names_clean(
tsl = tsl,
capitalize_first = TRUE,
length = 4 #abbreviate to 4 characters
)
#new names
tsl_names_get(
tsl = tsl_clean
)
#suffix and prefix
#---------------------------
tsl_clean <- tsl_names_clean(
tsl = tsl,
capitalize_all = TRUE,
separator = "_",
suffix = "fagus",
prefix = "country"
)
#new names
tsl_names_get(
tsl = tsl_clean
)
Run the code above in your browser using DataLab