{"id":811,"date":"2015-02-27T14:18:27","date_gmt":"2015-02-27T21:18:27","guid":{"rendered":"http:\/\/homepages.uc.edu\/~yaozo\/wordpress\/?p=811"},"modified":"2015-02-27T14:18:27","modified_gmt":"2015-02-27T21:18:27","slug":"pivot-tables-in-r-with-dplyr","status":"publish","type":"post","link":"https:\/\/zhuoyao.net\/index.php\/2015\/02\/27\/pivot-tables-in-r-with-dplyr\/","title":{"rendered":"Pivot Tables in R with dplyr"},"content":{"rendered":"
\n

Pivot Tables in R with dplyr<\/h1>\n
<\/i>Marco Ghislanzoni<\/a><\/span><\/span><\/div>\n<\/header>\n
\n
\"Untitled\"<\/div>\n
\n
<\/div>\n

[Total: 4 \u00a0 \u00a0Average: 4\/5]<\/span><\/div>\n

The prolific\u00a0Hadley Wickham did it again! This time he came up, together with Romain Francois, with an amazing library for data manipulation that turns the task of making Pivot Tables in R a real breeze. Enter\u00a0dplyr<\/a>. Along the lines of ggplot2, also from the same main author, dplyr implements a grammar of data manipulation and also introduces a new syntax using \u201cpipe\u201d operators.<\/p>\n

What is a \u201cpipe\u201d operator? Well, the best way to learn about it is to use it. Ready to experiment with dplyr? Let\u2019s get started.<\/p>\n

1. Get the sample data file<\/h1>\n

We will be using the same Sales data file from my previous posts Pivot Tables in R with melt and cast<\/a> and Pivot Tables in R with aggregate<\/a>. Please refer to those posts for detailed instructions on how to download and prepare the data file for use in R.<\/p>\n

2. Load the data file into R<\/h1>\n

This can be done simply with the command:<\/p>\n

\n
<\/div>\n
\n\n\n\n
\n
\n
1<\/div>\n<\/div>\n<\/td>\n
\n
\n
data<\/span> <<\/span>–<\/span> read<\/span>.<\/span>csv<\/span>(<\/span>“sales_data.csv”<\/span>,<\/span> header<\/span>=<\/span>TRUE<\/span>)<\/span><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

Here the first 6 rows from the resulting data frame:<\/p>\n

\n
<\/div>\n
\n\n\n\n
\n
\n
1<\/div>\n
2<\/div>\n
3<\/div>\n
4<\/div>\n
5<\/div>\n
6<\/div>\n
7<\/div>\n
8<\/div>\n<\/div>\n<\/td>\n
\n
\n
><\/span> head<\/span>(<\/span>data<\/span>)<\/span><\/div>\n
\u00a0\u00a0<\/span>Country <\/span>Salesperson <\/span>Order<\/span>.<\/span>Date <\/span>OrderID <\/span>Order<\/span>.<\/span>Amount<\/span><\/div>\n
1<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>UK\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>Suyama<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37812<\/span>\u00a0\u00a0 <\/span>10249<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>1863.40<\/span><\/div>\n
2<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>USA\u00a0\u00a0\u00a0\u00a0 <\/span>Peacock<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37813<\/span>\u00a0\u00a0 <\/span>10252<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>3597.90<\/span><\/div>\n
3<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>USA\u00a0\u00a0\u00a0\u00a0 <\/span>Peacock<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37814<\/span>\u00a0\u00a0 <\/span>10250<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>1552.60<\/span><\/div>\n
4<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>UK\u00a0\u00a0 <\/span>Dodsworth<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37817<\/span>\u00a0\u00a0 <\/span>10255<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>2490.50<\/span><\/div>\n
5<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>USA\u00a0\u00a0 <\/span>Leverling<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37817<\/span>\u00a0\u00a0 <\/span>10251<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>654.06<\/span><\/div>\n
6<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>UK\u00a0\u00a0\u00a0\u00a0<\/span>Buchanan<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37818<\/span>\u00a0\u00a0 <\/span>10248<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>440.00<\/span><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

\u00a03. Install and load the dplyr library<\/h1>\n

dplyr is available directly from CRAN (the latest version is 0.2 at the time of this writing). It can be installed and made available to R with the following commands:<\/p>\n

\n
<\/div>\n
\n\n\n\n
\n
\n
1<\/div>\n
2<\/div>\n<\/div>\n<\/td>\n
\n
\n
><\/span> install<\/span>.<\/span>packages<\/span>(<\/span>“dplyr”<\/span>)<\/span><\/div>\n
><\/span> library<\/span>(<\/span>dplyr<\/span>)<\/span><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

After having loaded the dplyr library, you may get some warnings that some objects are masked by other packages. This is ok and it is not to worry about at this time.<\/p>\n

4. Getting familiar with dplyr<\/h1>\n

dplyr comes with a set of functions that can be used to perform the most common manipulation on data. They all work on data frames and table data frames, a new \u201csmarter\u201d version of data frames supported by dplyr.<\/p>\n

You can convert a data frame to a table data frame through the tbl_df()<\/em> function:<\/p>\n

\n
<\/div>\n
\n\n\n\n
\n
\n
1<\/div>\n
2<\/div>\n
3<\/div>\n
4<\/div>\n
5<\/div>\n
6<\/div>\n
7<\/div>\n
8<\/div>\n
9<\/div>\n
10<\/div>\n
11<\/div>\n
12<\/div>\n
13<\/div>\n
14<\/div>\n
15<\/div>\n
16<\/div>\n
17<\/div>\n<\/div>\n<\/td>\n
\n
\n
data_tdf<\/span> <<\/span>–<\/span> tbl_df<\/span>(<\/span>data<\/span>)<\/span><\/div>\n
><\/span> data_tdf<\/span><\/div>\n
Source<\/span>:<\/span> local <\/span>data <\/span>frame<\/span> [<\/span>799<\/span> x<\/span> 5<\/span>]<\/span><\/div>\n
<\/div>\n
\u00a0\u00a0 <\/span>Country <\/span>Salesperson <\/span>Order<\/span>.<\/span>Date <\/span>OrderID <\/span>Order<\/span>.<\/span>Amount<\/span><\/div>\n
1<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>UK\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>Suyama<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37812<\/span>\u00a0\u00a0 <\/span>10249<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>1863.40<\/span><\/div>\n
2<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>USA\u00a0\u00a0\u00a0\u00a0 <\/span>Peacock<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37813<\/span>\u00a0\u00a0 <\/span>10252<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>3597.90<\/span><\/div>\n
3<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>USA\u00a0\u00a0\u00a0\u00a0 <\/span>Peacock<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37814<\/span>\u00a0\u00a0 <\/span>10250<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>1552.60<\/span><\/div>\n
4<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>UK\u00a0\u00a0 <\/span>Dodsworth<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37817<\/span>\u00a0\u00a0 <\/span>10255<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>2490.50<\/span><\/div>\n
5<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>USA\u00a0\u00a0 <\/span>Leverling<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37817<\/span>\u00a0\u00a0 <\/span>10251<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>654.06<\/span><\/div>\n
6<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>UK\u00a0\u00a0\u00a0\u00a0<\/span>Buchanan<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37818<\/span>\u00a0\u00a0 <\/span>10248<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>440.00<\/span><\/div>\n
7<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>USA\u00a0\u00a0 <\/span>Leverling<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37818<\/span>\u00a0\u00a0 <\/span>10253<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>1444.80<\/span><\/div>\n
8<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>USA\u00a0\u00a0 <\/span>Leverling<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37819<\/span>\u00a0\u00a0 <\/span>10256<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>517.80<\/span><\/div>\n
9<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>USA\u00a0\u00a0\u00a0\u00a0 <\/span>Peacock<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37824<\/span>\u00a0\u00a0 <\/span>10257<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>1119.90<\/span><\/div>\n
10<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>UK\u00a0\u00a0\u00a0\u00a0<\/span>Buchanan<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37825<\/span>\u00a0\u00a0 <\/span>10254<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>556.62<\/span><\/div>\n
.<\/span>.<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>.<\/span>.<\/span>.<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>.<\/span>.<\/span>.<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>.<\/span>.<\/span>.<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>.<\/span>.<\/span>.<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>.<\/span>.<\/span>.<\/span><\/div>\n
><\/span><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

While converting to a table data frame is strictly not necessary to use dplyr, the new format provides a smarter way to display large data sets with many variables (columns). Since our data set is pretty limited, we will keep working with our data in a data frame format. Note however that the output of most dplyr functions will\u00a0be\u00a0a table data frame, then converted back transparently to a data frame.<\/p>\n

5. Data manipulation verbs<\/h1>\n

dplyr introduces five data manipulation verbs, namely\u00a0filter()<\/em>, arrange()<\/em>, select()<\/em>, mutate()<\/em> and summarise()<\/em>. When it comes to the task of producing Pivot Tables, summarise()<\/em> is our working horse.<\/p>\n

Note to my american friends: you can use summarize()<\/em> in place of summarise()<\/em> and it will work as well! \":-)\"<\/p>\n

summarise()<\/em> takes multiple rows of a data frame and summarises (collapses) them into a single one by applying a function, for examplesum()<\/em> to sum their values or mean()<\/em> to calculate the average.<\/p>\n

summarise()<\/em> alone is not very useful though because it does not allow any grouping of the results before applying the summarizing function to the data. Since Pivot Tables are obtained by first grouping the rows according to the value of a variable (column) and then applying a summarizing function to each group, we need a way to group rows in dplyr first. Enter group_by()<\/em>.<\/p>\n

6. Group_by()<\/h1>\n

group_by()<\/em> enables data manipulation verbs to be applied to each subgroup of data, bringing then back the result of each group in a single data frame.<\/p>\n

Back to our sample data, we want to obtain the total amount each Sales Person has sold. Using dplyr, first we group the data by Salesperson with group_by()<\/em>, then apply summarise()<\/em> to each group to find the total sum.<\/p>\n

Since group_by()<\/em> should be called first and the results passed to summarise()<\/em>, we end up with the following fully working but quite convoluted syntax:<\/p>\n

\n
<\/div>\n
\n\n\n\n
\n
\n
1<\/div>\n
2<\/div>\n
3<\/div>\n
4<\/div>\n
5<\/div>\n
6<\/div>\n
7<\/div>\n
8<\/div>\n
9<\/div>\n
10<\/div>\n
11<\/div>\n
12<\/div>\n
13<\/div>\n<\/div>\n<\/td>\n
\n
\n
><\/span> summarise<\/span>(<\/span>group_by<\/span>(<\/span>data<\/span>,<\/span> Salesperson<\/span>)<\/span>,<\/span> Order<\/span>.<\/span>Amount<\/span>=<\/span>sum<\/span>(<\/span>Order<\/span>.<\/span>Amount<\/span>)<\/span>)<\/span><\/div>\n
Source<\/span>:<\/span> local <\/span>data <\/span>frame<\/span> [<\/span>9<\/span> x<\/span> 2<\/span>]<\/span><\/div>\n
<\/div>\n
\u00a0\u00a0<\/span>Salesperson <\/span>Order<\/span>.<\/span>Amount<\/span><\/div>\n
1<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>Buchanan<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>68792.25<\/span><\/div>\n
2<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>Callahan<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>123032.67<\/span><\/div>\n
3<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>Davolio<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>182500.09<\/span><\/div>\n
4<\/span>\u00a0\u00a0 <\/span>Dodsworth<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>75048.04<\/span><\/div>\n
5<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>Fuller<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>162503.78<\/span><\/div>\n
6<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>King<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>116962.99<\/span><\/div>\n
7<\/span>\u00a0\u00a0 <\/span>Leverling<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>201196.27<\/span><\/div>\n
8<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>Peacock<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>225763.68<\/span><\/div>\n
9<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>Suyama<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>72527.63<\/span><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

While the results are exactly as expected (please compare with the previous articles), the nested functions we had to use are pretty hard to read. Not surprisingly, the authors of dplyr have come up with a brilliant idea to simplify this complexity and make chained data operation extremely easy.<\/p>\n

\u00a07. The pipe operator<\/h1>\n

What we are doing with the previous function calls is basically a chain of operations like this:<\/p>\n

    \n
  • take data<\/li>\n
  • group data by Salesperson using group_by()<\/em><\/li>\n
  • take the result from the previous step and calculate the total for each group (aka Salesperson) it using summarise()<\/em><\/li>\n<\/ul>\n

    In other words, data goes into group_by()<\/em> and the result of group_by()<\/em> goes into summarise()<\/em> producing the final pivot table.<\/p>\n

    The \u201cpipe\u201d operator introduced by dplyr does exactly this. It sends a piece of data as input to a function and then allows the output from the function to go into another function and so on. Using the pipe operator, we can produce the exact same pivot tables with the following much more readable syntax:<\/p>\n

    \n
    <\/div>\n
    \n\n\n\n
    \n
    \n
    1<\/div>\n
    2<\/div>\n
    3<\/div>\n
    4<\/div>\n
    5<\/div>\n
    6<\/div>\n
    7<\/div>\n
    8<\/div>\n
    9<\/div>\n
    10<\/div>\n
    11<\/div>\n
    12<\/div>\n
    13<\/div>\n<\/div>\n<\/td>\n
    		\n
    \n
    ><\/span> data<\/span> %<\/span>><\/span>%<\/span> group_by<\/span>(<\/span>Salesperson<\/span>)<\/span> %<\/span>><\/span>%<\/span> summarise<\/span>(<\/span>Order<\/span>.<\/span>Amount<\/span>=<\/span>sum<\/span>(<\/span>Order<\/span>.<\/span>Amount<\/span>)<\/span>)<\/span><\/div>\n
    Source<\/span>:<\/span> local <\/span>data <\/span>frame<\/span> [<\/span>9<\/span> x<\/span> 2<\/span>]<\/span><\/div>\n
    <\/div>\n
    \u00a0\u00a0<\/span>Salesperson <\/span>Order<\/span>.<\/span>Amount<\/span><\/div>\n
    1<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>Buchanan<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>68792.25<\/span><\/div>\n
    2<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>Callahan<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>123032.67<\/span><\/div>\n
    3<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>Davolio<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>182500.09<\/span><\/div>\n
    4<\/span>\u00a0\u00a0 <\/span>Dodsworth<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>75048.04<\/span><\/div>\n
    5<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>Fuller<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>162503.78<\/span><\/div>\n
    6<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>King<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>116962.99<\/span><\/div>\n
    7<\/span>\u00a0\u00a0 <\/span>Leverling<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>201196.27<\/span><\/div>\n
    8<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>Peacock<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>225763.68<\/span><\/div>\n
    9<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>Suyama<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>72527.63<\/span><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

    Where %>%<\/em> is the pipe operator. Basically we have taken our data frame data, we have sent it to group_by()<\/em> telling it to group by Salesperson, then we have taken the output from\u00a0group_by()<\/em> and sent it to summarise()<\/em> telling it to summarise each group by calculating the total of Order. Amount within each group. Isn\u2019t it great? \":-)\"<\/p>\n

    No unnecessary repetition of data, no need to use temporary variable to store the results, no need to nest functions. Everything happens automatically behind the scenes and is amazingly fast on large data sets thanks to the use of optimized C\/C++ code. Great job Handy and Romain!!!<\/p>\n

    8. Filtering<\/h1>\n

    How about doing some filtering too? Say that, like we did in a previous article, we want to product a Pivot Tables only for the Sales person in USA. We can achieve this easily with dplyr using the filter()<\/em> verb. We filter the data before grouping and summarising them. Here is the syntax using again the pipe operator:<\/p>\n

    \n
    <\/div>\n
    \n\n\n\n
    \n
    \n
    1<\/div>\n
    2<\/div>\n
    3<\/div>\n
    4<\/div>\n
    5<\/div>\n
    6<\/div>\n
    7<\/div>\n
    8<\/div>\n
    9<\/div>\n<\/div>\n<\/td>\n
    		\n
    \n
    ><\/span> data<\/span> %<\/span>><\/span>%<\/span> filter<\/span>(<\/span>Country<\/span>==<\/span>“USA”<\/span>)<\/span> %<\/span>><\/span>%<\/span> group_by<\/span>(<\/span>Salesperson<\/span>)<\/span> %<\/span>><\/span>%<\/span> summarise<\/span>(<\/span>Order<\/span>.<\/span>Amount<\/span>=<\/span>sum<\/span>(<\/span>Order<\/span>.<\/span>Amount<\/span>)<\/span>)<\/span><\/div>\n
    Source<\/span>:<\/span> local <\/span>data <\/span>frame<\/span> [<\/span>5<\/span> x<\/span> 2<\/span>]<\/span><\/div>\n
    <\/div>\n
    \u00a0\u00a0<\/span>Salesperson <\/span>Order<\/span>.<\/span>Amount<\/span><\/div>\n
    1<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>Callahan<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>123032.7<\/span><\/div>\n
    2<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>Davolio<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>182500.1<\/span><\/div>\n
    3<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>Fuller<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>162503.8<\/span><\/div>\n
    4<\/span>\u00a0\u00a0 <\/span>Leverling<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>201196.3<\/span><\/div>\n
    5<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>Peacock<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>225763.7<\/span><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

    Fast, clean and easy to read!<\/p>\n

    9. Unleashing the power of dplyr<\/h1>\n

    dplyr is particularly powerful also because it also allows multiple operations to be performed at once on the same data.<\/p>\n

    For the sake of this example, let\u2019s add to our data set a fictitious\u00a0Quantity column, representing the quantity sold for each order. We do this by generating a normally distributed Unit Sales Price with mean = 10 and standard deviation = 1, then\u00a0calculating the Quantity as Order.Amount \/ Unit.Sales.Price.<\/p>\n

    Even if calculating the Quantity requires the Unit Sales Price to be defined first, with dplyr we can do everything at once, that is in one single pass, using mutate()<\/em>. Here is the syntax and the outcome:<\/p>\n

    \n
    <\/div>\n
    \n\n\n\n
    \n
    \n
    1<\/div>\n
    2<\/div>\n
    3<\/div>\n
    4<\/div>\n
    5<\/div>\n
    6<\/div>\n
    7<\/div>\n
    8<\/div>\n
    9<\/div>\n
    10<\/div>\n
    11<\/div>\n
    12<\/div>\n
    13<\/div>\n
    14<\/div>\n
    15<\/div>\n
    16<\/div>\n<\/div>\n<\/td>\n
    		\n
    \n
    ><\/span> data<\/span> <<\/span>–<\/span> data<\/span> %<\/span>><\/span>%<\/span> mutate<\/span>(<\/span>Unit<\/span>.<\/span>Sales<\/span>.<\/span>Price<\/span> =<\/span> rnorm<\/span>(<\/span>n<\/span>=<\/span>n<\/span>(<\/span>)<\/span>,<\/span> mean<\/span>=<\/span>10<\/span>,<\/span> sd<\/span>=<\/span>1<\/span>)<\/span>,<\/span> Quantity<\/span> =<\/span> Order<\/span>.<\/span>Amount<\/span> \/<\/span> Unit<\/span>.<\/span>Sales<\/span>.<\/span>Price<\/span>)<\/span><\/div>\n
    ><\/span> head<\/span>(<\/span>data<\/span>)<\/span><\/div>\n
    \u00a0\u00a0<\/span>Country <\/span>Salesperson <\/span>Order<\/span>.<\/span>Date <\/span>OrderID <\/span>Order<\/span>.<\/span>Amount\u00a0\u00a0<\/span>Quantity<\/span><\/div>\n
    1<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>UK\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>Suyama<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37812<\/span>\u00a0\u00a0 <\/span>10249<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>1863.40<\/span> 201.77949<\/span><\/div>\n
    2<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>USA\u00a0\u00a0\u00a0\u00a0 <\/span>Peacock<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37813<\/span>\u00a0\u00a0 <\/span>10252<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>3597.90<\/span> 307.72409<\/span><\/div>\n
    3<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>USA\u00a0\u00a0\u00a0\u00a0 <\/span>Peacock<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37814<\/span>\u00a0\u00a0 <\/span>10250<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>1552.60<\/span> 173.32053<\/span><\/div>\n
    4<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>UK\u00a0\u00a0 <\/span>Dodsworth<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37817<\/span>\u00a0\u00a0 <\/span>10255<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>2490.50<\/span> 266.73936<\/span><\/div>\n
    5<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>USA\u00a0\u00a0 <\/span>Leverling<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37817<\/span>\u00a0\u00a0 <\/span>10251<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>654.06<\/span>\u00a0\u00a0<\/span>67.22134<\/span><\/div>\n
    6<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>UK\u00a0\u00a0\u00a0\u00a0<\/span>Buchanan<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37818<\/span>\u00a0\u00a0 <\/span>10248<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>440.00<\/span>\u00a0\u00a0<\/span>40.88416<\/span><\/div>\n
    \u00a0\u00a0<\/span>Unit<\/span>.<\/span>Sales<\/span>.<\/span>Price<\/span><\/div>\n
    1<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>9.234834<\/span><\/div>\n
    2<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>11.691967<\/span><\/div>\n
    3<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>8.957970<\/span><\/div>\n
    4<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>9.336830<\/span><\/div>\n
    5<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>9.729946<\/span><\/div>\n
    6<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>10.762114<\/span><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

    Incidentally, note that the visualization of our modified data set wraps-around. Not very user friendly. Converting it to a table data frame makes its visualization nicer:<\/p>\n

    \n
    <\/div>\n
    \n\n\n\n
    \n
    \n
    1<\/div>\n
    2<\/div>\n
    3<\/div>\n
    4<\/div>\n
    5<\/div>\n
    6<\/div>\n
    7<\/div>\n
    8<\/div>\n
    9<\/div>\n
    10<\/div>\n
    11<\/div>\n
    12<\/div>\n
    13<\/div>\n
    14<\/div>\n
    15<\/div>\n
    16<\/div>\n<\/div>\n<\/td>\n
    		\n
    \n
    ><\/span> tbl_df<\/span>(<\/span>data<\/span>)<\/span><\/div>\n
    Source<\/span>:<\/span> local <\/span>data <\/span>frame<\/span> [<\/span>799<\/span> x<\/span> 7<\/span>]<\/span><\/div>\n
    <\/div>\n
    \u00a0\u00a0 <\/span>Country <\/span>Salesperson <\/span>Order<\/span>.<\/span>Date <\/span>OrderID <\/span>Order<\/span>.<\/span>Amount\u00a0\u00a0<\/span>Quantity<\/span><\/div>\n
    1<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>UK\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>Suyama<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37812<\/span>\u00a0\u00a0 <\/span>10249<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>1863.40<\/span> 201.77949<\/span><\/div>\n
    2<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>USA\u00a0\u00a0\u00a0\u00a0 <\/span>Peacock<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37813<\/span>\u00a0\u00a0 <\/span>10252<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>3597.90<\/span> 307.72409<\/span><\/div>\n
    3<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>USA\u00a0\u00a0\u00a0\u00a0 <\/span>Peacock<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37814<\/span>\u00a0\u00a0 <\/span>10250<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>1552.60<\/span> 173.32053<\/span><\/div>\n
    4<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>UK\u00a0\u00a0 <\/span>Dodsworth<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37817<\/span>\u00a0\u00a0 <\/span>10255<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>2490.50<\/span> 266.73936<\/span><\/div>\n
    5<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>USA\u00a0\u00a0 <\/span>Leverling<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37817<\/span>\u00a0\u00a0 <\/span>10251<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>654.06<\/span>\u00a0\u00a0<\/span>67.22134<\/span><\/div>\n
    6<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>UK\u00a0\u00a0\u00a0\u00a0<\/span>Buchanan<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37818<\/span>\u00a0\u00a0 <\/span>10248<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>440.00<\/span>\u00a0\u00a0<\/span>40.88416<\/span><\/div>\n
    7<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>USA\u00a0\u00a0 <\/span>Leverling<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37818<\/span>\u00a0\u00a0 <\/span>10253<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>1444.80<\/span> 142.07045<\/span><\/div>\n
    8<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>USA\u00a0\u00a0 <\/span>Leverling<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37819<\/span>\u00a0\u00a0 <\/span>10256<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>517.80<\/span>\u00a0\u00a0<\/span>56.71080<\/span><\/div>\n
    9<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>USA\u00a0\u00a0\u00a0\u00a0 <\/span>Peacock<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37824<\/span>\u00a0\u00a0 <\/span>10257<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>1119.90<\/span> 115.06074<\/span><\/div>\n
    10<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>UK\u00a0\u00a0\u00a0\u00a0<\/span>Buchanan<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>37825<\/span>\u00a0\u00a0 <\/span>10254<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>556.62<\/span>\u00a0\u00a0<\/span>60.60626<\/span><\/div>\n
    .<\/span>.<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>.<\/span>.<\/span>.<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>.<\/span>.<\/span>.<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>.<\/span>.<\/span>.<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>.<\/span>.<\/span>.<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>.<\/span>.<\/span>.<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>.<\/span>.<\/span>.<\/span><\/div>\n
    Variables <\/span>not<\/span> shown<\/span>:<\/span> Unit<\/span>.<\/span>Sales<\/span>.<\/span>Price<\/span> (<\/span>dbl<\/span>)<\/span><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

    Not only the new class table data frame \u00a0shows the dimensions of the data frame as [799 x 7], but it prints nicely without wrapping around and specifying that one variable, Unite.Sales.Price, was not displayed.<\/p>\n

    Ok, now that we have our Quantities in place, we want to produce a Pivot Tables that has, for each sales person, the total amount sold and the average sold quantity. This is very easy too to achieve with dplyr. Here is the syntax:<\/p>\n

    \n
    <\/div>\n
    \n\n\n\n
    \n
    \n
    1<\/div>\n
    2<\/div>\n
    3<\/div>\n
    4<\/div>\n
    5<\/div>\n
    6<\/div>\n
    7<\/div>\n
    8<\/div>\n
    9<\/div>\n
    10<\/div>\n
    11<\/div>\n
    12<\/div>\n
    13<\/div>\n<\/div>\n<\/td>\n
    		\n
    \n
    ><\/span> data<\/span> %<\/span>><\/span>%<\/span> group_by<\/span>(<\/span>Salesperson<\/span>)<\/span> %<\/span>><\/span>%<\/span> summarise<\/span>(<\/span>Total<\/span>.<\/span>Order<\/span>.<\/span>Amount<\/span>=<\/span>sum<\/span>(<\/span>Order<\/span>.<\/span>Amount<\/span>)<\/span>,<\/span> Average<\/span>.<\/span>Quantity<\/span>=<\/span>mean<\/span>(<\/span>Quantity<\/span>)<\/span>)<\/span><\/div>\n
    Source<\/span>:<\/span> local <\/span>data <\/span>frame<\/span> [<\/span>9<\/span> x<\/span> 3<\/span>]<\/span><\/div>\n
    <\/div>\n
    \u00a0\u00a0<\/span>Salesperson <\/span>Total<\/span>.<\/span>Order<\/span>.<\/span>Amount <\/span>Average<\/span>.<\/span>Quantity<\/span><\/div>\n
    1<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>Buchanan<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>68792.25<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>167.7801<\/span><\/div>\n
    2<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>Callahan<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>123032.67<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>125.1866<\/span><\/div>\n
    3<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>Davolio<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>182500.09<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>156.8355<\/span><\/div>\n
    4<\/span>\u00a0\u00a0 <\/span>Dodsworth<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>75048.04<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>188.9096<\/span><\/div>\n
    5<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>Fuller<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>162503.78<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>176.6365<\/span><\/div>\n
    6<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>King<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>116962.99<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>183.9184<\/span><\/div>\n
    7<\/span>\u00a0\u00a0 <\/span>Leverling<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>201196.27<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>159.4946<\/span><\/div>\n
    8<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>Peacock<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>225763.68<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>150.8685<\/span><\/div>\n
    9<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>Suyama<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>72527.63<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>112.2168<\/span><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

    In fact summarise()<\/em> can process multiple variables at once, each one with a different summarisation function, or apply different summarisation functions to the same variable.<\/p>\n

    Say, for example, we want to calculate for each sales person the total amount sold AND the maximum order size. This is very simple with dplyr compared to Excel, where you can only calculate one summary per column (unless you duplicate a column):<\/p>\n

    \n
    Multiple summaries of the same variable<\/span><\/p>\n
    <\/div>\n<\/div>\n
    <\/div>\n
    \n\n\n\n
    \n
    \n
    1<\/div>\n
    2<\/div>\n
    3<\/div>\n
    4<\/div>\n
    5<\/div>\n
    6<\/div>\n
    7<\/div>\n
    8<\/div>\n
    9<\/div>\n
    10<\/div>\n
    11<\/div>\n
    12<\/div>\n
    13<\/div>\n<\/div>\n<\/td>\n
    		\n
    \n
    ><\/span> data<\/span> %<\/span>><\/span>%<\/span> group_by<\/span>(<\/span>Salesperson<\/span>)<\/span> %<\/span>><\/span>%<\/span> summarise<\/span>(<\/span>Total<\/span>.<\/span>Order<\/span>.<\/span>Amount<\/span>=<\/span>sum<\/span>(<\/span>Order<\/span>.<\/span>Amount<\/span>)<\/span>,<\/span> Max<\/span>.<\/span>Order<\/span>.<\/span>Amount<\/span>=<\/span>max<\/span>(<\/span>Order<\/span>.<\/span>Amount<\/span>)<\/span>)<\/span><\/div>\n
    Source<\/span>:<\/span> local <\/span>data <\/span>frame<\/span> [<\/span>9<\/span> x<\/span> 3<\/span>]<\/span><\/div>\n
    <\/div>\n
    \u00a0\u00a0<\/span>Salesperson <\/span>Total<\/span>.<\/span>Order<\/span>.<\/span>Amount <\/span>Max<\/span>.<\/span>Order<\/span>.<\/span>Amount<\/span><\/div>\n
    1<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>Buchanan<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>68792.25<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>9210.90<\/span><\/div>\n
    2<\/span>\u00a0\u00a0\u00a0\u00a0<\/span>Callahan<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>123032.67<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>4825.00<\/span><\/div>\n
    3<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>Davolio<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>182500.09<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>15810.00<\/span><\/div>\n
    4<\/span>\u00a0\u00a0 <\/span>Dodsworth<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>75048.04<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>11380.00<\/span><\/div>\n
    5<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>Fuller<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>162503.78<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>16387.50<\/span><\/div>\n
    6<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>King<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>116962.99<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>12615.05<\/span><\/div>\n
    7<\/span>\u00a0\u00a0 <\/span>Leverling<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>201196.27<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>10952.84<\/span><\/div>\n
    8<\/span>\u00a0\u00a0\u00a0\u00a0 <\/span>Peacock<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>225763.68<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>11188.40<\/span><\/div>\n
    9<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>Suyama<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0 <\/span>72527.63<\/span>\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0\u00a0<\/span>4707.54<\/span><\/div>\n<\/div>\n<\/td>\n<\/tr>\n<\/tbody>\n<\/table>\n<\/div>\n<\/div>\n

    Well done! This is it for today. I plan to look again at dplyr and its handy pipe syntax in other upcoming posts. As always, your comments and remarks are more than welcome.<\/p>\n<\/div>\n","protected":false},"excerpt":{"rendered":"

    Pivot Tables in R with dplyr 6 months ago Marco Ghislanzoni [Total: 4 \u00a0 \u00a0Average: 4\/5] The prolific\u00a0Hadley Wickham did it again! This time he… <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[20],"tags":[],"class_list":["post-811","post","type-post","status-publish","format-standard","hentry","category-r"],"_links":{"self":[{"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/posts\/811","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/comments?post=811"}],"version-history":[{"count":0,"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/posts\/811\/revisions"}],"wp:attachment":[{"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/media?parent=811"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/categories?post=811"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/zhuoyao.net\/index.php\/wp-json\/wp\/v2\/tags?post=811"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}