批量转换为因子变量

居住地、婚姻状况、教育水平……等名义变量，要转换为因子类型的，这些列在数据框中也不是紧邻的，有么有批量转换方法？而不是逐条  

PhoneData$居住地 <- as.factor(PhoneData$居住地) 

……

----------2013/11/13----------

用一个for循环，适当的方式表示数据框的列，就可以轻易完成了：

for (i in c(1,3,5,6,9,13,14,15)){
  PhoneData[,i] <- as.factor(PhoneData[,i])
}