library(dplyr)
##
## Attaching package: 'dplyr'
## The following objects are masked from 'package:stats':
##
## filter, lag
## The following objects are masked from 'package:base':
##
## intersect, setdiff, setequal, union
library(readxl)
library(ggplot2)
library(tidyr)
Online_Retail <- readxl::read_excel("Online_Retail.xlsx")
head(Online_Retail)
## # A tibble: 6 × 8
## InvoiceNo StockCode Description Quantity InvoiceDate UnitPrice
## <chr> <chr> <chr> <dbl> <dttm> <dbl>
## 1 536365 85123A WHITE HANGING HEAR… 6 2010-12-01 08:26:00 2.55
## 2 536365 71053 WHITE METAL LANTERN 6 2010-12-01 08:26:00 3.39
## 3 536365 84406B CREAM CUPID HEARTS… 8 2010-12-01 08:26:00 2.75
## 4 536365 84029G KNITTED UNION FLAG… 6 2010-12-01 08:26:00 3.39
## 5 536365 84029E RED WOOLLY HOTTIE … 6 2010-12-01 08:26:00 3.39
## 6 536365 22752 SET 7 BABUSHKA NES… 2 2010-12-01 08:26:00 7.65
## # ℹ 2 more variables: CustomerID <dbl>, Country <chr>
nrow(Online_Retail)
## [1] 541909
data <- read_excel("Online_Retail.xlsx")
unique(Online_Retail$CustomerID)
## [1] 17850 13047 12583 13748 15100 15291 14688 17809 15311 14527 16098 18074
## [13] 17420 16029 16250 12431 17511 17548 13705 13747 13408 13767 17924 13448
## [25] 15862 15513 12791 16218 14045 14307 17908 17920 NA 12838 13255 16583
## [37] 18085 13758 13694 15983 14849 17968 16210 17897 17377 16552 17181 17951
## [49] 14729 12748 15012 12868 17572 14078 14001 12662 15525 14237 17905 15485
## [61] 12433 16955 15350 15605 18144 15922 14594 15165 14911 16456 17841 12472
## [73] 17346 17643 17873 13093 12921 13468 17760 16928 16048 16274 14496 14696
## [85] 16539 17025 13777 17690 12947 17460 18229 14142 17069 13065 14606 16835
## [97] 15235 13576 18011 13090 15694 14741 13715 14092 17732 12855 15752 17855
## [109] 14047 17925 13941 17017 14135 13108 12471 15601 13418 14766 15658 14388
## [121] 14901 18041 15955 15070 16244 15111 14390 16546 15260 13305 14491 14060
## [133] 15923 16752 17287 15363 12915 15544 15738 16042 17381 15827 14180 13117
## [145] 16916 17964 14466 17235 16510 17802 15107 17976 14449 15838 16781 17547
## [157] 13491 16186 17685 17581 15732 13138 15823 17567 15061 16203 15640 15574
## [169] 16770 17838 17228 14829 17412 14031 14775 12971 15834 17659 15299 15646
## [181] 13958 14443 14156 16995 13402 18168 17757 14625 13011 13798 15384 14264
## [193] 13295 16754 16634 18239 14576 13145 14395 14865 15093 12738 16150 17552
## [205] 14236 17961 14573 17135 17396 14213 12967 12686 14679 15240 18225 13370
## [217] 16883 13520 12841 16905 12427 17967 16891 14589 14680 17884 12557 14083
## [229] 13013 14210 16477 12600 16013 17949 12779 16926 17787 12682 14723 17954
## [241] 17819 12712 15373 16140 17198 17238 12793 15769 14396 14898 12725 16725
## [253] 12395 16455 13081 15545 17243 15465 15708 13089 16033 13838 15351 18055
## [265] 15038 18109 13069 16241 14800 16839 16168 16931 16814 13269 14813 12567
## [277] 17062 15332 14810 16353 18118 13831 13506 17796 15716 18156 15221 16983
## [289] 17059 16327 17211 17026 15570 15880 16718 15808 17858 16393 14161 17863
## [301] 16411 16402 15023 17402 15426 12647 15894 15867 14506 15555 13034 15889
## [313] 15953 16143 12720 16422 12747 15502 12763 14081 17965 14404 13579 13174
## [325] 15987 17677 13652 12586 17428 16161 16858 18219 14293 14748 16638 17674
## [337] 12808 13094 15899 12708 15898 17691 17227 15039 15919 13497 15860 14189
## [349] 15304 14867 14344 12474 16719 15048 15301 14708 16898 14825 18113 17596
## [361] 15078 14085 17860 13155 15028 16919 17259 17019 14487 16722 15882 14667
## [373] 16710 16550 15984 17682 16658 17068 15356 17223 16817 13030 17191 15194
## [385] 14409 16654 16861 16138 13481 13495 17519 17218 17812 14215 15602 17320
## [397] 16782 12913 17869 13564 14850 15021 13963 17450 17091 17470 17616 15649
## [409] 12681 14907 17735 16059 17720 15018 14733 13756 14176 13319 15353 18119
## [421] 17491 14282 13569 15498 14673 13488 16221 15002 15965 15024 17675 13769
## [433] 16904 16086 13786 13880 13173 15858 15180 12347 14739 16293 17419 16775
## [445] 16306 16950 17591 12839 13807 16125 15081 18102 16365 17870 14821 16863
## [457] 13078 13267 13050 12709 15628 12386 14796 16779 13599 13329 18077 14744
## [469] 17406 15750 13983 13842 12441 13199 14032 17706 16081 16525 14952 17975
## [481] 16122 13126 15973 16558 16713 16893 15529 18043 16016 17722 17324 17341
## [493] 14051 15916 16233 16385 15032 17213 18061 13113 16553 13455 14217 17262
## [505] 14299 18259 17676 16679 18269 12766 15298 18193 13523 12870 15005 15581
## [517] 15680 13649 17894 13270 14618 14866 13077 13115 13531 13848 13140 15713
## [529] 17999 15347 17340 13984 15996 14030 16252 16596 16700 16011 17655 16717
## [541] 14243 12963 15079 14437 12942 15660 18092 15358 12481 12721 12621 18071
## [553] 12683 12755 13854 12797 13369 12494 17857 17411 14932 12429 14987 14355
## [565] 17526 14896 14440 13240 14479 16065 17430 16520 15945 15181 15856 13102
## [577] 14205 17702 15271 13982 15288 17978 16795 16519 17816 13021 16255 17671
## [589] 17646 12649 16350 12872 17339 18230 16499 17097 15192 14441 15279 16579
## [601] 15380 17442 17950 12826 17456 17307 15811 13327 17700 13136 15535 12605
## [613] 15329 15211 15596 16163 16907 17576 14713 14702 13230 13969 17530 15805
## [625] 17696 17076 17827 16265 17880 13000 17790 12731 14419 14082 17912 15723
## [637] 16656 14037 14256 14543 16062 18116 16019 18178 18065 13148 12989 14107
## [649] 15881 12785 16727 15514 13787 17865 17220 16565 16873 14062 15179 18016
## [661] 14448 15503 17251 16923 14159 17126 15224 14577 12753 17236 17372 16367
## [673] 12875 17917 16010 17085 13668 14684 17188 15547 15998 14413 18004 13959
## [685] 16665 15454 15044 17937 14608 17618 14505 18037 13198 12540 13225 15361
## [697] 15689 14290 13209 13999 14498 15854 16701 16927 17990 14544 17338 17231
## [709] 17799 14565 16726 17303 14639 17611 17179 17524 12476 17293 17890 17375
## [721] 17371 17969 15159 13211 15777 14525 13324 13802 13948 13008 14206 16202
## [733] 16442 18075 15468 16570 14524 18141 12434 16810 14961 17041 16458 16083
## [745] 16262 17194 14057 14871 13178 18044 16812 16191 12370 14298 17158 14415
## [757] 16899 16531 17404 16556 16805 16503 17739 13238 12829 13097 12867 15392
## [769] 13846 14401 16145 17629 14150 13496 13611 16954 17454 17449 17230 12865
## [781] 15950 15512 17525 13458 14426 16003 13092 13426 15101 17033 13221 14201
## [793] 17692 15822 16134 17551 18050 14913 12666 15641 13124 17214 15456 15062
## [805] 12928 15727 17980 15290 17752 15615 12577 17044 13829 17633 13266 17820
## [817] 15664 17189 17496 16607 13317 13890 17001 15246 16996 15482 16037 14841
## [829] 16670 16985 16705 16470 14414 15563 12980 16746 14878 16743 17146 12877
## [841] 15394 14621 15379 14309 17288 14709 15157 17744 16316 15620 15789 16560
## [853] 13534 17580 14777 15759 14373 18176 15366 14735 16271 18223 15532 16816
## [865] 16684 14334 16945 14643 15197 14220 13874 18260 17848 17392 12348 14985
## [877] 13004 14560 12931 13627 12551 12782 14769 15780 12417 17315 16711 12726
## [889] 15204 17888 17007 15160 14016 13033 12691 13869 14146 12705 16885 17913
## [901] 12668 14472 17358 16686 18245 17343 18256 16153 12377 14646 12944 15312
## [913] 14099 14113 13104 17204 13027 17621 17090 14119 15527 18097 15460 15034
## [925] 12423 12678 15208 17306 14737 13029 16270 13487 12515 17400 17593 13953
## [937] 14533 12734 14944 17239 14532 12383 15562 15587 13922 13817 12585 13165
## [949] 13304 13313 16875 16282 12957 14462 13397 13680 12483 15164 17457 14732
## [961] 14221 14553 13253 17389 12578 15841 16112 13629 16600 15661 16532 15266
## [973] 14653 16771 17585 15046 13082 15464 18226 18062 12415 12503 17368 14258
## [985] 15719 13368 17634 16676 16424 18283 12735 13764 13656 12413 14312 13280
## [997] 15845 16094 13187 16567 14828 12530 16551 16889 16473 13750 12501 15607
## [1009] 15139 12489 17707 18198 12484 18179 17284 13233 14889 12480 14672 13593
## [1021] 13162 13183 17095 12939 15611 17114 15059 16326 17128 14761 17555 12651
## [1033] 16735 16833 17800 16748 14755 16549 13565 15799 18032 13451 14794 12539
## [1045] 12500 18171 16279 12524 17811 16850 14321 15326 17849 13672 14229 13107
## [1057] 16497 16303 15281 12736 13473 14320 12393 17742 16351 12601 13144 15346
## [1069] 15370 12643 14295 16034 17365 15189 14669 18095 15518 15749 14209 15569
## [1081] 12728 17569 13784 12724 13862 16791 16235 14270 12665 12523 16655 16359
## [1093] 16554 12359 15939 14587 14715 14185 12437 14040 12652 14514 15171 14167
## [1105] 17048 17364 13284 16500 12951 15835 18190 13993 14114 15447 16315 14978
## [1117] 16395 15510 13614 13246 15687 16493 12490 12672 13385 15626 12553 15213
## [1129] 14175 18106 15033 14329 16401 16206 13782 12924 16593 13700 13064 13048
## [1141] 18069 13634 16843 17064 17609 15673 12626 14976 12388 13527 15696 15316
## [1153] 12673 15296 17988 12820 13001 14101 14238 17730 13929 14657 13859 18212
## [1165] 14292 13883 18233 17018 14242 12356 12346 13898 16948 16997 12527 15395
## [1177] 12510 13693 13263 14428 12451 12422 17708 14090 15606 15831 13310 14916
## [1189] 17602 14572 13502 14784 15938 12637 17418 14779 16321 15262 17862 16892
## [1201] 12402 17771 15422 14770 16912 15174 14895 12594 17504 16387 12664 16618
## [1213] 17277 14088 17094 14692 12970 17889 17644 17714 12916 17769 14450 16085
## [1225] 13659 15167 15443 14224 13742 17673 12727 14068 13068 14368 15497 12559
## [1237] 13819 14501 14782 17861 14439 18161 15820 18136 16660 12693 12625 13396
## [1249] 12935 16730 14541 13551 12421 15797 15052 14130 15222 13615 13901 13158
## [1261] 14257 15218 15110 14534 15967 16757 12854 13815 18008 18277 14389 13703
## [1273] 15339 12744 16222 14341 13168 16943 17515 17082 14248 12609 13002 16133
## [1285] 13049 14548 13405 14049 16043 15812 13837 17118 14616 14233 17075 16714
## [1297] 13098 17027 12591 17786 16124 16409 13754 15227 12997 15215 16918 16882
## [1309] 14442 16496 12764 17311 15910 16949 14970 14701 12645 12468 16767 14738
## [1321] 17540 14239 18125 13328 15549 15864 14662 17180 15057 12574 13330 13552
## [1333] 12853 13538 16755 14133 16523 14659 13141 15365 13707 13709 17329 14805
## [1345] 16897 15579 14595 13161 15415 17431 17463 14502 12528 15448 17314 17373
## [1357] 18145 14467 12908 15144 14776 16403 16407 17619 12778 17256 17604 14006
## [1369] 13600 15058 17147 13881 16612 14627 17356 12477 12836 13939 16745 13606
## [1381] 13494 12929 16419 17035 15203 16515 12373 18202 12775 14549 15981 16110
## [1393] 17376 13110 16716 12676 15940 15971 14665 14457 15589 14411 17560 15226
## [1405] 14460 16156 13728 14127 16378 13894 13824 18250 15270 14188 18017 15421
## [1417] 17446 12414 14798 12990 12350 16992 17337 16405 17071 13873 17362 13394
## [1429] 12502 16333 16030 14044 13800 17672 12464 13581 14540 13539 15885 14497
## [1441] 17507 13208 17334 13871 16938 12754 12410 17929 14778 17517 17226 13137
## [1453] 13725 13309 12842 16109 17291 15090 15199 13911 14194 14842 13584 17105
## [1465] 14438 12956 15781 14410 14600 17302 17613 13334 13955 17162 17774 13809
## [1477] 15407 15577 16332 14048 14475 17859 12576 15753 12599 14562 16951 16998
## [1489] 13133 17881 15843 17083 15970 13590 17537 12401 12462 17843 13706 17940
## [1501] 17686 14431 15809 12561 14465 18093 16027 12857 16425 16842 15796 14555
## [1513] 15114 15133 17705 18087 12897 17512 15550 14676 12505 18159 14304 15638
## [1525] 12943 13875 15406 18084 17282 16434 17050 13171 17472 17255 16084 17667
## [1537] 12507 14631 13381 15236 13475 17829 13717 13157 14644 12993 17571 16979
## [1549] 16738 15122 17612 17348 13893 14035 13623 14346 16431 12616 16317 14935
## [1561] 16073 14477 14760 14897 15810 16509 14386 12455 14530 15670 12653 16126
## [1573] 14609 13414 12823 12352 12372 16494 14959 16148 17422 17175 18257 12362
## [1585] 13018 13718 15382 14754 13151 12654 13085 15903 15785 18138 14379 14211
## [1597] 14371 13425 12852 15228 13012 16182 13489 12714 13904 15755 13932 13799
## [1609] 13951 16765 18172 16566 12891 16466 16115 14162 13301 14803 13744 12988
## [1621] 17323 12707 18094 15129 17361 18155 15321 13477 15065 16980 15146 12365
## [1633] 13410 13044 16441 16014 14520 17994 13038 17002 15722 16349 16913 18114
## [1645] 15303 12845 18188 16045 16573 13421 18196 13285 13184 18151 13804 17499
## [1657] 15397 14276 13453 16394 17711 13865 16940 14289 16208 17063 13149 18068
## [1669] 15932 16692 15590 17171 18231 14004 17139 14513 13118 15974 17830 12565
## [1681] 12582 14231 17867 14880 15121 17117 12945 18056 16072 16838 15543 13751
## [1693] 15847 13851 13501 12633 13345 13870 17034 16592 15712 13362 14470 17388
## [1705] 16841 13753 13666 12361 14481 13792 17663 13973 15990 13493 13684 13261
## [1717] 16598 14147 15951 13971 17516 13630 14157 13636 13610 14745 12781 14036
## [1729] 16057 15724 12458 12598 13675 14227 16668 16667 13509 15874 16187 16339
## [1741] 12509 14046 13292 16427 14056 15656 12811 16518 17165 17462 14620 14740
## [1753] 16462 12428 16078 16915 15676 15709 15241 12933 15092 12679 15319 16212
## [1765] 15257 14656 13884 12866 13166 16389 15416 15733 16678 12834 13722 14934
## [1777] 15067 16128 17770 15622 14473 15104 15643 16792 15031 15636 12873 17923
## [1789] 16217 17738 17426 16957 16571 14483 15087 16709 17856 15053 18218 16159
## [1801] 17995 17374 17789 17416 17652 13476 12817 15393 13014 17508 13931 12541
## [1813] 13382 15220 14570 14447 13557 16449 12547 17325 14995 16414 15681 14670
## [1825] 15675 12584 17535 15400 14903 14499 18211 14504 15572 17107 14247 15554
## [1837] 14915 16136 18280 12614 13344 16621 16225 14214 14012 16356 17654 15026
## [1849] 16517 14817 17092 16242 15869 17817 15234 15764 15806 15819 14586 15944
## [1861] 13340 16917 14407 13908 12758 13975 14730 12623 14367 13373 16712 17639
## [1873] 16426 16495 14336 14507 12759 17049 15206 14013 14645 15071 14112 13026
## [1885] 12881 17864 14936 17138 16572 14165 15367 14291 15632 14297 13899 16471
## [1897] 18183 14603 18173 14854 16625 14064 15308 18086 14350 14930 16080 14727
## [1909] 16778 14077 16808 16475 13265 12520 15049 18149 13654 16652 16766 16801
## [1921] 17164 13226 13043 14352 17351 16768 16693 13956 13708 15918 15671 14962
## [1933] 16807 15125 16871 12901 13452 15493 16005 15388 16804 13499 15047 14193
## [1945] 17542 17080 16392 15106 16214 13716 15150 16061 14226 13121 16297 12994
## [1957] 16152 14636 16040 15793 13358 12849 15182 13299 16383 15381 12597 15030
## [1969] 12435 12955 18189 13946 17716 13185 14840 13216 13650 13533 13268 15433
## [1981] 12937 17603 16216 16377 16976 12514 18210 13631 14422 15648 17725 15861
## [1993] 13072 15695 14110 14059 16672 16511 16256 13591 14066 15483 16626 15019
## [2005] 18270 14315 17921 14041 17060 16023 17133 12878 14155 17043 13046 14633
## [2017] 12948 15703 14071 17134 17795 12902 16444 14232 14693 12407 16728 16096
## [2029] 13985 13592 15140 12843 14408 15408 15445 15452 14223 16619 14762 13934
## [2041] 15669 16384 18224 14245 17678 15855 16036 17763 13262 17152 14632 13900
## [2053] 14875 15132 17272 16135 12831 15437 16809 14711 14377 16374 13196 15457
## [2065] 12613 16721 12399 17733 17102 15410 13239 15449 14870 13821 17096 12604
## [2077] 12818 18191 14461 13132 16859 15245 17486 16308 12564 14607 13249 15644
## [2089] 14075 17250 17966 14129 15651 13035 13341 13512 16620 17698 14267 13736
## [2101] 16022 14235 16769 17754 12408 16063 15178 14348 15815 13695 17979 13139
## [2113] 12545 14758 14536 13662 17946 13743 18078 16780 18273 15045 17625 13357
## [2125] 16777 14476 16245 12669 12792 17765 15083 18010 15249 13760 15624 17749
## [2137] 15068 14538 14851 14021 13037 18177 14128 17874 17719 17931 13803 17398
## [2149] 15906 16253 13439 12888 13588 12456 15521 13720 15674 17594 17775 13988
## [2161] 16657 15424 13316 16788 16584 15364 18108 14272 15980 15832 16092 15528
## [2173] 16398 17088 17438 13060 14790 14890 16386 14818 13571 12909 12619 16698
## [2185] 16681 13573 14957 13918 17212 17781 14886 13626 16609 16180 13462 18263
## [2197] 16960 13841 17701 12949 14852 12569 13169 16162 15691 14195 13781 17758
## [2209] 14023 17669 16142 17648 13059 16224 15223 17886 13294 15289 18185 17956
## [2221] 15756 14747 14719 13015 16586 16105 14546 15442 16906 14535 16170 15244
## [2233] 16696 15145 17492 13525 17409 17783 13863 13515 15917 17440 17045 17140
## [2245] 15201 14964 16031 14403 17042 13771 17906 18272 16144 13731 12580 14912
## [2257] 15530 13950 13752 13892 14446 16209 15754 13712 15800 16469 13005 14981
## [2269] 17928 16261 17883 14619 13995 16643 14246 18040 16837 15119 16325 14924
## [2281] 15109 16623 12999 12717 13962 18036 14958 13562 15775 17054 17268 13548
## [2293] 13508 12447 13570 13232 18129 13632 15665 17550 15655 14286 16188 12656
## [2305] 15214 17574 15737 18080 14311 14339 12982 12701 12596 14273 12363 13549
## [2317] 15414 13203 14628 14326 15935 13655 12910 13577 15251 14111 17160 16172
## [2329] 17972 12463 14844 17278 15212 16729 14998 13484 16697 14931 18236 13740
## [2341] 16454 15230 15134 16309 13544 14262 13134 17589 16097 13122 16966 17746
## [2353] 16175 14834 16348 15147 16131 15813 17058 17704 16933 13772 16249 14198
## [2365] 13989 17930 14154 14482 14163 14105 17601 17142 13811 12457 15135 16806
## [2377] 13952 13120 12769 13516 14323 18079 12639 14700 15027 17367 18213 17029
## [2389] 13220 15985 16193 15172 13692 15745 17582 13474 17697 16639 16947 15491
## [2401] 16617 15265 16226 18009 16399 14623 15625 18064 15508 16628 13647 15594
## [2413] 13479 13735 13376 15717 13719 16633 13101 15225 14152 12733 15436 17217
## [2425] 17734 14905 14148 16103 14626 14868 18246 13485 15517 17115 17120 16611
## [2437] 15912 12506 12670 17588 14759 16185 13505 13389 12354 17631 17061 17718
## [2449] 17630 13223 16146 17109 16587 12622 16750 13482 14512 17670 16834 15108
## [2461] 16942 14640 16823 15237 12573 17854 18220 17436 16965 12840 15891 17187
## [2473] 13637 17991 16418 16099 15768 16637 14240 15143 13229 14973 14271 15952
## [2485] 16227 17893 14022 15210 16370 15376 14655 17615 16055 14149 17501 14191
## [2497] 13282 15582 16230 18146 15976 17443 12886 17974 13524 17955 15128 16610
## [2509] 17394 14173 16258 14948 17384 16990 13762 12593 14340 17429 13711 14515
## [2521] 16457 17527 14199 13888 14423 14697 17522 13867 17624 14393 17578 13450
## [2533] 17423 18241 15668 16319 15757 17174 13365 18227 14145 18235 13741 12394
## [2545] 16832 15258 15552 18170 13723 14005 15561 16121 18142 13642 15117 13561
## [2557] 15704 16007 16232 17410 13835 13427 14353 12700 13003 16756 13492 16440
## [2569] 18120 12355 17723 14699 12821 13055 13320 16357 18242 15865 17597 14397
## [2581] 13242 12684 14288 15063 12592 14591 13990 12749 16320 14691 16229 14920
## [2593] 17489 13404 15729 16644 14731 14277 15187 13052 18133 17664 14649 13235
## [2605] 14883 12976 14681 14421 16116 14988 15489 14364 16006 16184 17932 18221
## [2617] 12590 14853 17658 17764 14651 14000 13601 12757 17970 12770 15826 15907
## [2629] 12695 14342 14873 14689 15440 16076 15333 16283 17263 16877 12674 16642
## [2641] 12871 14038 14489 14888 17190 13456 17898 13976 16139 15730 16266 15123
## [2653] 17505 12690 16446 17556 14583 16818 13572 14009 13258 14463 13192 16987
## [2665] 13417 17047 15116 17469 16647 15630 17245 16008 17871 13529 12620 15599
## [2677] 16813 14859 16463 15791 13658 13887 12353 14551 17166 17926 13391 17455
## [2689] 13308 13856 13243 15095 18048 18287 18150 16690 13555 16038 13972 13227
## [2701] 13657 17176 14837 14682 14921 16341 14647 12710 15292 15705 13339 13885
## [2713] 12360 13546 17715 18160 15434 15734 13737 13213 18018 15314 17521 15042
## [2725] 12863 16091 15804 14593 14287 16763 14705 12562 12815 14522 16448 14584
## [2737] 12974 12987 14816 15852 16624 12493 18232 18073 16369 14280 13135 17345
## [2749] 16275 14338 15402 12876 16323 12426 14451 14823 15897 17051 15925 12787
## [2761] 15863 16483 13398 13070 14819 12790 15163 18204 15124 12473 16969 14597
## [2773] 13917 13062 16484 15184 18135 14453 17900 13437 12517 16529 17531 16239
## [2785] 14500 16117 13248 16967 15405 16659 16880 13435 13131 14891 16682 15453
## [2797] 16963 13682 15152 15462 12449 15349 16849 12802 15073 16298 12535 18248
## [2809] 15386 17252 14542 16825 12380 18072 13643 15969 13283 17015 14375 17124
## [2821] 17987 13395 17828 15743 17414 14622 15609 14561 16872 16358 15238 13466
## [2833] 17360 13510 12406 14241 14132 14963 17169 15252 17731 16113 12694 16107
## [2845] 17483 15679 13686 16581 15267 17234 17797 16614 12409 15411 14178 15098
## [2857] 18281 14984 12516 17265 13617 17242 17289 16018 14704 16794 13761 13517
## [2869] 13936 16342 14177 12732 16205 15036 13589 17579 15069 17349 13080 13663
## [2881] 14503 16774 13384 17101 14997 17155 12809 16461 13343 12624 18165 17536
## [2893] 16324 17651 14222 15585 17490 16739 16276 17193 16257 14285 17642 12816
## [2905] 13826 13575 17157 16852 15219 15014 14765 16869 15909 13618 16050 17879
## [2917] 17562 15334 12450 13568 14820 16744 15700 17299 12837 15076 17444 15921
## [2929] 15747 15840 15016 14808 12904 15825 12432 15389 15280 17159 12830 15507
## [2941] 18252 16526 17695 12930 14960 12444 17960 15412 13763 12798 13849 16114
## [2953] 13420 13780 17877 16247 15041 12379 16287 12919 15130 12704 17370 17709
## [2965] 15253 13300 17759 12465 12412 12697 13937 12615 15850 15186 13791 14795
## [2977] 17768 18112 12548 17386 14104 17110 13895 16545 16671 14351 17391 16824
## [2989] 17750 16200 17997 14383 13461 17408 15537 14327 17837 12424 15578 15584
## [3001] 13745 16498 17891 17123 16866 13730 16589 12922 16009 14053 17939 17312
## [3013] 13833 17899 15007 17464 18265 16344 13338 17024 14034 18203 16616 16338
## [3025] 17046 13109 16829 13217 14002 12977 13291 13583 16929 17892 15505 14459
## [3037] 18013 13681 13699 14493 13486 13302 16012 12635 17031 12461 12648 18121
## [3049] 15901 14918 15920 17353 18024 15467 16174 13678 14690 13058 14552 12556
## [3061] 13224 16989 12358 13207 18122 12722 17405 13311 15051 15895 15795 13669
## [3073] 16450 13667 14400 12405 14265 14847 14862 16488 15256 14716 13933 14857
## [3085] 15306 15839 13994 17554 14332 17266 17948 15004 14722 13507 13967 16054
## [3097] 12833 16474 17984 12589 17448 16762 15369 13154 13940 14029 14117 13167
## [3109] 17779 13991 18101 17065 13827 12560 16764 18180 12521 17866 15802 17229
## [3121] 14456 16464 17962 16149 14259 18143 17935 14517 17694 17660 16041 15623
## [3133] 15829 15232 12438 12627 13079 18262 13563 15506 16305 12864 17724 17703
## [3145] 13116 14019 17649 16178 17040 14100 16557 13296 13814 16364 17693 15372
## [3157] 15618 13930 13379 13194 16447 14305 12397 14331 15261 15105 13813 18268
## [3169] 14855 13925 18237 12453 15639 15118 15746 12743 15942 14143 15120 16147
## [3181] 13277 18127 15149 18081 14511 12716 15776 12981 13106 13928 14885 13388
## [3193] 15438 17173 17941 14947 17053 12534 12844 14567 14937 12828 16984 13023
## [3205] 17553 13075 15342 12644 12378 17788 13850 14076 13805 17887 13186 12750
## [3217] 15374 17656 16102 15089 14972 17514 12917 12689 14768 17584 15254 18099
## [3229] 15205 13218 17267 16302 13513 14720 18282 12610 13200 14079 17298 14024
## [3241] 16066 15198 12885 17331 13016 13500 15247 13355 16053 13919 12384 16292
## [3253] 12571 14116 14495 15494 15608 17248 17653 13645 15469 13307 12381 17122
## [3265] 14406 15683 14301 14658 13621 16272 17958 16836 16961 16902 15706 15480
## [3277] 15315 15653 13159 13189 17637 12641 13470 15786 15541 16734 16706 17070
## [3289] 12688 12729 12962 13273 17736 15472 12680 16582 17747 12513 15396 12418
## [3301] 16828 14712 12991 14772 12364 12968 16330 14566 15701 12518 14529 16536
## [3313] 15313 15801 16201 16555 16952 14387 17073 18147 14523 14418 12642 16968
## [3325] 16723 13411 16340 13236 14196 15263 14314 16093 17844 14687 14050 16429
## [3337] 14055 12715 15663 18200 18167 13644 17451 16641 13812 14141 15074 12492
## [3349] 17183 15325 13778 14869 14096 14108 12814 15866 14660 13726 15690 17777
## [3361] 16278 13276 12436 13147 13045 13099 12739 14420 14436 18027 12794 12832
## [3373] 16674 12375 16173 14171 13434 16761 14067 13808 12851 14335 14965 15136
## [3385] 16629 18261 15307 16820 17309 13949 14360 16400 14208 12526 13130 13210
## [3397] 17481 12685 17573 14452 13889 15488 18222 13244 17004 13441 13823 12879
## [3409] 16603 14824 16910 15652 16362 15035 14508 13272 17317 14212 13372 18255
## [3421] 14250 16796 14432 15782 12883 12965 15533 18215 18158 13375 13431 16211
## [3433] 12884 16141 17919 16360 17433 13704 14020 14359 16451 12940 15216 15522
## [3445] 17037 12822 15343 14753 16959 18251 13032 12895 17640 13860 12756 18001
## [3457] 17728 15933 14284 17347 15103 15707 13430 12566 13321 13877 15272 15322
## [3469] 17333 13518 14306 17679 16160 15573 14894 17434 15466 15511 17846 16189
## [3481] 15417 12995 14557 16108 17144 16924 15099 13323 14124 15975 15523 16878
## [3493] 15947 13247 13566 18194 16689 16438 13067 16460 13325 12640 13774 12497
## [3505] 12752 15504 15500 17557 13228 14356 13416 17628 16527 16428 15341 16215
## [3517] 14164 15888 17564 13356 12390 18228 17415 13350 12550 16627 17475 14951
## [3529] 14780 14887 15399 17466 16379 17172 15239 16213 15603 14261 12657 15571
## [3541] 15484 12936 16236 16669 15398 12906 17079 14125 17163 12952 12579 13279
## [3553] 12425 16715 13519 12546 15744 13127 15714 17480 15763 15075 16978 14014
## [3565] 16240 13336 14652 15807 15762 15475 15978 16485 12488 13083 16169 17506
## [3577] 16480 17006 17498 17131 13536 15429 17154 16594 16049 14757 16198 13670
## [3589] 18066 14806 12783 13429 15154 13390 12925 13927 18205 14908 13639 15958
## [3601] 15492 15243 16468 15344 13866 12612 16999 13514 13314 17805 18278 13979
## [3613] 16181 15568 16354 14412 16119 14109 16157 15348 16281 13924 14434 13061
## [3625] 17513 16909 16650 18192 17447 17427 15175 13960 17528 16361 13886 13354
## [3637] 15050 13503 16653 16574 13759 17813 12718 15949 12703 13364 16268 18053
## [3649] 16101 15565 18217 13954 15593 13095 15287 13347 15185 16404 16613 16591
## [3661] 15774 13558 16930 16533 18059 14488 16747 14333 13635 17330 17321 14815
## [3673] 15091 15088 15930 16183 13297 13801 16881 17014 15255 14184 13351 15739
## [3685] 12512 17957 15276 15127 16106 17666 13483 16478 17382 12789 16020 17222
## [3697] 16803 13947 16758 12719 17647 14054 12723 18033 13845 15837 12628 13177
## [3709] 14317 16295 13602 16895 17295 13504 13422 15264 16432 13816 14518 13882
## [3721] 15937 12923 17453 15766 15300 13348 14592 14792 17030 12420 14427 12519
## [3733] 13359 14138 15297 13876 12740 17086 13806 18096 13587 12856 13419 17509
## [3745] 16900 13689 13755 16104 13259 16248 15612 15787 16595 13260 15821 18088
## [3757] 16685 13193 13212 14801 16380 16921 15193 14027 16179 15473 17425 18169
## [3769] 18126 16688 16982 15330 17186 13685 16776 13980 13352 15553 15886 17203
## [3781] 12607 17459 12772 16561 14121 12371 17119 17620 12824 14710 16120 14624
## [3793] 16171 12536 13690 17934 14642 12602 16753 17737 13464 12667 12498 14537
## [3805] 17279 14251 12446 12631 14234 14975 13853 16773 16430 16793 18130 17614
## [3817] 13858 14856 14089 15478 16413 13810 16416 13006 17986 12454 14910 16243
## [3829] 13878 16934 15994 14547 16052 15113 12475 16542 18042 16563 17201 17520
## [3841] 13923 16412 17205 17534 15335 16737 15066 17206 17785 16932 16363 14830
## [3853] 17244 15355 15598 15637 16848 15678 14015 13594 15327 14861 14554 12611
## [3865] 14179 15604 14381 12572 16123 16851 17148 17549 17973 15610 15853 18019
## [3877] 14698 16826 17824 12522 15803 15006 17350 14799 15814 16260 14638 17354
## [3889] 13245 14923 16177 13366 16284 16846 14484 13897 14585 17125 15836 16313
## [3901] 13460 12403 14967 15286 17832 12646 16015 16311 15728 15740 13974 15677
## [3913] 15000 16017 13471 13598 18005 15427 15022 17111 17836 14629 15592 15277
## [3925] 16491 15516 14764 16742 15142 17344 18240 17081 14474 14139 15844 13176
## [3937] 12398 15345 16708 15963 18045 13182 15158 13028 13978 16056 12812 16071
## [3949] 14539 14550 17712 14102 14598 15320 16415 12448 12827 16345 15993 17895
## [3961] 15948 15659 18154 12630 13363 18276 17684 17878 14752 16847 14971 17545
## [3973] 16026 16513 12430 14357 16855 16680 18035 16648 16164 14218 15096 18030
## [3985] 14416 17839 16601 12912 13278 14582 15748 16079 17590 15054 14158 15385
## [3997] 16506 13822 18067 16190 15444 13607 12581 15360 13103 15667 13651 12552
## [4009] 16127 12588 15977 13697 14345 17503 16830 17495 12491 14485 13868 15423
## [4021] 17668 16971 16352 16884 15830 14216 15275 16790 15576 18105 18164 14974
## [4033] 17947 13318 18104 13271 17595 14528 17432 16337 14098 15551 16347 13721
## [4045] 16322 17403 16914 16602 12544 13914 13467 17221 17078 13447 15010 18022
## [4057] 16318 17274 15597 17233 16887 13938 17084 14882 15017 12882 17387 13727
## [4069] 13532 16445 15156 16372 17608 12638 14174 14039 13040 15883 14664 15526
## [4081] 17831 15025 12357 17761 15870 14080 17623 13673 14073 16070 13066 14929
## [4093] 13710 16732 14140 17219 16505 15957 18123 15043 17313 18216 17022 15153
## [4105] 16759 16751 12893 14836 17011 12532 17038 14968 12504 16516 13522 15986
## [4117] 13992 14354 16986 16953 18274 15450 15531 17500 17197 16025 12659 17461
## [4129] 17791 15463 17977 12617 14863 16903 12508 17502 12538 17901 14789 18209
## [4141] 12985 15557 16433 15692 17052 16368 18014 13732 13091 14661 13170 15654
## [4153] 13146 14788 13603 14382 16720 14904 14494 14902 16936 12938 15168 17538
## [4165] 18082 18117 15458 17566 16207 12762 17793 14953 16504 12374 15009 16423
## [4177] 15419 17510 15758 15524 14725 14666 14714 17153 12950 15720 18181 15556
## [4189] 17357 12890 13449 15269 14385 15900 17680 13926 16204 17896 17835 15432
## [4201] 18006 15657 17237 13160 12847 17397 17985 14362 13828 15435 12445 12603
## [4213] 14641 12618 15621 12391 18034 17286 17904 17301 15368 14793 17650 12702
## [4225] 14881 16784 14052 18110 17561 15988 17523 14950 16666 14860 17636 13832
## [4237] 13142 16366 14300 12349 12658 12795 15567 15645 16406 15857 12984 17253
## [4249] 13739 18139 15274 17010 15115 17100 15699 13403 16956 17600 15877 14424
## [4261] 13322 17297 13986 12920 18249 15634 16376 16811 12452 14581 14675 17290
## [4273] 16343 13638 16482 12784 17458 14785 17254 17767 15725 17247 18184 15428
## [4285] 17727 14756 16856 14703 17385 12531 15872 14966 17232 17468 13332 14946
## [4297] 13256 13596 16024 14954 17885 14093 14893 15721 17852 13844 12479 12660
## [4309] 15540 17379 16800 17806 17359 13188 14480 13349 15619 15148 14601 15783
## [4321] 17772 14126 16479 13428 15790 13521 14349 18058 12953 12966 15060 17911
## [4333] 14804 15904 16789 12558 17942 12587 13560 15539 13017 18174 13153 15773
## [4345] 17936 16535 16988 15097 18015 16597 13790 14219 12367 17383 12478 15992
## [4357] 15318 17914 16528 12442 16569 12650 14578 16000 15195 14087 14204 15471
## [4369] 13436 15520 13298 14569 12713
length(unique(Online_Retail$CustomerID))
## [1] 4373
sort(table(Online_Retail$CustomerID), decreasing = TRUE)[1:3]
##
## 17841 14911 14096
## 7983 5903 5128
aggregate(UnitPrice ~ Country, data = Online_Retail, mean)
## Country UnitPrice
## 1 Australia 3.220612
## 2 Austria 4.243192
## 3 Bahrain 4.556316
## 4 Belgium 3.644335
## 5 Brazil 4.456250
## 6 Canada 6.030331
## 7 Channel Islands 4.932124
## 8 Cyprus 6.302363
## 9 Czech Republic 2.938333
## 10 Denmark 3.256941
## 11 EIRE 5.911077
## 12 European Community 4.820492
## 13 Finland 5.448705
## 14 France 5.028864
## 15 Germany 3.966930
## 16 Greece 4.885548
## 17 Hong Kong 42.505208
## 18 Iceland 2.644011
## 19 Israel 3.633131
## 20 Italy 4.831121
## 21 Japan 2.276145
## 22 Lebanon 5.387556
## 23 Lithuania 2.841143
## 24 Malta 5.244173
## 25 Netherlands 2.738317
## 26 Norway 6.012026
## 27 Poland 4.170880
## 28 Portugal 8.582976
## 29 RSA 4.277586
## 30 Saudi Arabia 2.411000
## 31 Singapore 109.645808
## 32 Spain 4.987544
## 33 Sweden 3.910887
## 34 Switzerland 3.403442
## 35 United Arab Emirates 3.380735
## 36 United Kingdom 4.532422
## 37 Unspecified 2.699574
## 38 USA 2.216426
clean_data <- data %>%
filter(!is.na(CustomerID),
!is.na(Description),
!is.na(InvoiceNo)) %>%
filter(Quantity > 0, UnitPrice > 0) %>%
distinct()
clean_data <- clean_data %>%
filter(Quantity > 0, UnitPrice > 0)
clean_data <- clean_data %>%
distinct()
clean_data$InvoiceDate <- as.POSIXct(clean_data$InvoiceDate, format = "%Y-%m-%d %H:%M:%S")
clean_data <- clean_data %>%
mutate(TotalPrice = Quantity * UnitPrice)
cat("\n STRUKTUR DATA SETELAH CLEANING \n")
##
## STRUKTUR DATA SETELAH CLEANING
str(clean_data)
## tibble [392,692 × 9] (S3: tbl_df/tbl/data.frame)
## $ InvoiceNo : chr [1:392692] "536365" "536365" "536365" "536365" ...
## $ StockCode : chr [1:392692] "85123A" "71053" "84406B" "84029G" ...
## $ Description: chr [1:392692] "WHITE HANGING HEART T-LIGHT HOLDER" "WHITE METAL LANTERN" "CREAM CUPID HEARTS COAT HANGER" "KNITTED UNION FLAG HOT WATER BOTTLE" ...
## $ Quantity : num [1:392692] 6 6 8 6 6 2 6 6 6 32 ...
## $ InvoiceDate: POSIXct[1:392692], format: "2010-12-01 08:26:00" "2010-12-01 08:26:00" ...
## $ UnitPrice : num [1:392692] 2.55 3.39 2.75 3.39 3.39 7.65 4.25 1.85 1.85 1.69 ...
## $ CustomerID : num [1:392692] 17850 17850 17850 17850 17850 ...
## $ Country : chr [1:392692] "United Kingdom" "United Kingdom" "United Kingdom" "United Kingdom" ...
## $ TotalPrice : num [1:392692] 15.3 20.3 22 20.3 20.3 ...
summary(clean_data[, c("Quantity", "UnitPrice", "TotalPrice")])
## Quantity UnitPrice TotalPrice
## Min. : 1.00 Min. : 0.001 Min. :1.000e-03
## 1st Qu.: 2.00 1st Qu.: 1.250 1st Qu.:4.950e+00
## Median : 6.00 Median : 1.950 Median :1.245e+01
## Mean : 13.12 Mean : 3.126 Mean :2.263e+01
## 3rd Qu.: 12.00 3rd Qu.: 3.750 3rd Qu.:1.980e+01
## Max. :80995.00 Max. :8142.750 Max. :1.685e+05
cor_value <- cor(clean_data$Quantity, clean_data$TotalPrice)
cat("\nKorelasi Quantity vs TotalPrice :", round(cor_value, 3), "\n")
##
## Korelasi Quantity vs TotalPrice : 0.914
top_produk <- clean_data %>%
group_by(Description) %>%
summarise(Total_Revenue = sum(TotalPrice)) %>%
arrange(desc(Total_Revenue)) %>%
head(10)
cat("\n=== 10 PRODUK TERLARIS ===\n")
##
## === 10 PRODUK TERLARIS ===
print(top_produk)
## # A tibble: 10 × 2
## Description Total_Revenue
## <chr> <dbl>
## 1 PAPER CRAFT , LITTLE BIRDIE 168470.
## 2 REGENCY CAKESTAND 3 TIER 142265.
## 3 WHITE HANGING HEART T-LIGHT HOLDER 100392.
## 4 JUMBO BAG RED RETROSPOT 85041.
## 5 MEDIUM CERAMIC TOP STORAGE JAR 81417.
## 6 POSTAGE 77804.
## 7 PARTY BUNTING 68785.
## 8 ASSORTED COLOUR BIRD ORNAMENT 56413.
## 9 Manual 53420.
## 10 RABBIT NIGHT LIGHT 51251.
top_produk <- clean_data %>%
group_by(Description) %>%
summarise(Total_Revenue = sum(TotalPrice)) %>%
arrange(desc(Total_Revenue)) %>%
head(10)
print(top_produk)
## # A tibble: 10 × 2
## Description Total_Revenue
## <chr> <dbl>
## 1 PAPER CRAFT , LITTLE BIRDIE 168470.
## 2 REGENCY CAKESTAND 3 TIER 142265.
## 3 WHITE HANGING HEART T-LIGHT HOLDER 100392.
## 4 JUMBO BAG RED RETROSPOT 85041.
## 5 MEDIUM CERAMIC TOP STORAGE JAR 81417.
## 6 POSTAGE 77804.
## 7 PARTY BUNTING 68785.
## 8 ASSORTED COLOUR BIRD ORNAMENT 56413.
## 9 Manual 53420.
## 10 RABBIT NIGHT LIGHT 51251.
top_negara <- clean_data %>%
group_by(Country) %>%
summarise(Total_Revenue = sum(TotalPrice)) %>%
arrange(desc(Total_Revenue)) %>%
head(10)
print(top_negara)
## # A tibble: 10 × 2
## Country Total_Revenue
## <chr> <dbl>
## 1 United Kingdom 7285025.
## 2 Netherlands 285446.
## 3 EIRE 265262.
## 4 Germany 228678.
## 5 France 208934.
## 6 Australia 138454.
## 7 Spain 61559.
## 8 Switzerland 56444.
## 9 Belgium 41196.
## 10 Sweden 38368.
ggplot(top_produk, aes(x = reorder(Description, Total_Revenue), y = Total_Revenue)) +
geom_bar(stat = "identity", fill = "orange") +
coord_flip() +
labs(title = "10 Produk Terlaris",
x = "Produk", y = "Total Revenue")
ggplot(top_negara, aes(x = reorder(Country, Total_Revenue), y = Total_Revenue)) +
geom_bar(stat = "identity", fill = "seagreen") +
coord_flip() +
labs(title = "10 Negara dengan Penjualan Tertinggi",
x = "Negara", y = "Total Revenue")
