Convert some selected columns from numeric to factor columns

for (i in c(2,8,9,10,11)){
  mtcars[,i]<-factor(mtcars[,i])
}

str(mtcars)
'data.frame':   32 obs. of  11 variables:
 $ mpg : num  21 21 22.8 21.4 18.7 18.1 14.3 24.4 22.8 19.2 ...
 $ cyl : Factor w/ 3 levels "4","6","8": 2 2 1 2 3 2 3 1 1 2 ...
 $ disp: num  160 160 108 258 360 ...
 $ hp  : num  110 110 93 110 175 105 245 62 95 123 ...
 $ drat: num  3.9 3.9 3.85 3.08 3.15 2.76 3.21 3.69 3.92 3.92 ...
 $ wt  : num  2.62 2.88 2.32 3.21 3.44 ...
 $ qsec: num  16.5 17 18.6 19.4 17 ...
 $ vs  : Factor w/ 2 levels "0","1": 1 1 2 2 1 2 1 2 2 2 ...
 $ am  : Factor w/ 2 levels "0","1": 2 2 2 1 1 1 1 1 1 1 ...
 $ gear: Factor w/ 3 levels "3","4","5": 2 2 2 1 1 1 1 2 2 2 ...
 $ carb: Factor w/ 6 levels "1","2","3","4",..: 4 4 1 1 2 1 4 2 2 4 ...
LS0tDQp0aXRsZTogIlIgTm90ZWJvb2siDQpvdXRwdXQ6IGh0bWxfbm90ZWJvb2sNCi0tLQ0KDQpDb252ZXJ0IHNvbWUgc2VsZWN0ZWQgY29sdW1ucyBmcm9tIG51bWVyaWMgdG8gZmFjdG9yIGNvbHVtbnMNCg0KYGBge3J9DQpoZWFkKG10Y2FycykNCg0KIyBDb252ZXJ0IGNvbHVtbnMgMiw4LDksMTAsMTEgdG8gZmFjdG9yIGNvbHVtbnMNCg0Kc3RyKG10Y2FycykNCg0KYGBgDQoNCmBgYHtyfQ0KZm9yIChpIGluIGMoMiw4LDksMTAsMTEpKXsNCiAgbXRjYXJzWyxpXTwtZmFjdG9yKG10Y2Fyc1ssaV0pDQp9DQoNCnN0cihtdGNhcnMpDQoNCmBgYA0KDQo=