# 因子オブジェクトに順位をつける方法
layer <- factor(c("k2", "k1", "s2", "s1", "b2", "b1"))	# 順序なし因子オブジェクト
layer <- ordered(layer, levels=layer)	# 順位を与える
layer[1] < layer[5]	# TRUE
layer[5] < layer[4]	# FALSE