nlevels(x)
nlevels
factor
NA
The actual factor levels (if they exist) can be obtained with the levels function.
levels
nlevels(gl(3,7)) # = 3