Cluster analysis on wholesale customers
Nagaraja
06/01/2020
library(factoextra)## Loading required package: ggplot2## Warning: package 'ggplot2' was built under R version 3.5.3## Welcome! Related Books: `Practical Guide To Cluster Analysis in R` at https://goo.gl/13EFCZlibrary(fpc)
library(NbClust)
library(ggplot2)
library(clValid)## Warning: package 'clValid' was built under R version 3.5.3## Loading required package: clusterlibrary(dplyr)## Warning: package 'dplyr' was built under R version 3.5.3##
## Attaching package: 'dplyr'## The following objects are masked from 'package:stats':
##
## filter, lag## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, uniondata=read.csv("C:\\Users\\SND\\Desktop\\wholesale\\Wholesale _customers .csv")
data## Channel Region Fresh Milk Grocery Frozen Detergents_Paper Delicassen
## 1 2 3 12669 9656 7561 214 2674 1338
## 2 2 3 7057 9810 9568 1762 3293 1776
## 3 2 3 6353 8808 7684 2405 3516 7844
## 4 1 3 13265 1196 4221 6404 507 1788
## 5 2 3 22615 5410 7198 3915 1777 5185
## 6 2 3 9413 8259 5126 666 1795 1451
## 7 2 3 12126 3199 6975 480 3140 545
## 8 2 3 7579 4956 9426 1669 3321 2566
## 9 1 3 5963 3648 6192 425 1716 750
## 10 2 3 6006 11093 18881 1159 7425 2098
## 11 2 3 3366 5403 12974 4400 5977 1744
## 12 2 3 13146 1124 4523 1420 549 497
## 13 2 3 31714 12319 11757 287 3881 2931
## 14 2 3 21217 6208 14982 3095 6707 602
## 15 2 3 24653 9465 12091 294 5058 2168
## 16 1 3 10253 1114 3821 397 964 412
## 17 2 3 1020 8816 12121 134 4508 1080
## 18 1 3 5876 6157 2933 839 370 4478
## 19 2 3 18601 6327 10099 2205 2767 3181
## 20 1 3 7780 2495 9464 669 2518 501
## 21 2 3 17546 4519 4602 1066 2259 2124
## 22 1 3 5567 871 2010 3383 375 569
## 23 1 3 31276 1917 4469 9408 2381 4334
## 24 2 3 26373 36423 22019 5154 4337 16523
## 25 2 3 22647 9776 13792 2915 4482 5778
## 26 2 3 16165 4230 7595 201 4003 57
## 27 1 3 9898 961 2861 3151 242 833
## 28 1 3 14276 803 3045 485 100 518
## 29 2 3 4113 20484 25957 1158 8604 5206
## 30 1 3 43088 2100 2609 1200 1107 823
## 31 1 3 18815 3610 11107 1148 2134 2963
## 32 1 3 2612 4339 3133 2088 820 985
## 33 1 3 21632 1318 2886 266 918 405
## 34 1 3 29729 4786 7326 6130 361 1083
## 35 1 3 1502 1979 2262 425 483 395
## 36 2 3 688 5491 11091 833 4239 436
## 37 1 3 29955 4362 5428 1729 862 4626
## 38 2 3 15168 10556 12477 1920 6506 714
## 39 2 3 4591 15729 16709 33 6956 433
## 40 1 3 56159 555 902 10002 212 2916
## 41 1 3 24025 4332 4757 9510 1145 5864
## 42 1 3 19176 3065 5956 2033 2575 2802
## 43 2 3 10850 7555 14961 188 6899 46
## 44 2 3 630 11095 23998 787 9529 72
## 45 2 3 9670 7027 10471 541 4618 65
## 46 2 3 5181 22044 21531 1740 7353 4985
## 47 2 3 3103 14069 21955 1668 6792 1452
## 48 2 3 44466 54259 55571 7782 24171 6465
## 49 2 3 11519 6152 10868 584 5121 1476
## 50 2 3 4967 21412 28921 1798 13583 1163
## 51 1 3 6269 1095 1980 3860 609 2162
## 52 1 3 3347 4051 6996 239 1538 301
## 53 2 3 40721 3916 5876 532 2587 1278
## 54 2 3 491 10473 11532 744 5611 224
## 55 1 3 27329 1449 1947 2436 204 1333
## 56 1 3 5264 3683 5005 1057 2024 1130
## 57 2 3 4098 29892 26866 2616 17740 1340
## 58 2 3 5417 9933 10487 38 7572 1282
## 59 1 3 13779 1970 1648 596 227 436
## 60 1 3 6137 5360 8040 129 3084 1603
## 61 2 3 8590 3045 7854 96 4095 225
## 62 2 3 35942 38369 59598 3254 26701 2017
## 63 2 3 7823 6245 6544 4154 4074 964
## 64 2 3 9396 11601 15775 2896 7677 1295
## 65 1 3 4760 1227 3250 3724 1247 1145
## 66 2 3 85 20959 45828 36 24231 1423
## 67 1 3 9 1534 7417 175 3468 27
## 68 2 3 19913 6759 13462 1256 5141 834
## 69 1 3 2446 7260 3993 5870 788 3095
## 70 1 3 8352 2820 1293 779 656 144
## 71 1 3 16705 2037 3202 10643 116 1365
## 72 1 3 18291 1266 21042 5373 4173 14472
## 73 1 3 4420 5139 2661 8872 1321 181
## 74 2 3 19899 5332 8713 8132 764 648
## 75 2 3 8190 6343 9794 1285 1901 1780
## 76 1 3 20398 1137 3 4407 3 975
## 77 1 3 717 3587 6532 7530 529 894
## 78 2 3 12205 12697 28540 869 12034 1009
## 79 1 3 10766 1175 2067 2096 301 167
## 80 1 3 1640 3259 3655 868 1202 1653
## 81 1 3 7005 829 3009 430 610 529
## 82 2 3 219 9540 14403 283 7818 156
## 83 2 3 10362 9232 11009 737 3537 2342
## 84 1 3 20874 1563 1783 2320 550 772
## 85 2 3 11867 3327 4814 1178 3837 120
## 86 2 3 16117 46197 92780 1026 40827 2944
## 87 2 3 22925 73498 32114 987 20070 903
## 88 1 3 43265 5025 8117 6312 1579 14351
## 89 1 3 7864 542 4042 9735 165 46
## 90 1 3 24904 3836 5330 3443 454 3178
## 91 1 3 11405 596 1638 3347 69 360
## 92 1 3 12754 2762 2530 8693 627 1117
## 93 2 3 9198 27472 32034 3232 18906 5130
## 94 1 3 11314 3090 2062 35009 71 2698
## 95 2 3 5626 12220 11323 206 5038 244
## 96 1 3 3 2920 6252 440 223 709
## 97 2 3 23 2616 8118 145 3874 217
## 98 1 3 403 254 610 774 54 63
## 99 1 3 503 112 778 895 56 132
## 100 1 3 9658 2182 1909 5639 215 323
## 101 2 3 11594 7779 12144 3252 8035 3029
## 102 2 3 1420 10810 16267 1593 6766 1838
## 103 2 3 2932 6459 7677 2561 4573 1386
## 104 1 3 56082 3504 8906 18028 1480 2498
## 105 1 3 14100 2132 3445 1336 1491 548
## 106 1 3 15587 1014 3970 910 139 1378
## 107 2 3 1454 6337 10704 133 6830 1831
## 108 2 3 8797 10646 14886 2471 8969 1438
## 109 2 3 1531 8397 6981 247 2505 1236
## 110 2 3 1406 16729 28986 673 836 3
## 111 1 3 11818 1648 1694 2276 169 1647
## 112 2 3 12579 11114 17569 805 6457 1519
## 113 1 3 19046 2770 2469 8853 483 2708
## 114 1 3 14438 2295 1733 3220 585 1561
## 115 1 3 18044 1080 2000 2555 118 1266
## 116 1 3 11134 793 2988 2715 276 610
## 117 1 3 11173 2521 3355 1517 310 222
## 118 1 3 6990 3880 5380 1647 319 1160
## 119 1 3 20049 1891 2362 5343 411 933
## 120 1 3 8258 2344 2147 3896 266 635
## 121 1 3 17160 1200 3412 2417 174 1136
## 122 1 3 4020 3234 1498 2395 264 255
## 123 1 3 12212 201 245 1991 25 860
## 124 2 3 11170 10769 8814 2194 1976 143
## 125 1 3 36050 1642 2961 4787 500 1621
## 126 1 3 76237 3473 7102 16538 778 918
## 127 1 3 19219 1840 1658 8195 349 483
## 128 2 3 21465 7243 10685 880 2386 2749
## 129 1 3 140 8847 3823 142 1062 3
## 130 1 3 42312 926 1510 1718 410 1819
## 131 1 3 7149 2428 699 6316 395 911
## 132 1 3 2101 589 314 346 70 310
## 133 1 3 14903 2032 2479 576 955 328
## 134 1 3 9434 1042 1235 436 256 396
## 135 1 3 7388 1882 2174 720 47 537
## 136 1 3 6300 1289 2591 1170 199 326
## 137 1 3 4625 8579 7030 4575 2447 1542
## 138 1 3 3087 8080 8282 661 721 36
## 139 1 3 13537 4257 5034 155 249 3271
## 140 1 3 5387 4979 3343 825 637 929
## 141 1 3 17623 4280 7305 2279 960 2616
## 142 1 3 30379 13252 5189 321 51 1450
## 143 1 3 37036 7152 8253 2995 20 3
## 144 1 3 10405 1596 1096 8425 399 318
## 145 1 3 18827 3677 1988 118 516 201
## 146 2 3 22039 8384 34792 42 12591 4430
## 147 1 3 7769 1936 2177 926 73 520
## 148 1 3 9203 3373 2707 1286 1082 526
## 149 1 3 5924 584 542 4052 283 434
## 150 1 3 31812 1433 1651 800 113 1440
## 151 1 3 16225 1825 1765 853 170 1067
## 152 1 3 1289 3328 2022 531 255 1774
## 153 1 3 18840 1371 3135 3001 352 184
## 154 1 3 3463 9250 2368 779 302 1627
## 155 1 3 622 55 137 75 7 8
## 156 2 3 1989 10690 19460 233 11577 2153
## 157 2 3 3830 5291 14855 317 6694 3182
## 158 1 3 17773 1366 2474 3378 811 418
## 159 2 3 2861 6570 9618 930 4004 1682
## 160 2 3 355 7704 14682 398 8077 303
## 161 2 3 1725 3651 12822 824 4424 2157
## 162 1 3 12434 540 283 1092 3 2233
## 163 1 3 15177 2024 3810 2665 232 610
## 164 2 3 5531 15726 26870 2367 13726 446
## 165 2 3 5224 7603 8584 2540 3674 238
## 166 2 3 15615 12653 19858 4425 7108 2379
## 167 2 3 4822 6721 9170 993 4973 3637
## 168 1 3 2926 3195 3268 405 1680 693
## 169 1 3 5809 735 803 1393 79 429
## 170 1 3 5414 717 2155 2399 69 750
## 171 2 3 260 8675 13430 1116 7015 323
## 172 2 3 200 25862 19816 651 8773 6250
## 173 1 3 955 5479 6536 333 2840 707
## 174 2 3 514 7677 19805 937 9836 716
## 175 1 3 286 1208 5241 2515 153 1442
## 176 2 3 2343 7845 11874 52 4196 1697
## 177 1 3 45640 6958 6536 7368 1532 230
## 178 1 3 12759 7330 4533 1752 20 2631
## 179 1 3 11002 7075 4945 1152 120 395
## 180 1 3 3157 4888 2500 4477 273 2165
## 181 1 3 12356 6036 8887 402 1382 2794
## 182 1 3 112151 29627 18148 16745 4948 8550
## 183 1 3 694 8533 10518 443 6907 156
## 184 1 3 36847 43950 20170 36534 239 47943
## 185 1 3 327 918 4710 74 334 11
## 186 1 3 8170 6448 1139 2181 58 247
## 187 1 3 3009 521 854 3470 949 727
## 188 1 3 2438 8002 9819 6269 3459 3
## 189 2 3 8040 7639 11687 2758 6839 404
## 190 2 3 834 11577 11522 275 4027 1856
## 191 1 3 16936 6250 1981 7332 118 64
## 192 1 3 13624 295 1381 890 43 84
## 193 1 3 5509 1461 2251 547 187 409
## 194 2 3 180 3485 20292 959 5618 666
## 195 1 3 7107 1012 2974 806 355 1142
## 196 1 3 17023 5139 5230 7888 330 1755
## 197 1 1 30624 7209 4897 18711 763 2876
## 198 2 1 2427 7097 10391 1127 4314 1468
## 199 1 1 11686 2154 6824 3527 592 697
## 200 1 1 9670 2280 2112 520 402 347
## 201 2 1 3067 13240 23127 3941 9959 731
## 202 2 1 4484 14399 24708 3549 14235 1681
## 203 1 1 25203 11487 9490 5065 284 6854
## 204 1 1 583 685 2216 469 954 18
## 205 1 1 1956 891 5226 1383 5 1328
## 206 2 1 1107 11711 23596 955 9265 710
## 207 1 1 6373 780 950 878 288 285
## 208 2 1 2541 4737 6089 2946 5316 120
## 209 1 1 1537 3748 5838 1859 3381 806
## 210 2 1 5550 12729 16767 864 12420 797
## 211 1 1 18567 1895 1393 1801 244 2100
## 212 2 1 12119 28326 39694 4736 19410 2870
## 213 1 1 7291 1012 2062 1291 240 1775
## 214 1 1 3317 6602 6861 1329 3961 1215
## 215 2 1 2362 6551 11364 913 5957 791
## 216 1 1 2806 10765 15538 1374 5828 2388
## 217 2 1 2532 16599 36486 179 13308 674
## 218 1 1 18044 1475 2046 2532 130 1158
## 219 2 1 18 7504 15205 1285 4797 6372
## 220 1 1 4155 367 1390 2306 86 130
## 221 1 1 14755 899 1382 1765 56 749
## 222 1 1 5396 7503 10646 91 4167 239
## 223 1 1 5041 1115 2856 7496 256 375
## 224 2 1 2790 2527 5265 5612 788 1360
## 225 1 1 7274 659 1499 784 70 659
## 226 1 1 12680 3243 4157 660 761 786
## 227 2 1 20782 5921 9212 1759 2568 1553
## 228 1 1 4042 2204 1563 2286 263 689
## 229 1 1 1869 577 572 950 4762 203
## 230 1 1 8656 2746 2501 6845 694 980
## 231 2 1 11072 5989 5615 8321 955 2137
## 232 1 1 2344 10678 3828 1439 1566 490
## 233 1 1 25962 1780 3838 638 284 834
## 234 1 1 964 4984 3316 937 409 7
## 235 1 1 15603 2703 3833 4260 325 2563
## 236 1 1 1838 6380 2824 1218 1216 295
## 237 1 1 8635 820 3047 2312 415 225
## 238 1 1 18692 3838 593 4634 28 1215
## 239 1 1 7363 475 585 1112 72 216
## 240 1 1 47493 2567 3779 5243 828 2253
## 241 1 1 22096 3575 7041 11422 343 2564
## 242 1 1 24929 1801 2475 2216 412 1047
## 243 1 1 18226 659 2914 3752 586 578
## 244 1 1 11210 3576 5119 561 1682 2398
## 245 1 1 6202 7775 10817 1183 3143 1970
## 246 2 1 3062 6154 13916 230 8933 2784
## 247 1 1 8885 2428 1777 1777 430 610
## 248 1 1 13569 346 489 2077 44 659
## 249 1 1 15671 5279 2406 559 562 572
## 250 1 1 8040 3795 2070 6340 918 291
## 251 1 1 3191 1993 1799 1730 234 710
## 252 2 1 6134 23133 33586 6746 18594 5121
## 253 1 1 6623 1860 4740 7683 205 1693
## 254 1 1 29526 7961 16966 432 363 1391
## 255 1 1 10379 17972 4748 4686 1547 3265
## 256 1 1 31614 489 1495 3242 111 615
## 257 1 1 11092 5008 5249 453 392 373
## 258 1 1 8475 1931 1883 5004 3593 987
## 259 1 1 56083 4563 2124 6422 730 3321
## 260 1 1 53205 4959 7336 3012 967 818
## 261 1 1 9193 4885 2157 327 780 548
## 262 1 1 7858 1110 1094 6818 49 287
## 263 1 1 23257 1372 1677 982 429 655
## 264 1 1 2153 1115 6684 4324 2894 411
## 265 2 1 1073 9679 15445 61 5980 1265
## 266 1 1 5909 23527 13699 10155 830 3636
## 267 2 1 572 9763 22182 2221 4882 2563
## 268 1 1 20893 1222 2576 3975 737 3628
## 269 2 1 11908 8053 19847 1069 6374 698
## 270 1 1 15218 258 1138 2516 333 204
## 271 1 1 4720 1032 975 5500 197 56
## 272 1 1 2083 5007 1563 1120 147 1550
## 273 1 1 514 8323 6869 529 93 1040
## 274 1 3 36817 3045 1493 4802 210 1824
## 275 1 3 894 1703 1841 744 759 1153
## 276 1 3 680 1610 223 862 96 379
## 277 1 3 27901 3749 6964 4479 603 2503
## 278 1 3 9061 829 683 16919 621 139
## 279 1 3 11693 2317 2543 5845 274 1409
## 280 2 3 17360 6200 9694 1293 3620 1721
## 281 1 3 3366 2884 2431 977 167 1104
## 282 2 3 12238 7108 6235 1093 2328 2079
## 283 1 3 49063 3965 4252 5970 1041 1404
## 284 1 3 25767 3613 2013 10303 314 1384
## 285 1 3 68951 4411 12609 8692 751 2406
## 286 1 3 40254 640 3600 1042 436 18
## 287 1 3 7149 2247 1242 1619 1226 128
## 288 1 3 15354 2102 2828 8366 386 1027
## 289 1 3 16260 594 1296 848 445 258
## 290 1 3 42786 286 471 1388 32 22
## 291 1 3 2708 2160 2642 502 965 1522
## 292 1 3 6022 3354 3261 2507 212 686
## 293 1 3 2838 3086 4329 3838 825 1060
## 294 2 2 3996 11103 12469 902 5952 741
## 295 1 2 21273 2013 6550 909 811 1854
## 296 2 2 7588 1897 5234 417 2208 254
## 297 1 2 19087 1304 3643 3045 710 898
## 298 2 2 8090 3199 6986 1455 3712 531
## 299 2 2 6758 4560 9965 934 4538 1037
## 300 1 2 444 879 2060 264 290 259
## 301 2 2 16448 6243 6360 824 2662 2005
## 302 2 2 5283 13316 20399 1809 8752 172
## 303 2 2 2886 5302 9785 364 6236 555
## 304 2 2 2599 3688 13829 492 10069 59
## 305 2 2 161 7460 24773 617 11783 2410
## 306 2 2 243 12939 8852 799 3909 211
## 307 2 2 6468 12867 21570 1840 7558 1543
## 308 1 2 17327 2374 2842 1149 351 925
## 309 1 2 6987 1020 3007 416 257 656
## 310 2 2 918 20655 13567 1465 6846 806
## 311 1 2 7034 1492 2405 12569 299 1117
## 312 1 2 29635 2335 8280 3046 371 117
## 313 2 2 2137 3737 19172 1274 17120 142
## 314 1 2 9784 925 2405 4447 183 297
## 315 1 2 10617 1795 7647 1483 857 1233
## 316 2 2 1479 14982 11924 662 3891 3508
## 317 1 2 7127 1375 2201 2679 83 1059
## 318 1 2 1182 3088 6114 978 821 1637
## 319 1 2 11800 2713 3558 2121 706 51
## 320 2 2 9759 25071 17645 1128 12408 1625
## 321 1 2 1774 3696 2280 514 275 834
## 322 1 2 9155 1897 5167 2714 228 1113
## 323 1 2 15881 713 3315 3703 1470 229
## 324 1 2 13360 944 11593 915 1679 573
## 325 1 2 25977 3587 2464 2369 140 1092
## 326 1 2 32717 16784 13626 60869 1272 5609
## 327 1 2 4414 1610 1431 3498 387 834
## 328 1 2 542 899 1664 414 88 522
## 329 1 2 16933 2209 3389 7849 210 1534
## 330 1 2 5113 1486 4583 5127 492 739
## 331 1 2 9790 1786 5109 3570 182 1043
## 332 2 2 11223 14881 26839 1234 9606 1102
## 333 1 2 22321 3216 1447 2208 178 2602
## 334 2 2 8565 4980 67298 131 38102 1215
## 335 2 2 16823 928 2743 11559 332 3486
## 336 2 2 27082 6817 10790 1365 4111 2139
## 337 1 2 13970 1511 1330 650 146 778
## 338 1 2 9351 1347 2611 8170 442 868
## 339 1 2 3 333 7021 15601 15 550
## 340 1 2 2617 1188 5332 9584 573 1942
## 341 2 3 381 4025 9670 388 7271 1371
## 342 2 3 2320 5763 11238 767 5162 2158
## 343 1 3 255 5758 5923 349 4595 1328
## 344 2 3 1689 6964 26316 1456 15469 37
## 345 1 3 3043 1172 1763 2234 217 379
## 346 1 3 1198 2602 8335 402 3843 303
## 347 2 3 2771 6939 15541 2693 6600 1115
## 348 2 3 27380 7184 12311 2809 4621 1022
## 349 1 3 3428 2380 2028 1341 1184 665
## 350 2 3 5981 14641 20521 2005 12218 445
## 351 1 3 3521 1099 1997 1796 173 995
## 352 2 3 1210 10044 22294 1741 12638 3137
## 353 1 3 608 1106 1533 830 90 195
## 354 2 3 117 6264 21203 228 8682 1111
## 355 1 3 14039 7393 2548 6386 1333 2341
## 356 1 3 190 727 2012 245 184 127
## 357 1 3 22686 134 218 3157 9 548
## 358 2 3 37 1275 22272 137 6747 110
## 359 1 3 759 18664 1660 6114 536 4100
## 360 1 3 796 5878 2109 340 232 776
## 361 1 3 19746 2872 2006 2601 468 503
## 362 1 3 4734 607 864 1206 159 405
## 363 1 3 2121 1601 2453 560 179 712
## 364 1 3 4627 997 4438 191 1335 314
## 365 1 3 2615 873 1524 1103 514 468
## 366 2 3 4692 6128 8025 1619 4515 3105
## 367 1 3 9561 2217 1664 1173 222 447
## 368 1 3 3477 894 534 1457 252 342
## 369 1 3 22335 1196 2406 2046 101 558
## 370 1 3 6211 337 683 1089 41 296
## 371 2 3 39679 3944 4955 1364 523 2235
## 372 1 3 20105 1887 1939 8164 716 790
## 373 1 3 3884 3801 1641 876 397 4829
## 374 2 3 15076 6257 7398 1504 1916 3113
## 375 1 3 6338 2256 1668 1492 311 686
## 376 1 3 5841 1450 1162 597 476 70
## 377 2 3 3136 8630 13586 5641 4666 1426
## 378 1 3 38793 3154 2648 1034 96 1242
## 379 1 3 3225 3294 1902 282 68 1114
## 380 2 3 4048 5164 10391 130 813 179
## 381 1 3 28257 944 2146 3881 600 270
## 382 1 3 17770 4591 1617 9927 246 532
## 383 1 3 34454 7435 8469 2540 1711 2893
## 384 1 3 1821 1364 3450 4006 397 361
## 385 1 3 10683 21858 15400 3635 282 5120
## 386 1 3 11635 922 1614 2583 192 1068
## 387 1 3 1206 3620 2857 1945 353 967
## 388 1 3 20918 1916 1573 1960 231 961
## 389 1 3 9785 848 1172 1677 200 406
## 390 1 3 9385 1530 1422 3019 227 684
## 391 1 3 3352 1181 1328 5502 311 1000
## 392 1 3 2647 2761 2313 907 95 1827
## 393 1 3 518 4180 3600 659 122 654
## 394 1 3 23632 6730 3842 8620 385 819
## 395 1 3 12377 865 3204 1398 149 452
## 396 1 3 9602 1316 1263 2921 841 290
## 397 2 3 4515 11991 9345 2644 3378 2213
## 398 1 3 11535 1666 1428 6838 64 743
## 399 1 3 11442 1032 582 5390 74 247
## 400 1 3 9612 577 935 1601 469 375
## 401 1 3 4446 906 1238 3576 153 1014
## 402 1 3 27167 2801 2128 13223 92 1902
## 403 1 3 26539 4753 5091 220 10 340
## 404 1 3 25606 11006 4604 127 632 288
## 405 1 3 18073 4613 3444 4324 914 715
## 406 1 3 6884 1046 1167 2069 593 378
## 407 1 3 25066 5010 5026 9806 1092 960
## 408 2 3 7362 12844 18683 2854 7883 553
## 409 2 3 8257 3880 6407 1646 2730 344
## 410 1 3 8708 3634 6100 2349 2123 5137
## 411 1 3 6633 2096 4563 1389 1860 1892
## 412 1 3 2126 3289 3281 1535 235 4365
## 413 1 3 97 3605 12400 98 2970 62
## 414 1 3 4983 4859 6633 17866 912 2435
## 415 1 3 5969 1990 3417 5679 1135 290
## 416 2 3 7842 6046 8552 1691 3540 1874
## 417 2 3 4389 10940 10908 848 6728 993
## 418 1 3 5065 5499 11055 364 3485 1063
## 419 2 3 660 8494 18622 133 6740 776
## 420 1 3 8861 3783 2223 633 1580 1521
## 421 1 3 4456 5266 13227 25 6818 1393
## 422 2 3 17063 4847 9053 1031 3415 1784
## 423 1 3 26400 1377 4172 830 948 1218
## 424 2 3 17565 3686 4657 1059 1803 668
## 425 2 3 16980 2884 12232 874 3213 249
## 426 1 3 11243 2408 2593 15348 108 1886
## 427 1 3 13134 9347 14316 3141 5079 1894
## 428 1 3 31012 16687 5429 15082 439 1163
## 429 1 3 3047 5970 4910 2198 850 317
## 430 1 3 8607 1750 3580 47 84 2501
## 431 1 3 3097 4230 16483 575 241 2080
## 432 1 3 8533 5506 5160 13486 1377 1498
## 433 1 3 21117 1162 4754 269 1328 395
## 434 1 3 1982 3218 1493 1541 356 1449
## 435 1 3 16731 3922 7994 688 2371 838
## 436 1 3 29703 12051 16027 13135 182 2204
## 437 1 3 39228 1431 764 4510 93 2346
## 438 2 3 14531 15488 30243 437 14841 1867
## 439 1 3 10290 1981 2232 1038 168 2125
## 440 1 3 2787 1698 2510 65 477 52dim(data)## [1] 440 8length(data)## [1] 8summary(data)## Channel Region Fresh Milk
## Min. :1.000 Min. :1.000 Min. : 3 Min. : 55
## 1st Qu.:1.000 1st Qu.:2.000 1st Qu.: 3128 1st Qu.: 1533
## Median :1.000 Median :3.000 Median : 8504 Median : 3627
## Mean :1.323 Mean :2.543 Mean : 12000 Mean : 5796
## 3rd Qu.:2.000 3rd Qu.:3.000 3rd Qu.: 16934 3rd Qu.: 7190
## Max. :2.000 Max. :3.000 Max. :112151 Max. :73498
## Grocery Frozen Detergents_Paper Delicassen
## Min. : 3 Min. : 25.0 Min. : 3.0 Min. : 3.0
## 1st Qu.: 2153 1st Qu.: 742.2 1st Qu.: 256.8 1st Qu.: 408.2
## Median : 4756 Median : 1526.0 Median : 816.5 Median : 965.5
## Mean : 7951 Mean : 3071.9 Mean : 2881.5 Mean : 1524.9
## 3rd Qu.:10656 3rd Qu.: 3554.2 3rd Qu.: 3922.0 3rd Qu.: 1820.2
## Max. :92780 Max. :60869.0 Max. :40827.0 Max. :47943.0data1=data[c(-1,-2)]
data1## Fresh Milk Grocery Frozen Detergents_Paper Delicassen
## 1 12669 9656 7561 214 2674 1338
## 2 7057 9810 9568 1762 3293 1776
## 3 6353 8808 7684 2405 3516 7844
## 4 13265 1196 4221 6404 507 1788
## 5 22615 5410 7198 3915 1777 5185
## 6 9413 8259 5126 666 1795 1451
## 7 12126 3199 6975 480 3140 545
## 8 7579 4956 9426 1669 3321 2566
## 9 5963 3648 6192 425 1716 750
## 10 6006 11093 18881 1159 7425 2098
## 11 3366 5403 12974 4400 5977 1744
## 12 13146 1124 4523 1420 549 497
## 13 31714 12319 11757 287 3881 2931
## 14 21217 6208 14982 3095 6707 602
## 15 24653 9465 12091 294 5058 2168
## 16 10253 1114 3821 397 964 412
## 17 1020 8816 12121 134 4508 1080
## 18 5876 6157 2933 839 370 4478
## 19 18601 6327 10099 2205 2767 3181
## 20 7780 2495 9464 669 2518 501
## 21 17546 4519 4602 1066 2259 2124
## 22 5567 871 2010 3383 375 569
## 23 31276 1917 4469 9408 2381 4334
## 24 26373 36423 22019 5154 4337 16523
## 25 22647 9776 13792 2915 4482 5778
## 26 16165 4230 7595 201 4003 57
## 27 9898 961 2861 3151 242 833
## 28 14276 803 3045 485 100 518
## 29 4113 20484 25957 1158 8604 5206
## 30 43088 2100 2609 1200 1107 823
## 31 18815 3610 11107 1148 2134 2963
## 32 2612 4339 3133 2088 820 985
## 33 21632 1318 2886 266 918 405
## 34 29729 4786 7326 6130 361 1083
## 35 1502 1979 2262 425 483 395
## 36 688 5491 11091 833 4239 436
## 37 29955 4362 5428 1729 862 4626
## 38 15168 10556 12477 1920 6506 714
## 39 4591 15729 16709 33 6956 433
## 40 56159 555 902 10002 212 2916
## 41 24025 4332 4757 9510 1145 5864
## 42 19176 3065 5956 2033 2575 2802
## 43 10850 7555 14961 188 6899 46
## 44 630 11095 23998 787 9529 72
## 45 9670 7027 10471 541 4618 65
## 46 5181 22044 21531 1740 7353 4985
## 47 3103 14069 21955 1668 6792 1452
## 48 44466 54259 55571 7782 24171 6465
## 49 11519 6152 10868 584 5121 1476
## 50 4967 21412 28921 1798 13583 1163
## 51 6269 1095 1980 3860 609 2162
## 52 3347 4051 6996 239 1538 301
## 53 40721 3916 5876 532 2587 1278
## 54 491 10473 11532 744 5611 224
## 55 27329 1449 1947 2436 204 1333
## 56 5264 3683 5005 1057 2024 1130
## 57 4098 29892 26866 2616 17740 1340
## 58 5417 9933 10487 38 7572 1282
## 59 13779 1970 1648 596 227 436
## 60 6137 5360 8040 129 3084 1603
## 61 8590 3045 7854 96 4095 225
## 62 35942 38369 59598 3254 26701 2017
## 63 7823 6245 6544 4154 4074 964
## 64 9396 11601 15775 2896 7677 1295
## 65 4760 1227 3250 3724 1247 1145
## 66 85 20959 45828 36 24231 1423
## 67 9 1534 7417 175 3468 27
## 68 19913 6759 13462 1256 5141 834
## 69 2446 7260 3993 5870 788 3095
## 70 8352 2820 1293 779 656 144
## 71 16705 2037 3202 10643 116 1365
## 72 18291 1266 21042 5373 4173 14472
## 73 4420 5139 2661 8872 1321 181
## 74 19899 5332 8713 8132 764 648
## 75 8190 6343 9794 1285 1901 1780
## 76 20398 1137 3 4407 3 975
## 77 717 3587 6532 7530 529 894
## 78 12205 12697 28540 869 12034 1009
## 79 10766 1175 2067 2096 301 167
## 80 1640 3259 3655 868 1202 1653
## 81 7005 829 3009 430 610 529
## 82 219 9540 14403 283 7818 156
## 83 10362 9232 11009 737 3537 2342
## 84 20874 1563 1783 2320 550 772
## 85 11867 3327 4814 1178 3837 120
## 86 16117 46197 92780 1026 40827 2944
## 87 22925 73498 32114 987 20070 903
## 88 43265 5025 8117 6312 1579 14351
## 89 7864 542 4042 9735 165 46
## 90 24904 3836 5330 3443 454 3178
## 91 11405 596 1638 3347 69 360
## 92 12754 2762 2530 8693 627 1117
## 93 9198 27472 32034 3232 18906 5130
## 94 11314 3090 2062 35009 71 2698
## 95 5626 12220 11323 206 5038 244
## 96 3 2920 6252 440 223 709
## 97 23 2616 8118 145 3874 217
## 98 403 254 610 774 54 63
## 99 503 112 778 895 56 132
## 100 9658 2182 1909 5639 215 323
## 101 11594 7779 12144 3252 8035 3029
## 102 1420 10810 16267 1593 6766 1838
## 103 2932 6459 7677 2561 4573 1386
## 104 56082 3504 8906 18028 1480 2498
## 105 14100 2132 3445 1336 1491 548
## 106 15587 1014 3970 910 139 1378
## 107 1454 6337 10704 133 6830 1831
## 108 8797 10646 14886 2471 8969 1438
## 109 1531 8397 6981 247 2505 1236
## 110 1406 16729 28986 673 836 3
## 111 11818 1648 1694 2276 169 1647
## 112 12579 11114 17569 805 6457 1519
## 113 19046 2770 2469 8853 483 2708
## 114 14438 2295 1733 3220 585 1561
## 115 18044 1080 2000 2555 118 1266
## 116 11134 793 2988 2715 276 610
## 117 11173 2521 3355 1517 310 222
## 118 6990 3880 5380 1647 319 1160
## 119 20049 1891 2362 5343 411 933
## 120 8258 2344 2147 3896 266 635
## 121 17160 1200 3412 2417 174 1136
## 122 4020 3234 1498 2395 264 255
## 123 12212 201 245 1991 25 860
## 124 11170 10769 8814 2194 1976 143
## 125 36050 1642 2961 4787 500 1621
## 126 76237 3473 7102 16538 778 918
## 127 19219 1840 1658 8195 349 483
## 128 21465 7243 10685 880 2386 2749
## 129 140 8847 3823 142 1062 3
## 130 42312 926 1510 1718 410 1819
## 131 7149 2428 699 6316 395 911
## 132 2101 589 314 346 70 310
## 133 14903 2032 2479 576 955 328
## 134 9434 1042 1235 436 256 396
## 135 7388 1882 2174 720 47 537
## 136 6300 1289 2591 1170 199 326
## 137 4625 8579 7030 4575 2447 1542
## 138 3087 8080 8282 661 721 36
## 139 13537 4257 5034 155 249 3271
## 140 5387 4979 3343 825 637 929
## 141 17623 4280 7305 2279 960 2616
## 142 30379 13252 5189 321 51 1450
## 143 37036 7152 8253 2995 20 3
## 144 10405 1596 1096 8425 399 318
## 145 18827 3677 1988 118 516 201
## 146 22039 8384 34792 42 12591 4430
## 147 7769 1936 2177 926 73 520
## 148 9203 3373 2707 1286 1082 526
## 149 5924 584 542 4052 283 434
## 150 31812 1433 1651 800 113 1440
## 151 16225 1825 1765 853 170 1067
## 152 1289 3328 2022 531 255 1774
## 153 18840 1371 3135 3001 352 184
## 154 3463 9250 2368 779 302 1627
## 155 622 55 137 75 7 8
## 156 1989 10690 19460 233 11577 2153
## 157 3830 5291 14855 317 6694 3182
## 158 17773 1366 2474 3378 811 418
## 159 2861 6570 9618 930 4004 1682
## 160 355 7704 14682 398 8077 303
## 161 1725 3651 12822 824 4424 2157
## 162 12434 540 283 1092 3 2233
## 163 15177 2024 3810 2665 232 610
## 164 5531 15726 26870 2367 13726 446
## 165 5224 7603 8584 2540 3674 238
## 166 15615 12653 19858 4425 7108 2379
## 167 4822 6721 9170 993 4973 3637
## 168 2926 3195 3268 405 1680 693
## 169 5809 735 803 1393 79 429
## 170 5414 717 2155 2399 69 750
## 171 260 8675 13430 1116 7015 323
## 172 200 25862 19816 651 8773 6250
## 173 955 5479 6536 333 2840 707
## 174 514 7677 19805 937 9836 716
## 175 286 1208 5241 2515 153 1442
## 176 2343 7845 11874 52 4196 1697
## 177 45640 6958 6536 7368 1532 230
## 178 12759 7330 4533 1752 20 2631
## 179 11002 7075 4945 1152 120 395
## 180 3157 4888 2500 4477 273 2165
## 181 12356 6036 8887 402 1382 2794
## 182 112151 29627 18148 16745 4948 8550
## 183 694 8533 10518 443 6907 156
## 184 36847 43950 20170 36534 239 47943
## 185 327 918 4710 74 334 11
## 186 8170 6448 1139 2181 58 247
## 187 3009 521 854 3470 949 727
## 188 2438 8002 9819 6269 3459 3
## 189 8040 7639 11687 2758 6839 404
## 190 834 11577 11522 275 4027 1856
## 191 16936 6250 1981 7332 118 64
## 192 13624 295 1381 890 43 84
## 193 5509 1461 2251 547 187 409
## 194 180 3485 20292 959 5618 666
## 195 7107 1012 2974 806 355 1142
## 196 17023 5139 5230 7888 330 1755
## 197 30624 7209 4897 18711 763 2876
## 198 2427 7097 10391 1127 4314 1468
## 199 11686 2154 6824 3527 592 697
## 200 9670 2280 2112 520 402 347
## 201 3067 13240 23127 3941 9959 731
## 202 4484 14399 24708 3549 14235 1681
## 203 25203 11487 9490 5065 284 6854
## 204 583 685 2216 469 954 18
## 205 1956 891 5226 1383 5 1328
## 206 1107 11711 23596 955 9265 710
## 207 6373 780 950 878 288 285
## 208 2541 4737 6089 2946 5316 120
## 209 1537 3748 5838 1859 3381 806
## 210 5550 12729 16767 864 12420 797
## 211 18567 1895 1393 1801 244 2100
## 212 12119 28326 39694 4736 19410 2870
## 213 7291 1012 2062 1291 240 1775
## 214 3317 6602 6861 1329 3961 1215
## 215 2362 6551 11364 913 5957 791
## 216 2806 10765 15538 1374 5828 2388
## 217 2532 16599 36486 179 13308 674
## 218 18044 1475 2046 2532 130 1158
## 219 18 7504 15205 1285 4797 6372
## 220 4155 367 1390 2306 86 130
## 221 14755 899 1382 1765 56 749
## 222 5396 7503 10646 91 4167 239
## 223 5041 1115 2856 7496 256 375
## 224 2790 2527 5265 5612 788 1360
## 225 7274 659 1499 784 70 659
## 226 12680 3243 4157 660 761 786
## 227 20782 5921 9212 1759 2568 1553
## 228 4042 2204 1563 2286 263 689
## 229 1869 577 572 950 4762 203
## 230 8656 2746 2501 6845 694 980
## 231 11072 5989 5615 8321 955 2137
## 232 2344 10678 3828 1439 1566 490
## 233 25962 1780 3838 638 284 834
## 234 964 4984 3316 937 409 7
## 235 15603 2703 3833 4260 325 2563
## 236 1838 6380 2824 1218 1216 295
## 237 8635 820 3047 2312 415 225
## 238 18692 3838 593 4634 28 1215
## 239 7363 475 585 1112 72 216
## 240 47493 2567 3779 5243 828 2253
## 241 22096 3575 7041 11422 343 2564
## 242 24929 1801 2475 2216 412 1047
## 243 18226 659 2914 3752 586 578
## 244 11210 3576 5119 561 1682 2398
## 245 6202 7775 10817 1183 3143 1970
## 246 3062 6154 13916 230 8933 2784
## 247 8885 2428 1777 1777 430 610
## 248 13569 346 489 2077 44 659
## 249 15671 5279 2406 559 562 572
## 250 8040 3795 2070 6340 918 291
## 251 3191 1993 1799 1730 234 710
## 252 6134 23133 33586 6746 18594 5121
## 253 6623 1860 4740 7683 205 1693
## 254 29526 7961 16966 432 363 1391
## 255 10379 17972 4748 4686 1547 3265
## 256 31614 489 1495 3242 111 615
## 257 11092 5008 5249 453 392 373
## 258 8475 1931 1883 5004 3593 987
## 259 56083 4563 2124 6422 730 3321
## 260 53205 4959 7336 3012 967 818
## 261 9193 4885 2157 327 780 548
## 262 7858 1110 1094 6818 49 287
## 263 23257 1372 1677 982 429 655
## 264 2153 1115 6684 4324 2894 411
## 265 1073 9679 15445 61 5980 1265
## 266 5909 23527 13699 10155 830 3636
## 267 572 9763 22182 2221 4882 2563
## 268 20893 1222 2576 3975 737 3628
## 269 11908 8053 19847 1069 6374 698
## 270 15218 258 1138 2516 333 204
## 271 4720 1032 975 5500 197 56
## 272 2083 5007 1563 1120 147 1550
## 273 514 8323 6869 529 93 1040
## 274 36817 3045 1493 4802 210 1824
## 275 894 1703 1841 744 759 1153
## 276 680 1610 223 862 96 379
## 277 27901 3749 6964 4479 603 2503
## 278 9061 829 683 16919 621 139
## 279 11693 2317 2543 5845 274 1409
## 280 17360 6200 9694 1293 3620 1721
## 281 3366 2884 2431 977 167 1104
## 282 12238 7108 6235 1093 2328 2079
## 283 49063 3965 4252 5970 1041 1404
## 284 25767 3613 2013 10303 314 1384
## 285 68951 4411 12609 8692 751 2406
## 286 40254 640 3600 1042 436 18
## 287 7149 2247 1242 1619 1226 128
## 288 15354 2102 2828 8366 386 1027
## 289 16260 594 1296 848 445 258
## 290 42786 286 471 1388 32 22
## 291 2708 2160 2642 502 965 1522
## 292 6022 3354 3261 2507 212 686
## 293 2838 3086 4329 3838 825 1060
## 294 3996 11103 12469 902 5952 741
## 295 21273 2013 6550 909 811 1854
## 296 7588 1897 5234 417 2208 254
## 297 19087 1304 3643 3045 710 898
## 298 8090 3199 6986 1455 3712 531
## 299 6758 4560 9965 934 4538 1037
## 300 444 879 2060 264 290 259
## 301 16448 6243 6360 824 2662 2005
## 302 5283 13316 20399 1809 8752 172
## 303 2886 5302 9785 364 6236 555
## 304 2599 3688 13829 492 10069 59
## 305 161 7460 24773 617 11783 2410
## 306 243 12939 8852 799 3909 211
## 307 6468 12867 21570 1840 7558 1543
## 308 17327 2374 2842 1149 351 925
## 309 6987 1020 3007 416 257 656
## 310 918 20655 13567 1465 6846 806
## 311 7034 1492 2405 12569 299 1117
## 312 29635 2335 8280 3046 371 117
## 313 2137 3737 19172 1274 17120 142
## 314 9784 925 2405 4447 183 297
## 315 10617 1795 7647 1483 857 1233
## 316 1479 14982 11924 662 3891 3508
## 317 7127 1375 2201 2679 83 1059
## 318 1182 3088 6114 978 821 1637
## 319 11800 2713 3558 2121 706 51
## 320 9759 25071 17645 1128 12408 1625
## 321 1774 3696 2280 514 275 834
## 322 9155 1897 5167 2714 228 1113
## 323 15881 713 3315 3703 1470 229
## 324 13360 944 11593 915 1679 573
## 325 25977 3587 2464 2369 140 1092
## 326 32717 16784 13626 60869 1272 5609
## 327 4414 1610 1431 3498 387 834
## 328 542 899 1664 414 88 522
## 329 16933 2209 3389 7849 210 1534
## 330 5113 1486 4583 5127 492 739
## 331 9790 1786 5109 3570 182 1043
## 332 11223 14881 26839 1234 9606 1102
## 333 22321 3216 1447 2208 178 2602
## 334 8565 4980 67298 131 38102 1215
## 335 16823 928 2743 11559 332 3486
## 336 27082 6817 10790 1365 4111 2139
## 337 13970 1511 1330 650 146 778
## 338 9351 1347 2611 8170 442 868
## 339 3 333 7021 15601 15 550
## 340 2617 1188 5332 9584 573 1942
## 341 381 4025 9670 388 7271 1371
## 342 2320 5763 11238 767 5162 2158
## 343 255 5758 5923 349 4595 1328
## 344 1689 6964 26316 1456 15469 37
## 345 3043 1172 1763 2234 217 379
## 346 1198 2602 8335 402 3843 303
## 347 2771 6939 15541 2693 6600 1115
## 348 27380 7184 12311 2809 4621 1022
## 349 3428 2380 2028 1341 1184 665
## 350 5981 14641 20521 2005 12218 445
## 351 3521 1099 1997 1796 173 995
## 352 1210 10044 22294 1741 12638 3137
## 353 608 1106 1533 830 90 195
## 354 117 6264 21203 228 8682 1111
## 355 14039 7393 2548 6386 1333 2341
## 356 190 727 2012 245 184 127
## 357 22686 134 218 3157 9 548
## 358 37 1275 22272 137 6747 110
## 359 759 18664 1660 6114 536 4100
## 360 796 5878 2109 340 232 776
## 361 19746 2872 2006 2601 468 503
## 362 4734 607 864 1206 159 405
## 363 2121 1601 2453 560 179 712
## 364 4627 997 4438 191 1335 314
## 365 2615 873 1524 1103 514 468
## 366 4692 6128 8025 1619 4515 3105
## 367 9561 2217 1664 1173 222 447
## 368 3477 894 534 1457 252 342
## 369 22335 1196 2406 2046 101 558
## 370 6211 337 683 1089 41 296
## 371 39679 3944 4955 1364 523 2235
## 372 20105 1887 1939 8164 716 790
## 373 3884 3801 1641 876 397 4829
## 374 15076 6257 7398 1504 1916 3113
## 375 6338 2256 1668 1492 311 686
## 376 5841 1450 1162 597 476 70
## 377 3136 8630 13586 5641 4666 1426
## 378 38793 3154 2648 1034 96 1242
## 379 3225 3294 1902 282 68 1114
## 380 4048 5164 10391 130 813 179
## 381 28257 944 2146 3881 600 270
## 382 17770 4591 1617 9927 246 532
## 383 34454 7435 8469 2540 1711 2893
## 384 1821 1364 3450 4006 397 361
## 385 10683 21858 15400 3635 282 5120
## 386 11635 922 1614 2583 192 1068
## 387 1206 3620 2857 1945 353 967
## 388 20918 1916 1573 1960 231 961
## 389 9785 848 1172 1677 200 406
## 390 9385 1530 1422 3019 227 684
## 391 3352 1181 1328 5502 311 1000
## 392 2647 2761 2313 907 95 1827
## 393 518 4180 3600 659 122 654
## 394 23632 6730 3842 8620 385 819
## 395 12377 865 3204 1398 149 452
## 396 9602 1316 1263 2921 841 290
## 397 4515 11991 9345 2644 3378 2213
## 398 11535 1666 1428 6838 64 743
## 399 11442 1032 582 5390 74 247
## 400 9612 577 935 1601 469 375
## 401 4446 906 1238 3576 153 1014
## 402 27167 2801 2128 13223 92 1902
## 403 26539 4753 5091 220 10 340
## 404 25606 11006 4604 127 632 288
## 405 18073 4613 3444 4324 914 715
## 406 6884 1046 1167 2069 593 378
## 407 25066 5010 5026 9806 1092 960
## 408 7362 12844 18683 2854 7883 553
## 409 8257 3880 6407 1646 2730 344
## 410 8708 3634 6100 2349 2123 5137
## 411 6633 2096 4563 1389 1860 1892
## 412 2126 3289 3281 1535 235 4365
## 413 97 3605 12400 98 2970 62
## 414 4983 4859 6633 17866 912 2435
## 415 5969 1990 3417 5679 1135 290
## 416 7842 6046 8552 1691 3540 1874
## 417 4389 10940 10908 848 6728 993
## 418 5065 5499 11055 364 3485 1063
## 419 660 8494 18622 133 6740 776
## 420 8861 3783 2223 633 1580 1521
## 421 4456 5266 13227 25 6818 1393
## 422 17063 4847 9053 1031 3415 1784
## 423 26400 1377 4172 830 948 1218
## 424 17565 3686 4657 1059 1803 668
## 425 16980 2884 12232 874 3213 249
## 426 11243 2408 2593 15348 108 1886
## 427 13134 9347 14316 3141 5079 1894
## 428 31012 16687 5429 15082 439 1163
## 429 3047 5970 4910 2198 850 317
## 430 8607 1750 3580 47 84 2501
## 431 3097 4230 16483 575 241 2080
## 432 8533 5506 5160 13486 1377 1498
## 433 21117 1162 4754 269 1328 395
## 434 1982 3218 1493 1541 356 1449
## 435 16731 3922 7994 688 2371 838
## 436 29703 12051 16027 13135 182 2204
## 437 39228 1431 764 4510 93 2346
## 438 14531 15488 30243 437 14841 1867
## 439 10290 1981 2232 1038 168 2125
## 440 2787 1698 2510 65 477 52my_data <- data1 %>%
na.omit() %>%
scale() Cluster Analysis by selecting optimal Cluster
library(factoextra)
nb=NbClust( my_data, diss = NULL, distance = "euclidean",
min.nc = 2, max.nc = 15, method = "complete",index="all")## Warning in pf(beale, pp, df2): NaNs produced
## Warning in pf(beale, pp, df2): NaNs produced
## *** : The Hubert index is a graphical method of determining the number of clusters.
## In the plot of Hubert index, we seek a significant knee that corresponds to a
## significant increase of the value of the measure i.e the significant peak in Hubert
## index second differences plot.
## 
## *** : The D index is a graphical method of determining the number of clusters.
## In the plot of D index, we seek a significant knee (the significant peak in Dindex
## second differences plot) that corresponds to a significant increase of the value of
## the measure.
##
## *******************************************************************
## * Among all indices:
## * 8 proposed 2 as the best number of clusters
## * 7 proposed 3 as the best number of clusters
## * 1 proposed 7 as the best number of clusters
## * 1 proposed 8 as the best number of clusters
## * 6 proposed 10 as the best number of clusters
## * 1 proposed 15 as the best number of clusters
##
## ***** Conclusion *****
##
## * According to the majority rule, the best number of clusters is 2
##
##
## *******************************************************************fviz_nbclust(nb) + theme_minimal()## Among all indices:
## ===================
## * 2 proposed 0 as the best number of clusters
## * 8 proposed 2 as the best number of clusters
## * 7 proposed 3 as the best number of clusters
## * 1 proposed 7 as the best number of clusters
## * 1 proposed 8 as the best number of clusters
## * 6 proposed 10 as the best number of clusters
## * 1 proposed 15 as the best number of clusters
##
## Conclusion
## =========================
## * According to the majority rule, the best number of clusters is 2 .
K-meanscluster model applied by using cluster 2 by D index method.
km.res <- eclust(my_data, "kmeans", k = 2,nstart = 25, graph = FALSE)
km.res$cluster## 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
## 1 1 1 1 1 2 1 1 1 1 2 1 1 1 1 1 1 1
## 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
## 1 1 1 1 1 1 1 2 1 2 2 2 1 2 1 1 1 1
## 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
## 1 1 2 1 1 1 1 2 1 1 1 2 1 1 1 1 1 1
## 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90
## 1 1 1 1 1 2 1 1 1 1 1 1 1 2 2 1 1 1
## 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108
## 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162
## 1 2 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1
## 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180
## 1 2 1 2 1 1 1 1 1 2 1 1 1 1 1 1 1 1
## 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198
## 1 2 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216
## 1 1 2 2 1 1 1 2 1 1 1 2 1 2 1 1 1 1
## 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234
## 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2
## 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306
## 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 2 1
## 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324
## 2 1 1 2 1 1 2 1 1 1 1 1 1 2 1 1 1 1
## 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342
## 1 2 1 1 1 1 1 2 1 2 1 1 1 1 1 1 1 1
## 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360
## 1 2 1 1 1 1 1 2 1 2 1 1 1 1 1 1 1 1
## 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 433 434 435 436 437 438 439 440
## 1 1 1 1 1 2 1 1fviz_cluster(km.res, geom = "point", frame.type = "norm")## Warning: argument frame is deprecated; please use ellipse instead.## Warning: argument frame.type is deprecated; please use ellipse.type
## instead.
print(km.res)## K-means clustering with 2 clusters of sizes 399, 41
##
## Cluster means:
## Fresh Milk Grocery Frozen Detergents_Paper
## 1 -0.00542930 -0.2122882 -0.2302493 -0.03310806 -0.2320799
## 2 0.05283636 2.0659269 2.2407190 0.32219794 2.2585338
## Delicassen
## 1 -0.0826124
## 2 0.8039597
##
## Clustering vector:
## 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36
## 1 1 1 1 1 2 1 1 1 1 2 1 1 1 1 1 1 1
## 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54
## 1 1 1 1 1 1 1 2 1 2 2 2 1 2 1 1 1 1
## 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72
## 1 1 2 1 1 1 1 2 1 1 1 2 1 1 1 1 1 1
## 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90
## 1 1 1 1 1 2 1 1 1 1 1 1 1 2 2 1 1 1
## 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108
## 1 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162
## 1 2 1 1 1 1 1 1 1 1 1 2 1 1 1 1 1 1
## 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180
## 1 2 1 2 1 1 1 1 1 2 1 1 1 1 1 1 1 1
## 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198
## 1 2 1 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216
## 1 1 2 2 1 1 1 2 1 1 1 2 1 2 1 1 1 1
## 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234
## 2 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 2
## 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306
## 1 1 1 1 1 1 1 1 1 1 1 1 1 2 1 1 2 1
## 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324
## 2 1 1 2 1 1 2 1 1 1 1 1 1 2 1 1 1 1
## 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342
## 1 2 1 1 1 1 1 2 1 2 1 1 1 1 1 1 1 1
## 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360
## 1 2 1 1 1 1 1 2 1 2 1 1 1 1 1 1 1 1
## 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432
## 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1
## 433 434 435 436 437 438 439 440
## 1 1 1 1 1 2 1 1
##
## Within cluster sum of squares by cluster:
## [1] 982.9619 966.3860
## (between_SS / total_SS = 26.0 %)
##
## Available components:
##
## [1] "cluster" "centers" "totss" "withinss"
## [5] "tot.withinss" "betweenss" "size" "iter"
## [9] "ifault" "silinfo" "nbclust" "data"Evaluation of K-means of clustering Analysis
library("cluster")
sil <- silhouette(km.res$cluster, dist(my_data))
plot(sil, main ="Silhouette plot - K-means")
fviz_silhouette(sil)## cluster size ave.sil.width
## 1 1 399 0.65
## 2 2 41 0.03
# Summary of silhouette analysis
si.sum <- summary(sil)
# Average silhouette width of each cluster
si.sum$clus.avg.widths## 1 2
## 0.64967036 0.02503374si.sum$avg.width## [1] 0.5914656si.sum$clus.sizes## cl
## 1 2
## 399 41fviz_silhouette(km.res)## cluster size ave.sil.width
## 1 1 399 0.65
## 2 2 41 0.03
library(fpc)
# Compute pairwise-distance matrices
dd <- dist(my_data, method ="euclidean")
# Statistics for k-means clustering
km_stats <- cluster.stats(dd, km.res$cluster)
# (k-means) within clusters sum of squares
km_stats$within.cluster.ss## [1] 1949.348km_stats$clus.avg.silwidths## 1 2
## 0.64967036 0.02503374km_stats## $n
## [1] 440
##
## $cluster.number
## [1] 2
##
## $cluster.size
## [1] 399 41
##
## $min.cluster.size
## [1] 41
##
## $noisen
## [1] 0
##
## $diameter
## [1] 7.938436 21.244265
##
## $average.distance
## [1] 1.933809 5.223323
##
## $median.distance
## [1] 1.726398 3.149260
##
## $separation
## [1] 0.4019017 0.4019017
##
## $average.toother
## [1] 5.595136 5.595136
##
## $separation.matrix
## [,1] [,2]
## [1,] 0.0000000 0.4019017
## [2,] 0.4019017 0.0000000
##
## $ave.between.matrix
## [,1] [,2]
## [1,] 0.000000 5.595136
## [2,] 5.595136 0.000000
##
## $average.between
## [1] 5.595136
##
## $average.within
## [1] 1.967433
##
## $n.between
## [1] 16359
##
## $n.within
## [1] 80221
##
## $max.diameter
## [1] 21.24427
##
## $min.separation
## [1] 0.4019017
##
## $within.cluster.ss
## [1] 1949.348
##
## $clus.avg.silwidths
## 1 2
## 0.64967036 0.02503374
##
## $avg.silwidth
## [1] 0.5914656
##
## $g2
## NULL
##
## $g3
## NULL
##
## $pearsongamma
## [1] 0.5891823
##
## $dunn
## [1] 0.01891813
##
## $dunn2
## [1] 1.071183
##
## $entropy
## [1] 0.3098382
##
## $wb.ratio
## [1] 0.3516328
##
## $ch
## [1] 153.8348
##
## $cwidegap
## [1] 3.612317 12.977504
##
## $widestgap
## [1] 12.9775
##
## $sindex
## [1] 0.9162984
##
## $corrected.rand
## NULL
##
## $vi
## NULLcluster Internal validation .
library(clValid)
library(cluster)
m_data<-as.matrix(my_data)
v <- clValid(m_data,nClust = 2, clMethods = "kmeans" ,validation = c("internal"))
summary(v)##
## Clustering Methods:
## kmeans
##
## Cluster sizes:
## 2
##
## Validation Measures:
## 2
##
## kmeans Connectivity 30.3750
## Dunn 0.0257
## Silhouette 0.6352
##
## Optimal Scores:
##
## Score Method Clusters
## Connectivity 30.3750 kmeans 2
## Dunn 0.0257 kmeans 2
## Silhouette 0.6352 kmeans 2Cluster Stability validation
library(clValid)
library(cluster)
m_data<-as.matrix(my_data)
v <- clValid(m_data,nClust = 2, clMethods = "kmeans" ,validation = c("stability"))
summary(v)##
## Clustering Methods:
## kmeans
##
## Cluster sizes:
## 2
##
## Validation Measures:
## 2
##
## kmeans APN 0.0272
## AD 2.4706
## ADM 0.5173
## FOM 0.9307
##
## Optimal Scores:
##
## Score Method Clusters
## APN 0.0272 kmeans 2
## AD 2.4706 kmeans 2
## ADM 0.5173 kmeans 2
## FOM 0.9307 kmeans 2Principal component analysis to see variability of imapcting variables .
c=cov(m_data)
sum(diag(c))## [1] 6s.eigen <- eigen(c)
s.eigen## eigen() decomposition
## $values
## [1] 2.64497357 1.70258397 0.74006477 0.56373023 0.28567634 0.06297111
##
## $vectors
## [,1] [,2] [,3] [,4] [,5]
## [1,] -0.04288396 0.52793212 0.81225657 0.23668559 0.04868278
## [2,] -0.54511832 0.08316765 -0.06038798 0.08718991 -0.82657929
## [3,] -0.57925635 -0.14608818 0.10838401 -0.10598745 0.31499943
## [4,] -0.05118859 0.61127764 -0.17838615 -0.76868266 0.02793224
## [5,] -0.54864020 -0.25523316 0.13619225 -0.17174406 0.33964012
## [6,] -0.24868198 0.50420705 -0.52390412 0.55206472 0.31470051
## [,6]
## [1,] -0.03602539
## [2,] -0.03804019
## [3,] 0.72174458
## [4,] -0.01563715
## [5,] -0.68589373
## [6,] -0.07513412for (s in s.eigen$values) {
print(s / sum(s.eigen$values))
}## [1] 0.4408289
## [1] 0.283764
## [1] 0.1233441
## [1] 0.09395504
## [1] 0.04761272
## [1] 0.01049519plot(s.eigen$values, xlab = 'Eigenvalue Number', ylab = 'Eigenvalue Size', main = 'Scree Graph')
lines(s.eigen$values)
s.eigen$vectors## [,1] [,2] [,3] [,4] [,5]
## [1,] -0.04288396 0.52793212 0.81225657 0.23668559 0.04868278
## [2,] -0.54511832 0.08316765 -0.06038798 0.08718991 -0.82657929
## [3,] -0.57925635 -0.14608818 0.10838401 -0.10598745 0.31499943
## [4,] -0.05118859 0.61127764 -0.17838615 -0.76868266 0.02793224
## [5,] -0.54864020 -0.25523316 0.13619225 -0.17174406 0.33964012
## [6,] -0.24868198 0.50420705 -0.52390412 0.55206472 0.31470051
## [,6]
## [1,] -0.03602539
## [2,] -0.03804019
## [3,] 0.72174458
## [4,] -0.01563715
## [5,] -0.68589373
## [6,] -0.07513412Pca=prcomp(data1)
Pca## Standard deviations (1, .., p=6):
## [1] 12845.073 12060.352 5013.978 3975.412 2322.232 1484.466
##
## Rotation (n x k) = (6 x 6):
## PC1 PC2 PC3 PC4
## Fresh -0.976536846 -0.11061386 -0.1785573 -0.04187648
## Milk -0.121184071 0.51580216 0.5098868 -0.64564047
## Grocery -0.061540393 0.76460638 -0.2757809 0.37546049
## Frozen -0.152364619 -0.01872345 0.7142004 0.64629232
## Detergents_Paper 0.007054173 0.36535076 -0.2044099 0.14938013
## Delicassen -0.068104710 0.05707921 0.2832175 -0.02039579
## PC5 PC6
## Fresh 0.0159860 -0.01576316
## Milk 0.2032357 0.03349187
## Grocery -0.1602915 0.41093894
## Frozen 0.2201861 -0.01328898
## Detergents_Paper 0.2079302 -0.87128428
## Delicassen -0.9170766 -0.26541687summary(Pca)## Importance of components:
## PC1 PC2 PC3 PC4 PC5
## Standard deviation 1.285e+04 1.206e+04 5.014e+03 3.975e+03 2.322e+03
## Proportion of Variance 4.596e-01 4.052e-01 7.003e-02 4.402e-02 1.502e-02
## Cumulative Proportion 4.596e-01 8.648e-01 9.348e-01 9.788e-01 9.939e-01
## PC6
## Standard deviation 1.484e+03
## Proportion of Variance 6.140e-03
## Cumulative Proportion 1.000e+00library(hornpa)
hornpa(k=6,size=440,reps=500,seed=1234) ##
## Parallel Analysis Results
##
## Method: pca
## Number of variables: 6
## Sample size: 440
## Number of correlation matrices: 500
## Seed: 1234
## Percentile: 0.95
##
## Compare your observed eigenvalues from your original dataset to the 95 percentile in the table below generated using random data. If your eigenvalue is greater than the percentile indicated (not the mean), you have support to retain that factor/component.
##
## Component Mean 0.95
## 1 1.157 1.223
## 2 1.082 1.127
## 3 1.025 1.063
## 4 0.972 1.004
## 5 0.916 0.957
## 6 0.848 0.902s.eigen$values## [1] 2.64497357 1.70258397 0.74006477 0.56373023 0.28567634 0.06297111conclusion of the above Analysis
Similarity with in the cluster shows 26 percent .
the width with in the cluster is 59% .
cluster 1 average width is 69% is morethan the cluster 2.
stability : The average proportion of non-overlap (APN)=2% The average distance (AD)=2.4% The average distance between means (ADM)=51% The figure of merit (FOM)=93% By Dindex method the optimal cluster is 2.
By forming group by cluster I need to know the variability of variables
PCA:
1.From Principal component analysis I came to know that 2 principal components contribute 86% of variability.
2.from Proincipal component analysis i came to know that Milk and grocery playing vital role in giving more proportion ratio to the above component.
So, I came to the conclusion in the Wholesale customers data the customers are more concentrating on grocery and milk .rather than other products.
DATA:
Link :https://archive.ics.uci.edu/ml/datasets/Wholesale+customers