Please help me with this using R :

SH152 4346315 SH196 4719532 SH185 4508675 SH166 3604809 SH198 4145447 SH202 3680770 SH293 3797923 SH234 4829817 SH225 3116041 SH173 1064562 SH140 4863625 SH195 2022312 SH146 1273350 SH270 1212253 SH231 3651903 SH103 2639741 SH298 3882100 SH199 4185800 SH186 4528562 SH111 3411919 SH151 1158648 SH145 4771950 SH114 1361385 SH193 3544021 SH200 2562529 SH248 3902950 SH280 1637941 SH105 4869077 SH267 4044964 SH167 4521690 SH220 1739585 SH227 3332663 SH100 1115343 SH129 2071923 SH188 2623221 SH226 3490146 SH149 4812033 SH215 2081958 SH291 1403395 SH246 1266217 SH192 1649880 SH243 1724006 SH120 1915038 SH284 1618790 SH206 1142941 SH258 2741163 SH157 1609704 SH295 2476827 SH126 1748310 SH297 1123602 SH153 1780853 SH137 1062285 SH256 1167785 SH161 3050802 SH150 4585755 SH155 1473366 SH124 3108875 SH162 2914001 SH180 3645537 SH216 3543056 SH257 3172742 SH189 4520589 SH222 2089771 SH113 2556777 SH183 2296330 SH110 3294099 SH283 3126608 SH281 1956467 SH119 2124203 SH268 2577728 SH269 2148073 SH191 4001575 SH176 4133477 SH156 3010240 SH138 2364551 SH177 1092441 SH260 4657780 SH107 2799505 SH101 1996254 SH299 2340717 SH164 4681921 SH165 2611473 SH175 3262399 SH263 1488269 SH112 4986421 SH134 4926174 SH154 2187636 SH158 3195821 SH109 2362793 SH218 1220250 SH278 2625135 SH108 3766324 SH266 2414378 SH236 1462015 SH230 2466524 SH250 1892754 SH182 2953852 SH104 4666170 SH160 2642071 SH219 2358973 SH205 3478269 SH197 3384352 SH123 3145323 SH131 3491324 SH273 3028841 SH233 1320765 SH136 4931086 SH232 3850122 SH228 3037116 SH264 2469506 SH272 1769063 SH179 2689506 SH106 4767687 SH223 1724676 SH276 2700549 SH121 3110717 SH261 4476456 SH238 1382100 SH274 4400491 SH275 3270796 SH132 1000425 SH289 1365837 SH292 4105762 SH277 2750936 SH241 4001642 SH262 1871869 SH187 1885932 SH237 2973238 SH217 1185452 SH168 3729609 SH235 4816975 SH139 1629355 SH128 2660589 SH125 2170722 SH122 2833335 SH240 3361424 SH210 2818899 SH102 4515431 SH296 3068178 SH259 1589697 SH127 1426232 SH159 2698666 SH288 3233256 SH282 1311876 SH287 2884250 SH143 1019621 SH214 3150097 SH172 4837062 SH254 4822741 SH211 1942010 SH209 4875689 SH245 2081300 SH118 1834099 SH251 1949389 SH135 1140832 SH247 2237101 SH265 1026431 SH174 1317667 SH169 1376695 SH253 3349897 SH178 3586235 SH290 3660245 SH207 4339420 SH271 4273831 SH229 1073395 SH244 4470812 SH242 4332447 SH294 4253316 SH213 4266783 SH142 4449431 SH279 1349193 SH163 3340136 SH170 3059422 SH147 4561501 SH194 1600029 SH252 3602072 SH117 4264156 SH115 2338233 SH144 2893890 SH130 2734106 SH255 3959934 SH133 4579763 SH184 3968788 SH249 3257276 SH208 3902982 SH212 1798086 SH239 3143460 SH286 4182554 SH221 4854558 SH181 2147251 SH116 2517639 SH201 3948096 SH190 2545323 SH171 4212923 SH203 1689545 SH300 4464252 SH204 1409102 SH224 2233966 SH141 3795762 SH148 1031395

This is a dataframe of office numbers and their accompanying phone numbers. You will see they are not sorted.

Change the prefix on the office numbers from "SH" to "Skeen". Hint : gsub()

Get all the phone numbers from each floor, ordered by office number. Save in separate vectors. Hint: Use regexec() and regmatches() to extract the floor numbers and which()to get the row numbers.