s <- c("West", "North", "South", "East")
s <- ordered(s, c("North", "South", "West", "East")) #Define the order in which you want it
s <- sort(s) #Now sort vector. This could have been done as part of previous step itself
s
# [1] North South West East
# Levels: North < South < West < East