seasons <- c("Summer", "Fall", "Winter", "Spring")
winter <- factor("Winter", levels = seasons)
# All members, in definition order
values <- levels(winter)
# values = Summer Fall Winter Spring
count <- length(values)
# count = 4
cat("values =", values, "\n")
cat("count =", count, "\n")