对于数据的每一行，我想获取最小值和最大值以及最初存储为字符的年数。例如，考虑以下数据：
df <- data.frame(id = 1:4,
yr = c("1543,860,2023",
"2019,2018,2006,2007",
"1998,2012,2000,2020",
"2000"))
所需输出：
id yr min_yr max_yr nYears
1 1543,860,2023 860 2023 3
2 2019,2018,2006,2007 2006 2019 4
3 1998,2012,2000,2020 1998 2020 4
4 2000 2000 2000 1