forked from smithjd/sql-pet
-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy path083-exploring-a-single-table.html
2176 lines (2073 loc) · 171 KB
/
083-exploring-a-single-table.html
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
434
435
436
437
438
439
440
441
442
443
444
445
446
447
448
449
450
451
452
453
454
455
456
457
458
459
460
461
462
463
464
465
466
467
468
469
470
471
472
473
474
475
476
477
478
479
480
481
482
483
484
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
500
501
502
503
504
505
506
507
508
509
510
511
512
513
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
560
561
562
563
564
565
566
567
568
569
570
571
572
573
574
575
576
577
578
579
580
581
582
583
584
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
601
602
603
604
605
606
607
608
609
610
611
612
613
614
615
616
617
618
619
620
621
622
623
624
625
626
627
628
629
630
631
632
633
634
635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666
667
668
669
670
671
672
673
674
675
676
677
678
679
680
681
682
683
684
685
686
687
688
689
690
691
692
693
694
695
696
697
698
699
700
701
702
703
704
705
706
707
708
709
710
711
712
713
714
715
716
717
718
719
720
721
722
723
724
725
726
727
728
729
730
731
732
733
734
735
736
737
738
739
740
741
742
743
744
745
746
747
748
749
750
751
752
753
754
755
756
757
758
759
760
761
762
763
764
765
766
767
768
769
770
771
772
773
774
775
776
777
778
779
780
781
782
783
784
785
786
787
788
789
790
791
792
793
794
795
796
797
798
799
800
801
802
803
804
805
806
807
808
809
810
811
812
813
814
815
816
817
818
819
820
821
822
823
824
825
826
827
828
829
830
831
832
833
834
835
836
837
838
839
840
841
842
843
844
845
846
847
848
849
850
851
852
853
854
855
856
857
858
859
860
861
862
863
864
865
866
867
868
869
870
871
872
873
874
875
876
877
878
879
880
881
882
883
884
885
886
887
888
889
890
891
892
893
894
895
896
897
898
899
900
901
902
903
904
905
906
907
908
909
910
911
912
913
914
915
916
917
918
919
920
921
922
923
924
925
926
927
928
929
930
931
932
933
934
935
936
937
938
939
940
941
942
943
944
945
946
947
948
949
950
951
952
953
954
955
956
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971
972
973
974
975
976
977
978
979
980
981
982
983
984
985
986
987
988
989
990
991
992
993
994
995
996
997
998
999
1000
<!DOCTYPE html>
<html xmlns="http://www.w3.org/1999/xhtml" lang="" xml:lang="">
<head>
<meta charset="utf-8" />
<meta http-equiv="X-UA-Compatible" content="IE=edge" />
<title>083-exploring-a-single-table.utf8</title>
<meta name="description" content="" />
<meta name="generator" content="bookdown #bookdown:version# and GitBook 2.6.7" />
<meta property="og:title" content="083-exploring-a-single-table.utf8" />
<meta property="og:type" content="book" />
<meta name="twitter:card" content="summary" />
<meta name="twitter:title" content="083-exploring-a-single-table.utf8" />
<meta name="viewport" content="width=device-width, initial-scale=1" />
<meta name="apple-mobile-web-app-capable" content="yes" />
<meta name="apple-mobile-web-app-status-bar-style" content="black" />
<!--bookdown:link_prev-->
<!--bookdown:link_next-->
<script src="libs/jquery-2.2.3/jquery.min.js"></script>
<link href="libs/gitbook-2.6.7/css/style.css" rel="stylesheet" />
<link href="libs/gitbook-2.6.7/css/plugin-table.css" rel="stylesheet" />
<link href="libs/gitbook-2.6.7/css/plugin-bookdown.css" rel="stylesheet" />
<link href="libs/gitbook-2.6.7/css/plugin-highlight.css" rel="stylesheet" />
<link href="libs/gitbook-2.6.7/css/plugin-search.css" rel="stylesheet" />
<link href="libs/gitbook-2.6.7/css/plugin-fontsettings.css" rel="stylesheet" />
<link href="libs/gitbook-2.6.7/css/plugin-clipboard.css" rel="stylesheet" />
<script src="libs/gitbook-2.6.7/js/app.min.js"></script>
<script src="libs/gitbook-2.6.7/js/lunr.js"></script>
<script src="libs/gitbook-2.6.7/js/clipboard.min.js"></script>
<script src="libs/gitbook-2.6.7/js/plugin-search.js"></script>
<script src="libs/gitbook-2.6.7/js/plugin-sharing.js"></script>
<script src="libs/gitbook-2.6.7/js/plugin-fontsettings.js"></script>
<script src="libs/gitbook-2.6.7/js/plugin-bookdown.js"></script>
<script src="libs/gitbook-2.6.7/js/jquery.highlight.js"></script>
<script src="libs/gitbook-2.6.7/js/plugin-clipboard.js"></script>
<style type="text/css">
a.sourceLine { display: inline-block; line-height: 1.25; }
a.sourceLine { pointer-events: none; color: inherit; text-decoration: inherit; }
a.sourceLine:empty { height: 1.2em; }
.sourceCode { overflow: visible; }
code.sourceCode { white-space: pre; position: relative; }
pre.sourceCode { margin: 0; }
@media screen {
div.sourceCode { overflow: auto; }
}
@media print {
code.sourceCode { white-space: pre-wrap; }
a.sourceLine { text-indent: -1em; padding-left: 1em; }
}
pre.numberSource a.sourceLine
{ position: relative; left: -4em; }
pre.numberSource a.sourceLine::before
{ content: attr(data-line-number);
position: relative; left: -1em; text-align: right; vertical-align: baseline;
border: none; pointer-events: all; display: inline-block;
-webkit-touch-callout: none; -webkit-user-select: none;
-khtml-user-select: none; -moz-user-select: none;
-ms-user-select: none; user-select: none;
padding: 0 4px; width: 4em;
color: #aaaaaa;
}
pre.numberSource { margin-left: 3em; border-left: 1px solid #aaaaaa; padding-left: 4px; }
div.sourceCode
{ }
@media screen {
a.sourceLine::before { text-decoration: underline; }
}
code span.al { color: #ff0000; font-weight: bold; } /* Alert */
code span.an { color: #60a0b0; font-weight: bold; font-style: italic; } /* Annotation */
code span.at { color: #7d9029; } /* Attribute */
code span.bn { color: #40a070; } /* BaseN */
code span.bu { } /* BuiltIn */
code span.cf { color: #007020; font-weight: bold; } /* ControlFlow */
code span.ch { color: #4070a0; } /* Char */
code span.cn { color: #880000; } /* Constant */
code span.co { color: #60a0b0; font-style: italic; } /* Comment */
code span.cv { color: #60a0b0; font-weight: bold; font-style: italic; } /* CommentVar */
code span.do { color: #ba2121; font-style: italic; } /* Documentation */
code span.dt { color: #902000; } /* DataType */
code span.dv { color: #40a070; } /* DecVal */
code span.er { color: #ff0000; font-weight: bold; } /* Error */
code span.ex { } /* Extension */
code span.fl { color: #40a070; } /* Float */
code span.fu { color: #06287e; } /* Function */
code span.im { } /* Import */
code span.in { color: #60a0b0; font-weight: bold; font-style: italic; } /* Information */
code span.kw { color: #007020; font-weight: bold; } /* Keyword */
code span.op { color: #666666; } /* Operator */
code span.ot { color: #007020; } /* Other */
code span.pp { color: #bc7a00; } /* Preprocessor */
code span.sc { color: #4070a0; } /* SpecialChar */
code span.ss { color: #bb6688; } /* SpecialString */
code span.st { color: #4070a0; } /* String */
code span.va { color: #19177c; } /* Variable */
code span.vs { color: #4070a0; } /* VerbatimString */
code span.wa { color: #60a0b0; font-weight: bold; font-style: italic; } /* Warning */
</style>
<link rel="stylesheet" href="style.css" type="text/css" />
</head>
<body>
<!--bookdown:title:start-->
<!--bookdown:title:end-->
<!--bookdown:toc:start-->
<div class="book without-animation with-summary font-size-2 font-family-1" data-basepath=".">
<div class="book-summary">
<nav role="navigation">
<!--bookdown:toc2:start-->
<ul>
<li><a href="#chapter_exploring-a-single-table"><span class="toc-section-number">1</span> Asking Business Questions From a Single Table</a><ul>
<li><a href="#setup-our-standard-working-environment"><span class="toc-section-number">1.1</span> Setup our standard working environment</a></li>
<li><a href="#a-word-on-naming"><span class="toc-section-number">1.2</span> A word on naming</a></li>
<li><a href="#the-overall-adventureworks-sales-picture"><span class="toc-section-number">1.3</span> The overall AdventureWorks sales picture</a></li>
<li><a href="#annual-sales"><span class="toc-section-number">1.4</span> Annual sales</a><ul>
<li><a href="#total-sales-by-year"><span class="toc-section-number">1.4.1</span> Total sales by year</a></li>
<li><a href="#total-order-volume"><span class="toc-section-number">1.4.2</span> Total order volume</a></li>
<li><a href="#average-dollars-per-sale"><span class="toc-section-number">1.4.3</span> Average dollars per sale</a></li>
</ul></li>
<li><a href="#monthly-sales"><span class="toc-section-number">1.5</span> Monthly Sales</a><ul>
<li><a href="#check-lagged-monthly-data"><span class="toc-section-number">1.5.1</span> Check lagged monthly data</a></li>
<li><a href="#comparing-dollars-and-orders-to-a-base-year"><span class="toc-section-number">1.5.2</span> Comparing dollars and orders to a base year</a></li>
</ul></li>
<li><a href="#the-effect-of-online-sales"><span class="toc-section-number">1.6</span> The effect of online sales</a><ul>
<li><a href="#add-onlineorderflag-to-our-annual-sales-query"><span class="toc-section-number">1.6.1</span> Add <code>onlineorderflag</code> to our annual sales query</a></li>
<li><a href="#annual-sales-comparison"><span class="toc-section-number">1.6.2</span> Annual Sales comparison</a></li>
<li><a href="#order-volume-comparison"><span class="toc-section-number">1.6.3</span> Order volume comparison</a></li>
<li><a href="#comparing-average-order-size-sales-reps-to-online-orders"><span class="toc-section-number">1.6.4</span> Comparing average order size: <strong>Sales Reps</strong> to <strong>Online</strong> orders</a></li>
</ul></li>
<li><a href="#impact-of-order-type-on-monthly-sales"><span class="toc-section-number">1.7</span> Impact of order type on monthly sales</a><ul>
<li><a href="#retrieve-monthly-sales-with-the-onlineorderflag"><span class="toc-section-number">1.7.1</span> Retrieve monthly sales with the <code>onlineorderflag</code></a></li>
<li><a href="#monthly-variation-compared-to-a-trend-line"><span class="toc-section-number">1.7.2</span> Monthly variation compared to a trend line</a></li>
<li><a href="#compare-monthly-lagged-data-by-sales-channel"><span class="toc-section-number">1.7.3</span> Compare monthly lagged data by Sales Channel</a></li>
</ul></li>
<li><a href="#detect-and-diagnose-the-day-of-the-month-problem"><span class="toc-section-number">1.8</span> Detect and diagnose the day of the month problem</a><ul>
<li><a href="#sales-rep-orderdate-distribution"><span class="toc-section-number">1.8.1</span> Sales Rep Orderdate Distribution</a></li>
</ul></li>
<li><a href="#correcting-the-order-date-for-sales-reps"><span class="toc-section-number">1.9</span> Correcting the order date for <strong>Sales Reps</strong></a><ul>
<li><a href="#define-a-date-correction-function-in-r"><span class="toc-section-number">1.9.1</span> Define a date correction function in R</a></li>
<li><a href="#define-postgres-date-function"><span class="toc-section-number">1.9.2</span> Define and store a PostgreSQL function to correct the date</a></li>
<li><a href="#use-the-postgresql-function"><span class="toc-section-number">1.9.3</span> Use the PostgreSQL function</a></li>
<li><a href="#monthly-sales-by-order-type-with-corrected-dates-relative-to-a-trend-line"><span class="toc-section-number">1.9.4</span> Monthly Sales by Order Type with corrected dates – relative to a trend line</a></li>
</ul></li>
<li><a href="#disconnect-from-the-database-and-stop-docker"><span class="toc-section-number">1.10</span> Disconnect from the database and stop Docker</a></li>
</ul></li>
</ul>
<!--bookdown:toc2:end-->
</nav>
</div>
<div class="book-body">
<div class="body-inner">
<div class="book-header" role="navigation">
<h1>
<i class="fa fa-circle-o-notch fa-spin"></i><a href="./"></a>
</h1>
</div>
<div class="page-wrapper" tabindex="-1" role="main">
<div class="page-inner">
<section class="normal" id="section-">
<!--bookdown:toc:end-->
<!--bookdown:body:start-->
<div id="chapter_exploring-a-single-table" class="section level1">
<h1><span class="header-section-number">1</span> Asking Business Questions From a Single Table</h1>
<blockquote>
<p>This chapter explores:</p>
<ul>
<li>Issues that come up when investigating a single table from a business perspective</li>
<li>Show the multiple data anomalies found in a single AdventureWorks table (<em>salesorderheader</em>)</li>
<li>The interplay between “data questions” and “business questions”</li>
</ul>
</blockquote>
<p>The previous chapter has demonstrated some of the automated techniques for showing what’s in a table using some standard R functions and packages. Now we demonstrate a step-by-step process of making sense of what’s in one table with more of a business perspective. We illustrate the kind of detective work that’s often involved as we investigate the <em>organizational meaning</em> of the data in a table. We’ll investigate the <code>salesorderheader</code> table in the <code>sales</code> schema in this example to understand the sales profile of the “AdventureWorks” business. We show that there are quite a few interpretation issues even when we are examining just 3 out of the 25 columns in one table.</p>
<p>For this kind of detective work we are seeking to understand the following elements separately and as they interact with each other:</p>
<ul>
<li>What data is stored in the database</li>
<li>How information is represented</li>
<li>How the data is entered at a day-to-day level to represent business activities</li>
<li>How the business itself is changing over time</li>
</ul>
<div id="setup-our-standard-working-environment" class="section level2">
<h2><span class="header-section-number">1.1</span> Setup our standard working environment</h2>
<p>Use these libraries:</p>
<div class="sourceCode" id="cb1"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb1-1" data-line-number="1"><span class="kw">library</span>(tidyverse)</a>
<a class="sourceLine" id="cb1-2" data-line-number="2"><span class="kw">library</span>(DBI)</a>
<a class="sourceLine" id="cb1-3" data-line-number="3"><span class="kw">library</span>(RPostgres)</a>
<a class="sourceLine" id="cb1-4" data-line-number="4"><span class="kw">library</span>(connections)</a>
<a class="sourceLine" id="cb1-5" data-line-number="5"><span class="kw">library</span>(glue)</a>
<a class="sourceLine" id="cb1-6" data-line-number="6"><span class="kw">require</span>(knitr)</a>
<a class="sourceLine" id="cb1-7" data-line-number="7"><span class="kw">library</span>(dbplyr)</a>
<a class="sourceLine" id="cb1-8" data-line-number="8"><span class="kw">library</span>(sqlpetr)</a>
<a class="sourceLine" id="cb1-9" data-line-number="9"><span class="kw">library</span>(bookdown)</a>
<a class="sourceLine" id="cb1-10" data-line-number="10"><span class="kw">library</span>(here)</a>
<a class="sourceLine" id="cb1-11" data-line-number="11"><span class="kw">library</span>(lubridate)</a>
<a class="sourceLine" id="cb1-12" data-line-number="12"><span class="kw">library</span>(gt)</a>
<a class="sourceLine" id="cb1-13" data-line-number="13"><span class="kw">library</span>(scales)</a>
<a class="sourceLine" id="cb1-14" data-line-number="14"><span class="kw">theme_set</span>(<span class="kw">theme_light</span>())</a></code></pre></div>
<p>Connect to <code>adventureworks</code>. In an interactive session we prefer to use <code>connections::connection_open</code> instead of dbConnect</p>
<div class="sourceCode" id="cb2"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb2-1" data-line-number="1"><span class="kw">sp_docker_start</span>(<span class="st">"adventureworks"</span>)</a>
<a class="sourceLine" id="cb2-2" data-line-number="2"><span class="kw">Sys.sleep</span>(sleep_default)</a>
<a class="sourceLine" id="cb2-3" data-line-number="3">con <-<span class="st"> </span><span class="kw">dbConnect</span>(</a>
<a class="sourceLine" id="cb2-4" data-line-number="4"> RPostgres<span class="op">::</span><span class="kw">Postgres</span>(),</a>
<a class="sourceLine" id="cb2-5" data-line-number="5"> <span class="co"># without the previous and next lines, some functions fail with bigint data </span></a>
<a class="sourceLine" id="cb2-6" data-line-number="6"> <span class="co"># so change int64 to integer</span></a>
<a class="sourceLine" id="cb2-7" data-line-number="7"> <span class="dt">bigint =</span> <span class="st">"integer"</span>, </a>
<a class="sourceLine" id="cb2-8" data-line-number="8"> <span class="dt">host =</span> <span class="st">"localhost"</span>,</a>
<a class="sourceLine" id="cb2-9" data-line-number="9"> <span class="dt">port =</span> <span class="dv">5432</span>,</a>
<a class="sourceLine" id="cb2-10" data-line-number="10"> <span class="dt">user =</span> <span class="st">"postgres"</span>,</a>
<a class="sourceLine" id="cb2-11" data-line-number="11"> <span class="dt">password =</span> <span class="st">"postgres"</span>,</a>
<a class="sourceLine" id="cb2-12" data-line-number="12"> <span class="dt">dbname =</span> <span class="st">"adventureworks"</span>)</a></code></pre></div>
<p>Some queries generate big integers, so we need to include <code>RPostgres::Postgres()</code> and <code>bigint = "integer"</code> in the connections statement because some functions in the tidyverse object to the <strong>bigint</strong> datatype.</p>
</div>
<div id="a-word-on-naming" class="section level2">
<h2><span class="header-section-number">1.2</span> A word on naming</h2>
<blockquote>
<p>You will find that many tables will have columns with the same name in an enterprise database. For example, in the <em>AdventureWorks</em> database, almost all tables have columns named <code>rowguid</code> and <code>modifieddate</code> and there are many other examples of names that are reused throughout the database. Duplicate columns are best renamed or deliberately dropped. The meaning of a column depends on the table that contains it, so as you pull a column out of a table, when renaming it the collumns provenance should be reflected in the new name.</p>
<p>Naming columns carefully (whether retrieved from the database or calculated) will pay off, especially as our queries become more complex. Using <code>soh</code> as an abbreviation of <em>sales order header</em> to tag columns or statistics that are derived from the <code>salesorderheader</code> table, as we do in this book, is one example of an intentional naming strategy: it reminds us of the original source of the data. You, future you, and your collaborators will appreciate the effort no matter what naming convention you adopt. And a naming convention when rigidly applied can yield some long and ugly names.</p>
<p>In the following example <code>soh</code> appears in different positions in the column name but it is easy to guess at a glance that the data comes from the <code>salesorderheader</code> table.</p>
<p>Naming derived tables is just as important as naming derived columns.</p>
</blockquote>
</div>
<div id="the-overall-adventureworks-sales-picture" class="section level2">
<h2><span class="header-section-number">1.3</span> The overall AdventureWorks sales picture</h2>
<p>We begin by looking at Sales on a yearly basis, then consider monthly sales. We discover that half way through the period represented in the database, the business appears to begin selling online, which has very different characteristics than sales by Sales Reps. We then look at the details of how Sales Rep sales are recorded in the system and discover a data anomaly that we can correct.</p>
</div>
<div id="annual-sales" class="section level2">
<h2><span class="header-section-number">1.4</span> Annual sales</h2>
<p>On an annual basis, are sales dollars trending up, down or flat? We begin with annual revenue and number of orders.</p>
<div class="sourceCode" id="cb3"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb3-1" data-line-number="1">annual_sales <-<span class="st"> </span><span class="kw">tbl</span>(con, <span class="kw">in_schema</span>(<span class="st">"sales"</span>, <span class="st">"salesorderheader"</span>)) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb3-2" data-line-number="2"><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">year =</span> <span class="kw">substr</span>(<span class="kw">as.character</span>(orderdate), <span class="dv">1</span>, <span class="dv">4</span>)) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb3-3" data-line-number="3"><span class="st"> </span><span class="kw">group_by</span>(year) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb3-4" data-line-number="4"><span class="st"> </span><span class="kw">summarize</span>(</a>
<a class="sourceLine" id="cb3-5" data-line-number="5"> <span class="dt">min_soh_orderdate =</span> <span class="kw">min</span>(orderdate, <span class="dt">na.rm =</span> <span class="ot">TRUE</span>),</a>
<a class="sourceLine" id="cb3-6" data-line-number="6"> <span class="dt">max_soh_orderdate =</span> <span class="kw">max</span>(orderdate, <span class="dt">na.rm =</span> <span class="ot">TRUE</span>),</a>
<a class="sourceLine" id="cb3-7" data-line-number="7"> <span class="dt">total_soh_dollars =</span> <span class="kw">round</span>(<span class="kw">sum</span>(subtotal, <span class="dt">na.rm =</span> <span class="ot">TRUE</span>), <span class="dv">2</span>),</a>
<a class="sourceLine" id="cb3-8" data-line-number="8"> <span class="dt">avg_total_soh_dollars =</span> <span class="kw">round</span>(<span class="kw">mean</span>(subtotal, <span class="dt">na.rm =</span> <span class="ot">TRUE</span>), <span class="dv">2</span>),</a>
<a class="sourceLine" id="cb3-9" data-line-number="9"> <span class="dt">soh_count =</span> <span class="kw">n</span>()</a>
<a class="sourceLine" id="cb3-10" data-line-number="10"> ) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb3-11" data-line-number="11"><span class="st"> </span><span class="kw">arrange</span>(year) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb3-12" data-line-number="12"><span class="st"> </span><span class="kw">select</span>(</a>
<a class="sourceLine" id="cb3-13" data-line-number="13"> year, min_soh_orderdate, max_soh_orderdate, total_soh_dollars,</a>
<a class="sourceLine" id="cb3-14" data-line-number="14"> avg_total_soh_dollars, soh_count</a>
<a class="sourceLine" id="cb3-15" data-line-number="15"> ) <span class="op">%>%</span><span class="st"> </span></a>
<a class="sourceLine" id="cb3-16" data-line-number="16"><span class="st"> </span><span class="kw">collect</span>() </a></code></pre></div>
<p>Note that all of this query is running on the server since the <code>collect()</code> statement is at the very end.</p>
<div class="sourceCode" id="cb4"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb4-1" data-line-number="1">annual_sales <span class="op">%>%</span><span class="st"> </span><span class="kw">str</span>()</a></code></pre></div>
<pre><code>## Classes 'tbl_df', 'tbl' and 'data.frame': 4 obs. of 6 variables:
## $ year : chr "2011" "2012" "2013" "2014"
## $ min_soh_orderdate : POSIXct, format: "2011-05-31" "2012-01-01" ...
## $ max_soh_orderdate : POSIXct, format: "2011-12-31" "2012-12-31" ...
## $ total_soh_dollars : num 12641672 33524301 43622479 20057929
## $ avg_total_soh_dollars: num 7867 8563 3076 1705
## $ soh_count : int 1607 3915 14182 11761</code></pre>
<p>We hang on to some date information for later use in plot titles.</p>
<div class="sourceCode" id="cb6"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb6-1" data-line-number="1">min_soh_dt <-<span class="st"> </span><span class="kw">min</span>(annual_sales<span class="op">$</span>min_soh_orderdate)</a>
<a class="sourceLine" id="cb6-2" data-line-number="2">max_soh_dt <-<span class="st"> </span><span class="kw">max</span>(annual_sales<span class="op">$</span>max_soh_orderdate)</a></code></pre></div>
<div id="total-sales-by-year" class="section level3">
<h3><span class="header-section-number">1.4.1</span> Total sales by year</h3>
<div class="sourceCode" id="cb7"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb7-1" data-line-number="1"><span class="kw">ggplot</span>(<span class="dt">data =</span> annual_sales, <span class="kw">aes</span>(<span class="dt">x =</span> year, <span class="dt">y =</span> total_soh_dollars)) <span class="op">+</span></a>
<a class="sourceLine" id="cb7-2" data-line-number="2"><span class="st"> </span><span class="kw">geom_col</span>() <span class="op">+</span></a>
<a class="sourceLine" id="cb7-3" data-line-number="3"><span class="st"> </span><span class="kw">geom_text</span>(<span class="kw">aes</span>(<span class="dt">label =</span> <span class="kw">round</span>(<span class="kw">as.numeric</span>(total_soh_dollars), <span class="dt">digits =</span> <span class="dv">0</span>)), <span class="dt">vjust =</span> <span class="fl">-0.25</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb7-4" data-line-number="4"><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">labels =</span> scales<span class="op">::</span><span class="kw">dollar_format</span>()) <span class="op">+</span></a>
<a class="sourceLine" id="cb7-5" data-line-number="5"><span class="st"> </span><span class="kw">labs</span>(</a>
<a class="sourceLine" id="cb7-6" data-line-number="6"> <span class="dt">title =</span> <span class="st">"AdventureWorks Total Sales by Year"</span>,</a>
<a class="sourceLine" id="cb7-7" data-line-number="7"> <span class="dt">x =</span> <span class="kw">glue</span>(<span class="st">"Years between "</span>, {<span class="kw">format</span>(min_soh_dt, <span class="st">"%B %d, %Y"</span>)} , <span class="st">" and "</span>, </a>
<a class="sourceLine" id="cb7-8" data-line-number="8"> {<span class="kw">format</span>(max_soh_dt, <span class="st">"%B %d, %Y"</span>)}),</a>
<a class="sourceLine" id="cb7-9" data-line-number="9"> <span class="dt">y =</span> <span class="st">"Sales $"</span></a>
<a class="sourceLine" id="cb7-10" data-line-number="10"> )</a></code></pre></div>
<p><img src="083-exploring-a-single-table_files/figure-html/AdventureWorks%20Annual%20Sales-1.png" width="480" />
Both 2011 and 2014 turn out to be are shorter time spans than the other two years, making comparison interpretation difficult. Still, it’s clear that 2013 was the best year for annual sales dollars.</p>
</div>
<div id="total-order-volume" class="section level3">
<h3><span class="header-section-number">1.4.2</span> Total order volume</h3>
<p>Comparing the number of orders per year has roughly the same overall pattern (2013 ranks highest, etc.) but the proportions between the years are quite different.</p>
<div class="sourceCode" id="cb8"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb8-1" data-line-number="1"><span class="kw">ggplot</span>(<span class="dt">data =</span> annual_sales, <span class="kw">aes</span>(<span class="dt">x =</span> year, <span class="dt">y =</span> <span class="kw">as.numeric</span>(soh_count))) <span class="op">+</span></a>
<a class="sourceLine" id="cb8-2" data-line-number="2"><span class="st"> </span><span class="kw">geom_col</span>() <span class="op">+</span></a>
<a class="sourceLine" id="cb8-3" data-line-number="3"><span class="st"> </span><span class="kw">geom_text</span>(<span class="kw">aes</span>(<span class="dt">label =</span> <span class="kw">round</span>(<span class="kw">as.numeric</span>(soh_count), <span class="dt">digits =</span> <span class="dv">0</span>)), <span class="dt">vjust =</span> <span class="fl">-0.25</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb8-4" data-line-number="4"><span class="st"> </span><span class="kw">labs</span>(</a>
<a class="sourceLine" id="cb8-5" data-line-number="5"> <span class="dt">title =</span> <span class="st">"Total Number of orders by year"</span>,</a>
<a class="sourceLine" id="cb8-6" data-line-number="6"> <span class="dt">x =</span> <span class="kw">glue</span>(<span class="st">"Years between "</span>, {<span class="kw">format</span>(min_soh_dt, <span class="st">"%B %d, %Y"</span>)} , <span class="st">" and "</span>, </a>
<a class="sourceLine" id="cb8-7" data-line-number="7"> {<span class="kw">format</span>(max_soh_dt, <span class="st">"%B %d, %Y"</span>)}),</a>
<a class="sourceLine" id="cb8-8" data-line-number="8"> <span class="dt">y =</span> <span class="st">"Total Number of Orders"</span></a>
<a class="sourceLine" id="cb8-9" data-line-number="9"> )</a></code></pre></div>
<div class="figure">
<img src="083-exploring-a-single-table_files/figure-html/Average%20dollars%20per%20sale%20-%20v2-1.png" alt="Total Number of orders by year" width="384" />
<p class="caption">
(#fig:Average dollars per sale - v2)Total Number of orders by year
</p>
</div>
<p>Although 2013 was the best year in terms of total number of orders, there were many more in 2014 compared with 2012. That suggests looking at the average dollars per sale for each year.</p>
</div>
<div id="average-dollars-per-sale" class="section level3">
<h3><span class="header-section-number">1.4.3</span> Average dollars per sale</h3>
<div class="sourceCode" id="cb9"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb9-1" data-line-number="1"><span class="kw">ggplot</span>(<span class="dt">data =</span> annual_sales, <span class="kw">aes</span>(<span class="dt">x =</span> year, <span class="dt">y =</span> avg_total_soh_dollars)) <span class="op">+</span></a>
<a class="sourceLine" id="cb9-2" data-line-number="2"><span class="st"> </span><span class="kw">geom_col</span>() <span class="op">+</span></a>
<a class="sourceLine" id="cb9-3" data-line-number="3"><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">labels =</span> scales<span class="op">::</span><span class="kw">dollar_format</span>()) <span class="op">+</span></a>
<a class="sourceLine" id="cb9-4" data-line-number="4"><span class="st"> </span><span class="kw">geom_text</span>(<span class="kw">aes</span>(<span class="dt">label =</span> <span class="kw">round</span>(avg_total_soh_dollars, <span class="dt">digits =</span> <span class="dv">0</span>)), <span class="dt">vjust =</span> <span class="fl">-0.25</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb9-5" data-line-number="5"><span class="st"> </span><span class="kw">labs</span>(</a>
<a class="sourceLine" id="cb9-6" data-line-number="6"> <span class="dt">title =</span> <span class="st">"Yearly Average Dollars per Sale"</span>,</a>
<a class="sourceLine" id="cb9-7" data-line-number="7"> <span class="dt">x =</span> <span class="kw">glue</span>(<span class="st">"Years between "</span>, {<span class="kw">format</span>(min_soh_dt, <span class="st">"%B %d, %Y"</span>)} , <span class="st">" to "</span>, </a>
<a class="sourceLine" id="cb9-8" data-line-number="8"> {<span class="kw">format</span>(max_soh_dt, <span class="st">"%B %d, %Y"</span>)}),</a>
<a class="sourceLine" id="cb9-9" data-line-number="9"> <span class="dt">y =</span> <span class="st">"Average Sale Amount"</span></a>
<a class="sourceLine" id="cb9-10" data-line-number="10"> )</a></code></pre></div>
<div class="figure">
<img src="083-exploring-a-single-table_files/figure-html/average%20dollars%20per%20sale%20-%20-1.png" alt="Yearly Average Dollars per Sale" width="384" />
<p class="caption">
(#fig:average dollars per sale - )Yearly Average Dollars per Sale
</p>
</div>
<p>That’s a big drop between average sale of more than $7,000 in the first two years down to the $3,000 range in the last two. There has been a remarkable change in this business. At the same time the total number of orders shot up from less than 4,000 a year to more than 14,000. <strong>Why are the number of orders increasing, but the average dollar amount of a sale is dropping? </strong></p>
<p>Perhaps monthly monthly sales has the anser. We adapt the first query to group by month and year.</p>
</div>
</div>
<div id="monthly-sales" class="section level2">
<h2><span class="header-section-number">1.5</span> Monthly Sales</h2>
<p>Our next iteration drills down from annual sales dollars to monthly sales dollars. For that we download the orderdate as a date, rather than a character variable for the year. R handles the conversion from the PostgreSQL date-time to an R date-time. We then convert it to a simple date with a <code>lubridate</code> function.</p>
<p>The following query uses the <a href="https://www.postgresqltutorial.com/postgresql-date_trunc/">postgreSQL function <code>date_trunc</code></a>, which is equivalent to <code>lubridate</code>’s <code>round_date</code> function in R. If you want to push as much of the processing as possible onto the database server and thus possibly deal with smaller datasets in R, interleaving <a href="https://www.postgresql.org/docs/current/functions.html">postgreSQL functions</a> into your dplyr code will help.</p>
<div class="sourceCode" id="cb10"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb10-1" data-line-number="1">monthly_sales <-<span class="st"> </span><span class="kw">tbl</span>(con, <span class="kw">in_schema</span>(<span class="st">"sales"</span>, <span class="st">"salesorderheader"</span>)) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb10-2" data-line-number="2"><span class="st"> </span><span class="kw">select</span>(orderdate, subtotal) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb10-3" data-line-number="3"><span class="st"> </span><span class="kw">mutate</span>(</a>
<a class="sourceLine" id="cb10-4" data-line-number="4"> <span class="dt">orderdate =</span> <span class="kw">date_trunc</span>(<span class="st">'month'</span>, orderdate)</a>
<a class="sourceLine" id="cb10-5" data-line-number="5"> ) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb10-6" data-line-number="6"><span class="st"> </span><span class="kw">group_by</span>(orderdate) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb10-7" data-line-number="7"><span class="st"> </span><span class="kw">summarize</span>(</a>
<a class="sourceLine" id="cb10-8" data-line-number="8"> <span class="dt">total_soh_dollars =</span> <span class="kw">round</span>(<span class="kw">sum</span>(subtotal, <span class="dt">na.rm =</span> <span class="ot">TRUE</span>), <span class="dv">2</span>),</a>
<a class="sourceLine" id="cb10-9" data-line-number="9"> <span class="dt">avg_total_soh_dollars =</span> <span class="kw">round</span>(<span class="kw">mean</span>(subtotal, <span class="dt">na.rm =</span> <span class="ot">TRUE</span>), <span class="dv">2</span>),</a>
<a class="sourceLine" id="cb10-10" data-line-number="10"> <span class="dt">soh_count =</span> <span class="kw">n</span>()</a>
<a class="sourceLine" id="cb10-11" data-line-number="11"> ) <span class="op">%>%</span><span class="st"> </span></a>
<a class="sourceLine" id="cb10-12" data-line-number="12"><span class="st"> </span><span class="kw">show_query</span>() <span class="op">%>%</span><span class="st"> </span></a>
<a class="sourceLine" id="cb10-13" data-line-number="13"><span class="st"> </span><span class="kw">collect</span>() </a></code></pre></div>
<pre><code>## <SQL>
## SELECT "orderdate", ROUND((SUM("subtotal")) :: numeric, 2) AS "total_soh_dollars", ROUND((AVG("subtotal")) :: numeric, 2) AS "avg_total_soh_dollars", COUNT(*) AS "soh_count"
## FROM (SELECT date_trunc('month', "orderdate") AS "orderdate", "subtotal"
## FROM sales.salesorderheader) "dbplyr_004"
## GROUP BY "orderdate"</code></pre>
<blockquote>
<p>Note that <code>date_trunc('month', orderdate)</code> gets passed through exactly “as is.”</p>
</blockquote>
<p>In many cases we don’t really care whether our queries are executed by R or by the SQL server, but if we do care we need to substitute the <code>postgreSQL</code> equivalent for the R functions we might ordinarily use. In those cases we have to check whether functions from R packages like <code>lubridate</code> and the equivalent <code>postgreSQL</code> functions are exactly alike. Often they are subtly different: in the previous query the <code>postgreSQL</code> function produces a <code>POSIXct</code> column, not a <code>Date</code> so we need to tack on a mutate function once the data is on the R side as shown here:</p>
<div class="sourceCode" id="cb12"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb12-1" data-line-number="1">monthly_sales <-<span class="st"> </span>monthly_sales <span class="op">%>%</span><span class="st"> </span></a>
<a class="sourceLine" id="cb12-2" data-line-number="2"><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">orderdate =</span> <span class="kw">as.Date</span>(orderdate))</a></code></pre></div>
<p>Next let’s plot the monthly sales data:</p>
<div class="sourceCode" id="cb13"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb13-1" data-line-number="1"><span class="kw">ggplot</span>(<span class="dt">data =</span> monthly_sales, <span class="kw">aes</span>(<span class="dt">x =</span> orderdate, <span class="dt">y =</span> total_soh_dollars)) <span class="op">+</span></a>
<a class="sourceLine" id="cb13-2" data-line-number="2"><span class="st"> </span><span class="kw">geom_col</span>() <span class="op">+</span></a>
<a class="sourceLine" id="cb13-3" data-line-number="3"><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">labels =</span> dollar) <span class="op">+</span></a>
<a class="sourceLine" id="cb13-4" data-line-number="4"><span class="st"> </span><span class="kw">theme</span>(<span class="dt">plot.title =</span> <span class="kw">element_text</span>(<span class="dt">hjust =</span> <span class="fl">0.5</span>)) <span class="op">+</span><span class="st"> </span></a>
<a class="sourceLine" id="cb13-5" data-line-number="5"><span class="st"> </span><span class="kw">labs</span>(</a>
<a class="sourceLine" id="cb13-6" data-line-number="6"> <span class="dt">title =</span> <span class="kw">glue</span>(<span class="st">"Sales by Month</span><span class="ch">\n</span><span class="st">"</span>, {<span class="kw">format</span>(min_soh_dt, <span class="st">"%B %d, %Y"</span>)} , <span class="st">" to "</span>, </a>
<a class="sourceLine" id="cb13-7" data-line-number="7"> {<span class="kw">format</span>(max_soh_dt, <span class="st">"%B %d, %Y"</span>)}),</a>
<a class="sourceLine" id="cb13-8" data-line-number="8"> <span class="dt">x =</span> <span class="st">"Month"</span>,</a>
<a class="sourceLine" id="cb13-9" data-line-number="9"> <span class="dt">y =</span> <span class="st">"Sales Dollars"</span></a>
<a class="sourceLine" id="cb13-10" data-line-number="10"> )</a></code></pre></div>
<div class="figure">
<img src="083-exploring-a-single-table_files/figure-html/Total%20monthly%20sales%20bar%20chart-1.png" alt="Total Monthly Sales" width="672" />
<p class="caption">
(#fig:Total monthly sales bar chart)Total Monthly Sales
</p>
</div>
<p>That graph doesn’t show how the business might have changed, but it is remarkable how much variation there is from one month to another – particularly in 2012 and 2014.</p>
<div id="check-lagged-monthly-data" class="section level3">
<h3><span class="header-section-number">1.5.1</span> Check lagged monthly data</h3>
<p>Because of the month-over-month sales variation. We’ll use <code>dplyr::lag</code> to help find the delta and later visualize just how much month-to-month difference there is.</p>
<div class="sourceCode" id="cb14"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb14-1" data-line-number="1">monthly_sales <-<span class="st"> </span><span class="kw">arrange</span>(monthly_sales, orderdate)</a>
<a class="sourceLine" id="cb14-2" data-line-number="2"></a>
<a class="sourceLine" id="cb14-3" data-line-number="3">monthly_sales_lagged <-<span class="st"> </span>monthly_sales <span class="op">%>%</span></a>
<a class="sourceLine" id="cb14-4" data-line-number="4"><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">monthly_sales_change =</span> (dplyr<span class="op">::</span><span class="kw">lag</span>(total_soh_dollars)) <span class="op">-</span><span class="st"> </span>total_soh_dollars)</a>
<a class="sourceLine" id="cb14-5" data-line-number="5"></a>
<a class="sourceLine" id="cb14-6" data-line-number="6">monthly_sales_lagged[<span class="kw">is.na</span>(monthly_sales_lagged)] =<span class="st"> </span><span class="dv">0</span></a></code></pre></div>
<div class="sourceCode" id="cb15"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb15-1" data-line-number="1"><span class="kw">median</span>(monthly_sales_lagged<span class="op">$</span>monthly_sales_change, <span class="dt">na.rm =</span> <span class="ot">TRUE</span>)</a></code></pre></div>
<pre><code>## [1] -221690.505</code></pre>
<div class="sourceCode" id="cb17"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb17-1" data-line-number="1">(sum_lags <-<span class="st"> </span><span class="kw">summary</span>(monthly_sales_lagged<span class="op">$</span>monthly_sales_change))</a></code></pre></div>
<pre><code>## Min. 1st Qu. Median Mean 3rd Qu. Max.
## -5879806.05 -1172995.19 -221690.51 11968.42 1159252.70 5420357.17</code></pre>
<p>The average month over month change in sales looks OK ($ 11,968) although the Median is negative: $ 11,968. There is a very wide spread in our month-over-month sales data between the lower and upper quartile. We can plot the variation as follows:</p>
<div class="sourceCode" id="cb19"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb19-1" data-line-number="1"><span class="kw">ggplot</span>(monthly_sales_lagged, <span class="kw">aes</span>(<span class="dt">x =</span> orderdate, <span class="dt">y =</span> monthly_sales_change)) <span class="op">+</span></a>
<a class="sourceLine" id="cb19-2" data-line-number="2"><span class="st"> </span><span class="kw">scale_x_date</span>(<span class="dt">date_breaks =</span> <span class="st">"year"</span>, <span class="dt">date_labels =</span> <span class="st">"%Y"</span>, <span class="dt">date_minor_breaks =</span> <span class="st">"3 months"</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb19-3" data-line-number="3"><span class="st"> </span><span class="kw">geom_line</span>() <span class="op">+</span></a>
<a class="sourceLine" id="cb19-4" data-line-number="4"><span class="st"> </span><span class="co"># geom_point() +</span></a>
<a class="sourceLine" id="cb19-5" data-line-number="5"><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">limits =</span> <span class="kw">c</span>(<span class="op">-</span><span class="dv">6000000</span>,<span class="dv">5500000</span>), <span class="dt">labels =</span> scales<span class="op">::</span><span class="kw">dollar_format</span>()) <span class="op">+</span></a>
<a class="sourceLine" id="cb19-6" data-line-number="6"><span class="st"> </span><span class="kw">theme</span>(<span class="dt">plot.title =</span> <span class="kw">element_text</span>(<span class="dt">hjust =</span> <span class="fl">.5</span>)) <span class="op">+</span><span class="st"> </span></a>
<a class="sourceLine" id="cb19-7" data-line-number="7"><span class="st"> </span><span class="kw">labs</span>(</a>
<a class="sourceLine" id="cb19-8" data-line-number="8"> <span class="dt">title =</span> <span class="kw">glue</span>(</a>
<a class="sourceLine" id="cb19-9" data-line-number="9"> <span class="st">"Monthly Sales Change </span><span class="ch">\n</span><span class="st">"</span>,</a>
<a class="sourceLine" id="cb19-10" data-line-number="10"> <span class="st">"Between "</span>, {<span class="kw">format</span>(min_soh_dt, <span class="st">"%B %d, %Y"</span>)} , <span class="st">" and "</span>, </a>
<a class="sourceLine" id="cb19-11" data-line-number="11"> {<span class="kw">format</span>(max_soh_dt, <span class="st">"%B %d, %Y"</span>)}</a>
<a class="sourceLine" id="cb19-12" data-line-number="12"> ),</a>
<a class="sourceLine" id="cb19-13" data-line-number="13"> <span class="dt">x =</span> <span class="st">"Month"</span>,</a>
<a class="sourceLine" id="cb19-14" data-line-number="14"> <span class="dt">y =</span> <span class="st">"Dollar Change"</span></a>
<a class="sourceLine" id="cb19-15" data-line-number="15"> )</a></code></pre></div>
<div class="figure">
<img src="083-exploring-a-single-table_files/figure-html/unnamed-chunk-4-1.png" alt="Monthly Sales Change" width="672" />
<p class="caption">
(#fig:unnamed-chunk-4)Monthly Sales Change
</p>
</div>
<p>It looks like the big change in the business occurred in the summer of 2013 when the number of orders jumped but the dollar volume just continued to bump along.</p>
</div>
<div id="comparing-dollars-and-orders-to-a-base-year" class="section level3">
<h3><span class="header-section-number">1.5.2</span> Comparing dollars and orders to a base year</h3>
<p>To look at dollars and the number of orders together, we compare the monthly data to the yearly average for 2011.</p>
<div class="sourceCode" id="cb20"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb20-1" data-line-number="1">start_year <-<span class="st"> </span>monthly_sales <span class="op">%>%</span></a>
<a class="sourceLine" id="cb20-2" data-line-number="2"><span class="st"> </span><span class="kw">mutate</span>(<span class="dt">yr =</span> <span class="kw">year</span>(orderdate)) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb20-3" data-line-number="3"><span class="st"> </span><span class="kw">group_by</span>(yr) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb20-4" data-line-number="4"><span class="st"> </span><span class="kw">summarize</span>(</a>
<a class="sourceLine" id="cb20-5" data-line-number="5"> <span class="dt">total_soh_dollars =</span> <span class="kw">sum</span>(total_soh_dollars),</a>
<a class="sourceLine" id="cb20-6" data-line-number="6"> <span class="dt">soh_count =</span> <span class="kw">sum</span>(soh_count),</a>
<a class="sourceLine" id="cb20-7" data-line-number="7"> <span class="dt">n_months =</span> <span class="kw">n</span>(),</a>
<a class="sourceLine" id="cb20-8" data-line-number="8"> <span class="dt">avg_dollars =</span> total_soh_dollars <span class="op">/</span><span class="st"> </span>n_months,</a>
<a class="sourceLine" id="cb20-9" data-line-number="9"> <span class="dt">avg_count =</span> soh_count <span class="op">/</span><span class="st"> </span>n_months</a>
<a class="sourceLine" id="cb20-10" data-line-number="10"> ) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb20-11" data-line-number="11"><span class="st"> </span><span class="kw">filter</span>(yr <span class="op">==</span><span class="st"> </span><span class="kw">min</span>(yr))</a></code></pre></div>
<p>Use 2011 as a baseline:</p>
<div class="sourceCode" id="cb21"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb21-1" data-line-number="1">start_year</a></code></pre></div>
<pre><code>## # A tibble: 1 x 6
## yr total_soh_dollars soh_count n_months avg_dollars avg_count
## <dbl> <dbl> <int> <int> <dbl> <dbl>
## 1 2011 12641672. 1607 8 1580209. 201.</code></pre>
<p>Express monthly data relative to 2011`</p>
<div class="sourceCode" id="cb23"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb23-1" data-line-number="1">monthly_sales_base_year_normalized_to_<span class="dv">2011</span> <-<span class="st"> </span>monthly_sales <span class="op">%>%</span></a>
<a class="sourceLine" id="cb23-2" data-line-number="2"><span class="st"> </span><span class="kw">mutate</span>(</a>
<a class="sourceLine" id="cb23-3" data-line-number="3"> <span class="dt">dollars =</span> (<span class="dv">100</span> <span class="op">*</span><span class="st"> </span>total_soh_dollars) <span class="op">/</span><span class="st"> </span>start_year<span class="op">$</span>avg_dollars,</a>
<a class="sourceLine" id="cb23-4" data-line-number="4"> <span class="dt">number_of_orders =</span> (<span class="dv">100</span> <span class="op">*</span><span class="st"> </span>soh_count) <span class="op">/</span><span class="st"> </span>start_year<span class="op">$</span>avg_count</a>
<a class="sourceLine" id="cb23-5" data-line-number="5"> ) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb23-6" data-line-number="6"><span class="st"> </span><span class="kw">ungroup</span>()</a>
<a class="sourceLine" id="cb23-7" data-line-number="7"></a>
<a class="sourceLine" id="cb23-8" data-line-number="8">monthly_sales_base_year_normalized_to_<span class="dv">2011</span> <-<span class="st"> </span>monthly_sales_base_year_normalized_to_<span class="dv">2011</span> <span class="op">%>%</span></a>
<a class="sourceLine" id="cb23-9" data-line-number="9"><span class="st"> </span><span class="kw">select</span>(orderdate, dollars, <span class="st">`</span><span class="dt"># of orders</span><span class="st">`</span> =<span class="st"> </span>number_of_orders) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb23-10" data-line-number="10"><span class="st"> </span><span class="kw">pivot_longer</span>(<span class="op">-</span>orderdate,</a>
<a class="sourceLine" id="cb23-11" data-line-number="11"> <span class="dt">names_to =</span> <span class="st">"relative_to_2011_average"</span>,</a>
<a class="sourceLine" id="cb23-12" data-line-number="12"> <span class="dt">values_to =</span> <span class="st">"amount"</span></a>
<a class="sourceLine" id="cb23-13" data-line-number="13"> )</a>
<a class="sourceLine" id="cb23-14" data-line-number="14"></a>
<a class="sourceLine" id="cb23-15" data-line-number="15">monthly_sales_base_year_normalized_to_<span class="dv">2011</span> <span class="op">%>%</span></a>
<a class="sourceLine" id="cb23-16" data-line-number="16"><span class="st"> </span><span class="kw">ggplot</span>(<span class="kw">aes</span>(orderdate, amount, <span class="dt">color =</span> relative_to_<span class="dv">2011</span>_average)) <span class="op">+</span></a>
<a class="sourceLine" id="cb23-17" data-line-number="17"><span class="st"> </span><span class="kw">geom_line</span>() <span class="op">+</span></a>
<a class="sourceLine" id="cb23-18" data-line-number="18"><span class="st"> </span><span class="kw">geom_hline</span>(<span class="dt">yintercept =</span> <span class="dv">100</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb23-19" data-line-number="19"><span class="st"> </span><span class="kw">scale_x_date</span>(<span class="dt">date_labels =</span> <span class="st">"%Y-%m"</span>, <span class="dt">date_breaks =</span> <span class="st">"6 months"</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb23-20" data-line-number="20"><span class="st"> </span><span class="kw">labs</span>(</a>
<a class="sourceLine" id="cb23-21" data-line-number="21"> <span class="dt">title =</span> <span class="kw">glue</span>(</a>
<a class="sourceLine" id="cb23-22" data-line-number="22"> <span class="st">"Adventureworks Normalized Monthly Sales</span><span class="ch">\n</span><span class="st">"</span>,</a>
<a class="sourceLine" id="cb23-23" data-line-number="23"> <span class="st">"Number of Sales Orders and Dollar Totals</span><span class="ch">\n</span><span class="st">"</span>,</a>
<a class="sourceLine" id="cb23-24" data-line-number="24"> {<span class="kw">format</span>(min_soh_dt, <span class="st">"%B %d, %Y"</span>)} , <span class="st">" to "</span>, </a>
<a class="sourceLine" id="cb23-25" data-line-number="25"> {<span class="kw">format</span>(max_soh_dt, <span class="st">"%B %d, %Y"</span>)}),</a>
<a class="sourceLine" id="cb23-26" data-line-number="26"> <span class="dt">x =</span> <span class="st">"Date"</span>,</a>
<a class="sourceLine" id="cb23-27" data-line-number="27"> <span class="dt">y =</span> <span class="st">""</span>,</a>
<a class="sourceLine" id="cb23-28" data-line-number="28"> <span class="dt">color =</span> <span class="st">"% change from</span><span class="ch">\n</span><span class="st"> 2011 average"</span></a>
<a class="sourceLine" id="cb23-29" data-line-number="29"> ) <span class="op">+</span></a>
<a class="sourceLine" id="cb23-30" data-line-number="30"><span class="st"> </span><span class="kw">theme</span>(<span class="dt">legend.position =</span> <span class="kw">c</span>(.<span class="dv">3</span>,.<span class="dv">75</span>))</a></code></pre></div>
<div class="figure">
<img src="083-exploring-a-single-table_files/figure-html/unnamed-chunk-7-1.png" alt="Miscellaneous plots" width="672" />
<p class="caption">
(#fig:unnamed-chunk-7)Miscellaneous plots
</p>
</div>
</div>
</div>
<div id="the-effect-of-online-sales" class="section level2">
<h2><span class="header-section-number">1.6</span> The effect of online sales</h2>
<p>We suspect that the business has changed a lot with the advent of online orders so we check the impact of <code>onlineorderflag</code> on annual sales. The <code>onlineorderflag</code> indicates which sales channel accounted for the sale, <strong>Sales Reps</strong> or <strong>Online</strong>.</p>
<div id="add-onlineorderflag-to-our-annual-sales-query" class="section level3">
<h3><span class="header-section-number">1.6.1</span> Add <code>onlineorderflag</code> to our annual sales query</h3>
<div class="sourceCode" id="cb24"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb24-1" data-line-number="1">annual_sales_w_channel <-<span class="st"> </span><span class="kw">tbl</span>(con, <span class="kw">in_schema</span>(<span class="st">"sales"</span>, <span class="st">"salesorderheader"</span>)) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb24-2" data-line-number="2"><span class="st"> </span><span class="kw">select</span>(orderdate, subtotal, onlineorderflag) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb24-3" data-line-number="3"><span class="st"> </span><span class="kw">collect</span>() <span class="op">%>%</span></a>
<a class="sourceLine" id="cb24-4" data-line-number="4"><span class="st"> </span><span class="kw">mutate</span>(</a>
<a class="sourceLine" id="cb24-5" data-line-number="5"> <span class="dt">orderdate =</span> <span class="kw">date</span>(orderdate),</a>
<a class="sourceLine" id="cb24-6" data-line-number="6"> <span class="dt">orderdate =</span> <span class="kw">round_date</span>(orderdate, <span class="st">"year"</span>),</a>
<a class="sourceLine" id="cb24-7" data-line-number="7"> <span class="dt">onlineorderflag =</span> <span class="kw">if_else</span>(onlineorderflag <span class="op">==</span><span class="st"> </span><span class="ot">FALSE</span>,</a>
<a class="sourceLine" id="cb24-8" data-line-number="8"> <span class="st">"Sales Rep"</span>, <span class="st">"Online"</span></a>
<a class="sourceLine" id="cb24-9" data-line-number="9"> ),</a>
<a class="sourceLine" id="cb24-10" data-line-number="10"> <span class="dt">onlineorderflag =</span> <span class="kw">as.factor</span>(onlineorderflag)</a>
<a class="sourceLine" id="cb24-11" data-line-number="11"> ) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb24-12" data-line-number="12"><span class="st"> </span><span class="kw">group_by</span>(orderdate, onlineorderflag) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb24-13" data-line-number="13"><span class="st"> </span><span class="kw">summarize</span>(</a>
<a class="sourceLine" id="cb24-14" data-line-number="14"> <span class="dt">min_soh_orderdate =</span> <span class="kw">min</span>(orderdate, <span class="dt">na.rm =</span> <span class="ot">TRUE</span>),</a>
<a class="sourceLine" id="cb24-15" data-line-number="15"> <span class="dt">max_soh_orderdate =</span> <span class="kw">max</span>(orderdate, <span class="dt">na.rm =</span> <span class="ot">TRUE</span>),</a>
<a class="sourceLine" id="cb24-16" data-line-number="16"> <span class="dt">total_soh_dollars =</span> <span class="kw">round</span>(<span class="kw">sum</span>(subtotal, <span class="dt">na.rm =</span> <span class="ot">TRUE</span>), <span class="dv">2</span>),</a>
<a class="sourceLine" id="cb24-17" data-line-number="17"> <span class="dt">avg_total_soh_dollars =</span> <span class="kw">round</span>(<span class="kw">mean</span>(subtotal, <span class="dt">na.rm =</span> <span class="ot">TRUE</span>), <span class="dv">2</span>),</a>
<a class="sourceLine" id="cb24-18" data-line-number="18"> <span class="dt">soh_count =</span> <span class="kw">n</span>()</a>
<a class="sourceLine" id="cb24-19" data-line-number="19"> ) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb24-20" data-line-number="20"><span class="st"> </span><span class="kw">select</span>(</a>
<a class="sourceLine" id="cb24-21" data-line-number="21"> orderdate, onlineorderflag, min_soh_orderdate,</a>
<a class="sourceLine" id="cb24-22" data-line-number="22"> max_soh_orderdate, total_soh_dollars,</a>
<a class="sourceLine" id="cb24-23" data-line-number="23"> avg_total_soh_dollars, soh_count</a>
<a class="sourceLine" id="cb24-24" data-line-number="24"> )</a></code></pre></div>
<p>Note that we are creating a factor and doing most of the calculations on the R side, not on the DBMS side.</p>
</div>
<div id="annual-sales-comparison" class="section level3">
<h3><span class="header-section-number">1.6.2</span> Annual Sales comparison</h3>
<p>Start by looking at total sales.</p>
<div class="sourceCode" id="cb25"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb25-1" data-line-number="1"><span class="kw">ggplot</span>(<span class="dt">data =</span> annual_sales_w_channel, <span class="kw">aes</span>(<span class="dt">x =</span> orderdate, <span class="dt">y =</span> total_soh_dollars)) <span class="op">+</span></a>
<a class="sourceLine" id="cb25-2" data-line-number="2"><span class="st"> </span><span class="kw">geom_col</span>() <span class="op">+</span></a>
<a class="sourceLine" id="cb25-3" data-line-number="3"><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">labels =</span> scales<span class="op">::</span><span class="kw">dollar_format</span>()) <span class="op">+</span></a>
<a class="sourceLine" id="cb25-4" data-line-number="4"><span class="st"> </span><span class="kw">facet_wrap</span>(<span class="st">"onlineorderflag"</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb25-5" data-line-number="5"><span class="st"> </span><span class="kw">labs</span>(</a>
<a class="sourceLine" id="cb25-6" data-line-number="6"> <span class="dt">title =</span> <span class="st">"AdventureWorks Sales Dollars by Year"</span>,</a>
<a class="sourceLine" id="cb25-7" data-line-number="7"> <span class="dt">caption =</span> <span class="kw">glue</span>( <span class="st">"Between "</span>, {<span class="kw">format</span>(min_soh_dt, <span class="st">"%B %d, %Y"</span>)} , <span class="st">" - "</span>, </a>
<a class="sourceLine" id="cb25-8" data-line-number="8"> {<span class="kw">format</span>(max_soh_dt, <span class="st">"%B %d, %Y"</span>)}),</a>
<a class="sourceLine" id="cb25-9" data-line-number="9"> <span class="dt">subtitle =</span> <span class="st">"Comparing Online and Sales Rep sales channels"</span>,</a>
<a class="sourceLine" id="cb25-10" data-line-number="10"> <span class="dt">x =</span> <span class="st">"Year"</span>,</a>
<a class="sourceLine" id="cb25-11" data-line-number="11"> <span class="dt">y =</span> <span class="st">"Sales $"</span></a>
<a class="sourceLine" id="cb25-12" data-line-number="12"> )</a></code></pre></div>
<div class="figure">
<img src="083-exploring-a-single-table_files/figure-html/Calculate%20annual%20sales%20dollars%20-1.png" alt="Sales Channel Breakdown" width="672" />
<p class="caption">
(#fig:Calculate annual sales dollars )Sales Channel Breakdown
</p>
</div>
<p>Based on annual sales, it looks like there are two businesses represented in the AdventureWorks database that have very different growth profiles.</p>
</div>
<div id="order-volume-comparison" class="section level3">
<h3><span class="header-section-number">1.6.3</span> Order volume comparison</h3>
<div class="sourceCode" id="cb26"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb26-1" data-line-number="1"><span class="kw">ggplot</span>(<span class="dt">data =</span> annual_sales_w_channel, <span class="kw">aes</span>(<span class="dt">x =</span> orderdate, <span class="dt">y =</span> <span class="kw">as.numeric</span>(soh_count))) <span class="op">+</span></a>
<a class="sourceLine" id="cb26-2" data-line-number="2"><span class="st"> </span><span class="kw">geom_col</span>() <span class="op">+</span></a>
<a class="sourceLine" id="cb26-3" data-line-number="3"><span class="st"> </span><span class="kw">facet_wrap</span>(<span class="st">"onlineorderflag"</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb26-4" data-line-number="4"><span class="st"> </span><span class="kw">labs</span>(</a>
<a class="sourceLine" id="cb26-5" data-line-number="5"> <span class="dt">title =</span> <span class="st">"AdventureWorks Number of orders per Year"</span>,</a>
<a class="sourceLine" id="cb26-6" data-line-number="6"> <span class="dt">caption =</span> <span class="kw">glue</span>( <span class="st">"Between "</span>, {<span class="kw">format</span>(min_soh_dt, <span class="st">"%B %d, %Y"</span>)} , <span class="st">" - "</span>, </a>
<a class="sourceLine" id="cb26-7" data-line-number="7"> {<span class="kw">format</span>(max_soh_dt, <span class="st">"%B %d, %Y"</span>)}),</a>
<a class="sourceLine" id="cb26-8" data-line-number="8"> <span class="dt">subtitle =</span> <span class="st">"Comparing Online and Sales Rep sales channels"</span>,</a>
<a class="sourceLine" id="cb26-9" data-line-number="9"> <span class="dt">x =</span> <span class="st">"Year"</span>,</a>
<a class="sourceLine" id="cb26-10" data-line-number="10"> <span class="dt">y =</span> <span class="st">"Total number of orders"</span></a>
<a class="sourceLine" id="cb26-11" data-line-number="11"> )</a></code></pre></div>
<div class="figure">
<img src="083-exploring-a-single-table_files/figure-html/average%20dollars%20per%20sale%20-%20v4-1.png" alt="Average Dollars by Channel" width="672" />
<p class="caption">
(#fig:average dollars per sale - v4)Average Dollars by Channel
</p>
</div>
<p>Comparing Online and Sales Rep sales, the difference in the number of orders is even more striking than the difference between annual sales.</p>
</div>
<div id="comparing-average-order-size-sales-reps-to-online-orders" class="section level3">
<h3><span class="header-section-number">1.6.4</span> Comparing average order size: <strong>Sales Reps</strong> to <strong>Online</strong> orders</h3>
<div class="sourceCode" id="cb27"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb27-1" data-line-number="1"><span class="kw">ggplot</span>(<span class="dt">data =</span> annual_sales_w_channel, <span class="kw">aes</span>(<span class="dt">x =</span> orderdate, <span class="dt">y =</span> avg_total_soh_dollars)) <span class="op">+</span></a>
<a class="sourceLine" id="cb27-2" data-line-number="2"><span class="st"> </span><span class="kw">geom_col</span>() <span class="op">+</span></a>
<a class="sourceLine" id="cb27-3" data-line-number="3"><span class="st"> </span><span class="kw">facet_wrap</span>(<span class="st">"onlineorderflag"</span>) <span class="op">+</span></a>
<a class="sourceLine" id="cb27-4" data-line-number="4"><span class="st"> </span><span class="kw">scale_y_continuous</span>(<span class="dt">labels =</span> scales<span class="op">::</span><span class="kw">dollar_format</span>()) <span class="op">+</span></a>
<a class="sourceLine" id="cb27-5" data-line-number="5"><span class="st"> </span><span class="kw">labs</span>(</a>
<a class="sourceLine" id="cb27-6" data-line-number="6"> <span class="dt">title =</span> <span class="st">"AdventureWorks Average Dollars per Sale"</span>,</a>
<a class="sourceLine" id="cb27-7" data-line-number="7"> <span class="dt">x =</span> <span class="kw">glue</span>( <span class="st">"Year - between "</span>, {<span class="kw">format</span>(min_soh_dt, <span class="st">"%B %d, %Y"</span>)} , <span class="st">" - "</span>, </a>
<a class="sourceLine" id="cb27-8" data-line-number="8"> {<span class="kw">format</span>(max_soh_dt, <span class="st">"%B %d, %Y"</span>)}),</a>
<a class="sourceLine" id="cb27-9" data-line-number="9"> <span class="dt">y =</span> <span class="st">"Average sale amount"</span></a>
<a class="sourceLine" id="cb27-10" data-line-number="10"> )</a></code></pre></div>
<div class="figure">
<img src="083-exploring-a-single-table_files/figure-html/average%20dollars%20per%20sale%203-1.png" alt="Sales Rep to Online comparison" width="672" />
<p class="caption">
(#fig:average dollars per sale 3)Sales Rep to Online comparison
</p>
</div>
</div>
</div>
<div id="impact-of-order-type-on-monthly-sales" class="section level2">
<h2><span class="header-section-number">1.7</span> Impact of order type on monthly sales</h2>
<p>To dig into the difference between <strong>Sales Rep</strong> and <strong>Online</strong> sales we can look at monthly data.</p>
<div id="retrieve-monthly-sales-with-the-onlineorderflag" class="section level3">
<h3><span class="header-section-number">1.7.1</span> Retrieve monthly sales with the <code>onlineorderflag</code></h3>
<p>This query puts the <code>collect</code> statement earlier than the previous queries.</p>
<div class="sourceCode" id="cb28"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb28-1" data-line-number="1">monthly_sales_w_channel <-<span class="st"> </span><span class="kw">tbl</span>(con, <span class="kw">in_schema</span>(<span class="st">"sales"</span>, <span class="st">"salesorderheader"</span>)) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb28-2" data-line-number="2"><span class="st"> </span><span class="kw">select</span>(orderdate, subtotal, onlineorderflag) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb28-3" data-line-number="3"><span class="st"> </span><span class="kw">collect</span>() <span class="op">%>%</span><span class="st"> </span><span class="co"># From here on we're in R</span></a>
<a class="sourceLine" id="cb28-4" data-line-number="4"><span class="st"> </span><span class="kw">mutate</span>(</a>
<a class="sourceLine" id="cb28-5" data-line-number="5"> <span class="dt">orderdate =</span> <span class="kw">date</span>(orderdate),</a>
<a class="sourceLine" id="cb28-6" data-line-number="6"> <span class="dt">orderdate =</span> <span class="kw">floor_date</span>(orderdate, <span class="dt">unit =</span> <span class="st">"month"</span>),</a>
<a class="sourceLine" id="cb28-7" data-line-number="7"> <span class="dt">onlineorderflag =</span> <span class="kw">if_else</span>(onlineorderflag <span class="op">==</span><span class="st"> </span><span class="ot">FALSE</span>,</a>
<a class="sourceLine" id="cb28-8" data-line-number="8"> <span class="st">"Sales Rep"</span>, <span class="st">"Online"</span>)</a>
<a class="sourceLine" id="cb28-9" data-line-number="9"> ) <span class="op">%>%</span><span class="st"> </span></a>
<a class="sourceLine" id="cb28-10" data-line-number="10"><span class="st"> </span><span class="kw">group_by</span>(orderdate, onlineorderflag) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb28-11" data-line-number="11"><span class="st"> </span><span class="kw">summarize</span>(</a>
<a class="sourceLine" id="cb28-12" data-line-number="12"> <span class="dt">min_soh_orderdate =</span> <span class="kw">min</span>(orderdate, <span class="dt">na.rm =</span> <span class="ot">TRUE</span>),</a>
<a class="sourceLine" id="cb28-13" data-line-number="13"> <span class="dt">max_soh_orderdate =</span> <span class="kw">max</span>(orderdate, <span class="dt">na.rm =</span> <span class="ot">TRUE</span>),</a>
<a class="sourceLine" id="cb28-14" data-line-number="14"> <span class="dt">total_soh_dollars =</span> <span class="kw">round</span>(<span class="kw">sum</span>(subtotal, <span class="dt">na.rm =</span> <span class="ot">TRUE</span>), <span class="dv">2</span>),</a>
<a class="sourceLine" id="cb28-15" data-line-number="15"> <span class="dt">avg_total_soh_dollars =</span> <span class="kw">round</span>(<span class="kw">mean</span>(subtotal, <span class="dt">na.rm =</span> <span class="ot">TRUE</span>), <span class="dv">2</span>),</a>
<a class="sourceLine" id="cb28-16" data-line-number="16"> <span class="dt">soh_count =</span> <span class="kw">n</span>()</a>
<a class="sourceLine" id="cb28-17" data-line-number="17"> ) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb28-18" data-line-number="18"><span class="st"> </span><span class="kw">ungroup</span>()</a></code></pre></div>
<div class="sourceCode" id="cb29"><pre class="sourceCode r"><code class="sourceCode r"><a class="sourceLine" id="cb29-1" data-line-number="1">monthly_sales_w_channel <span class="op">%>%</span></a>
<a class="sourceLine" id="cb29-2" data-line-number="2"><span class="st"> </span><span class="kw">rename</span>(<span class="st">`</span><span class="dt">Sales Channel</span><span class="st">`</span> =<span class="st"> </span>onlineorderflag) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb29-3" data-line-number="3"><span class="st"> </span><span class="kw">group_by</span>(<span class="st">`</span><span class="dt">Sales Channel</span><span class="st">`</span>) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb29-4" data-line-number="4"><span class="st"> </span><span class="kw">summarize</span>(</a>
<a class="sourceLine" id="cb29-5" data-line-number="5"> <span class="dt">unique_dates =</span> <span class="kw">n</span>(),</a>
<a class="sourceLine" id="cb29-6" data-line-number="6"> <span class="dt">start_date =</span> <span class="kw">min</span>(min_soh_orderdate),</a>
<a class="sourceLine" id="cb29-7" data-line-number="7"> <span class="dt">end_date =</span> <span class="kw">max</span>(max_soh_orderdate),</a>
<a class="sourceLine" id="cb29-8" data-line-number="8"> <span class="dt">total_sales =</span> <span class="kw">round</span>(<span class="kw">sum</span>(total_soh_dollars)), </a>
<a class="sourceLine" id="cb29-9" data-line-number="9"> <span class="dt">days_span =</span> end_date <span class="op">-</span><span class="st"> </span>start_date</a>
<a class="sourceLine" id="cb29-10" data-line-number="10"> ) <span class="op">%>%</span></a>
<a class="sourceLine" id="cb29-11" data-line-number="11"><span class="st"> </span><span class="kw">gt</span>()</a></code></pre></div>
<style>html {
font-family: -apple-system, BlinkMacSystemFont, 'Segoe UI', Roboto, Oxygen, Ubuntu, Cantarell, 'Helvetica Neue', 'Fira Sans', 'Droid Sans', Arial, sans-serif;
}
#pzveloiefp .gt_table {
display: table;
border-collapse: collapse;
margin-left: auto;
/* table.margin.left */
margin-right: auto;
/* table.margin.right */
color: #333333;
font-size: 16px;
/* table.font.size */
background-color: #FFFFFF;
/* table.background.color */
width: auto;
/* table.width */
border-top-style: solid;
/* table.border.top.style */
border-top-width: 2px;
/* table.border.top.width */
border-top-color: #A8A8A8;
/* table.border.top.color */
border-bottom-style: solid;
/* table.border.bottom.style */
border-bottom-width: 2px;
/* table.border.bottom.width */
border-bottom-color: #A8A8A8;
/* table.border.bottom.color */
}
#pzveloiefp .gt_heading {
background-color: #FFFFFF;
/* heading.background.color */
border-bottom-color: #FFFFFF;
/* table.background.color */
border-left-style: hidden;
/* heading.border.lr.style */
border-left-width: 1px;
/* heading.border.lr.width */
border-left-color: #D3D3D3;
/* heading.border.lr.color */
border-right-style: hidden;
/* heading.border.lr.style */
border-right-width: 1px;
/* heading.border.lr.width */
border-right-color: #D3D3D3;
/* heading.border.lr.color */
}
#pzveloiefp .gt_title {
color: #333333;
font-size: 125%;
/* heading.title.font.size */
font-weight: initial;
/* heading.title.font.weight */
padding-top: 4px;
/* heading.top.padding - not yet used */
padding-bottom: 4px;
border-bottom-color: #FFFFFF;
/* table.background.color */
border-bottom-width: 0;
}
#pzveloiefp .gt_subtitle {
color: #333333;
font-size: 85%;
/* heading.subtitle.font.size */
font-weight: initial;
/* heading.subtitle.font.weight */
padding-top: 0;
padding-bottom: 4px;
/* heading.bottom.padding - not yet used */
border-top-color: #FFFFFF;
/* table.background.color */
border-top-width: 0;
}
#pzveloiefp .gt_bottom_border {
border-bottom-style: solid;
/* heading.border.bottom.style */
border-bottom-width: 2px;
/* heading.border.bottom.width */
border-bottom-color: #D3D3D3;
/* heading.border.bottom.color */
}
#pzveloiefp .gt_column_spanner {
border-bottom-style: solid;
border-bottom-width: 2px;
border-bottom-color: #D3D3D3;
padding-top: 4px;
padding-bottom: 4px;
}
#pzveloiefp .gt_col_headings {
border-top-style: solid;
/* column_labels.border.top.style */
border-top-width: 2px;
/* column_labels.border.top.width */
border-top-color: #D3D3D3;
/* column_labels.border.top.color */
border-bottom-style: solid;
/* column_labels.border.bottom.style */
border-bottom-width: 2px;
/* column_labels.border.bottom.width */
border-bottom-color: #D3D3D3;
/* column_labels.border.bottom.color */
border-left-style: none;
/* column_labels.border.lr.style */
border-left-width: 1px;
/* column_labels.border.lr.width */
border-left-color: #D3D3D3;
/* column_labels.border.lr.color */
border-right-style: none;
/* column_labels.border.lr.style */
border-right-width: 1px;
/* column_labels.border.lr.width */
border-right-color: #D3D3D3;
/* column_labels.border.lr.color */
}
#pzveloiefp .gt_col_heading {
color: #333333;
background-color: #FFFFFF;
/* column_labels.background.color */
font-size: 100%;
/* column_labels.font.size */
font-weight: initial;
/* column_labels.font.weight */
text-transform: inherit;
/* column_labels.text_transform */
vertical-align: middle;
padding: 5px;
margin: 10px;
overflow-x: hidden;
}
#pzveloiefp .gt_sep_right {
border-right: 5px solid #FFFFFF;
}
#pzveloiefp .gt_group_heading {
padding: 8px;
/* row_group.padding */
color: #333333;
background-color: #FFFFFF;
/* row_group.background.color */
font-size: 100%;
/* row_group.font.size */
font-weight: initial;
/* row_group.font.weight */
text-transform: inherit;
/* row_group.text_transform */
border-top-style: solid;
/* row_group.border.top.style */
border-top-width: 2px;
/* row_group.border.top.width */
border-top-color: #D3D3D3;
/* row_group.border.top.color */
border-bottom-style: solid;
/* row_group.border.bottom.style */
border-bottom-width: 2px;
/* row_group.border.bottom.width */
border-bottom-color: #D3D3D3;
/* row_group.border.bottom.color */
border-left-style: none;
/* row_group.border.left.style */
border-left-width: 1px;
/* row_group.border.left.width */
border-left-color: #D3D3D3;
/* row_group.border.left.color */
border-right-style: none;
/* row_group.border.right.style */
border-right-width: 1px;
/* row_group.border.right.width */
border-right-color: #D3D3D3;
/* row_group.border.right.color */
vertical-align: middle;
}
#pzveloiefp .gt_empty_group_heading {
padding: 0.5px;
color: #333333;
background-color: #FFFFFF;
/* row_group.background.color */
font-size: 100%;
/* row_group.font.size */
font-weight: initial;
/* row_group.font.weight */
border-top-style: solid;
/* row_group.border.top.style */
border-top-width: 2px;
/* row_group.border.top.width */
border-top-color: #D3D3D3;
/* row_group.border.top.color */
border-bottom-style: solid;
/* row_group.border.bottom.style */
border-bottom-width: 2px;
/* row_group.border.bottom.width */
border-bottom-color: #D3D3D3;
/* row_group.border.bottom.color */
vertical-align: middle;
}
#pzveloiefp .gt_striped {
background-color: #8080800D;
/* row.striping.background_color */
}
#pzveloiefp .gt_from_md > :first-child {
margin-top: 0;
}
#pzveloiefp .gt_from_md > :last-child {
margin-bottom: 0;
}
#pzveloiefp .gt_row {
padding-top: 8px;
/* data_row.padding */
padding-bottom: 8px;
/* data_row.padding */
padding-left: 5px;
padding-right: 5px;
margin: 10px;
border-top-style: solid;
/* table_body.hlines.style */
border-top-width: 1px;
/* table_body.hlines.width */
border-top-color: #D3D3D3;
/* table_body.hlines.color */
border-left-style: none;
/* table_body.vlines.style */
border-left-width: 1px;
/* table_body.vlines.width */
border-left-color: #D3D3D3;
/* table_body.vlines.color */
border-right-style: none;
/* table_body.vlines.style */
border-right-width: 1px;
/* table_body.vlines.width */
border-right-color: #D3D3D3;
/* table_body.vlines.color */
vertical-align: middle;
overflow-x: hidden;
}
#pzveloiefp .gt_stub {
color: #333333;
background-color: #FFFFFF;
/* stub.background.color */
font-weight: initial;
/* stub.font.weight */
text-transform: inherit;
/* stub.text_transform */
border-right-style: solid;
/* stub.border.style */
border-right-width: 2px;
/* stub.border.width */
border-right-color: #D3D3D3;
/* stub.border.color */
padding-left: 12px;
}
#pzveloiefp .gt_summary_row {
color: #333333;
background-color: #FFFFFF;
/* summary_row.background.color */
text-transform: inherit;
/* summary_row.text_transform */
padding-top: 8px;
/* summary_row.padding */
padding-bottom: 8px;
/* summary_row.padding */
padding-left: 5px;
padding-right: 5px;
}
#pzveloiefp .gt_first_summary_row {
padding-top: 8px;
/* summary_row.padding */
padding-bottom: 8px;
/* summary_row.padding */
padding-left: 5px;
padding-right: 5px;
border-top-style: solid;
/* summary_row.border.style */
border-top-width: 2px;
/* summary_row.border.width */
border-top-color: #D3D3D3;
/* summary_row.border.color */
}
#pzveloiefp .gt_grand_summary_row {
color: #333333;
background-color: #FFFFFF;
/* grand_summary_row.background.color */
text-transform: inherit;
/* grand_summary_row.text_transform */
padding-top: 8px;
/* grand_summary_row.padding */
padding-bottom: 8px;
/* grand_summary_row.padding */
padding-left: 5px;
padding-right: 5px;
}
#pzveloiefp .gt_first_grand_summary_row {
padding-top: 8px;
/* grand_summary_row.padding */
padding-bottom: 8px;
/* grand_summary_row.padding */
padding-left: 5px;
padding-right: 5px;
border-top-style: double;
/* grand_summary_row.border.style */
border-top-width: 6px;
/* grand_summary_row.border.width */
border-top-color: #D3D3D3;
/* grand_summary_row.border.color */
}
#pzveloiefp .gt_table_body {
border-top-style: solid;
/* table_body.border.top.style */
border-top-width: 2px;
/* table_body.border.top.width */
border-top-color: #D3D3D3;
/* table_body.border.top.color */
border-bottom-style: solid;
/* table_body.border.bottom.style */
border-bottom-width: 2px;
/* table_body.border.bottom.width */
border-bottom-color: #D3D3D3;
/* table_body.border.bottom.color */
}
#pzveloiefp .gt_footnotes {
color: #333333;
background-color: #FFFFFF;
/* footnotes.background.color */
border-bottom-style: none;
/* footnotes.border.bottom.style */
border-bottom-width: 2px;
/* footnotes.border.bottom.width */
border-bottom-color: #D3D3D3;
/* footnotes.border.bottom.color */
border-left-style: none;
/* footnotes.border.lr.color */
border-left-width: 2px;
/* footnotes.border.lr.color */
border-left-color: #D3D3D3;
/* footnotes.border.lr.color */
border-right-style: none;
/* footnotes.border.lr.color */
border-right-width: 2px;
/* footnotes.border.lr.color */
border-right-color: #D3D3D3;
/* footnotes.border.lr.color */
}
#pzveloiefp .gt_footnote {
margin: 0px;
font-size: 90%;
/* footnotes.font.size */
padding: 4px;
/* footnotes.padding */
}
#pzveloiefp .gt_sourcenotes {
color: #333333;
background-color: #FFFFFF;
/* source_notes.background.color */
border-bottom-style: none;
/* source_notes.border.bottom.style */
border-bottom-width: 2px;
/* source_notes.border.bottom.width */
border-bottom-color: #D3D3D3;
/* source_notes.border.bottom.color */
border-left-style: none;
/* source_notes.border.lr.style */
border-left-width: 2px;
/* source_notes.border.lr.style */
border-left-color: #D3D3D3;
/* source_notes.border.lr.style */
border-right-style: none;
/* source_notes.border.lr.style */
border-right-width: 2px;