R function: levels

f <- factor(c("foo", "bar", "bar", "foo", "baz", "bar"))

# Compare with -> summary
levels(f)
# [1] "bar" "baz" "foo"