Transformations in Tidyverse (renaming and ordering columns)

For clarity sake.  More show (with example closer to reality), less tell.
:^)

## Current:

library(knitr)
library(tidyverse)

?? Conflicts
?????????????????????????????????????????????????????????????????????
tidyverse_conflicts() ??
x dplyr::filter() masks stats::filter()
x dplyr::lag()    masks stats::lag()

library(tibble)
library(dplyr)

testset <- as_tibble(tribble(~SN, ~Section, ~Order, ~Observation, ~Seq,

~Label, ~Value,
+                              2, "For Reporting Quarter", 1, "One", 1,
"Western", 163,
+                              2, "For Reporting Quarter", 1, "One", 2,
"Northern", 105,
+                              2, "For Reporting Quarter", 1, "One", 3,
"Eastern", 121,
+                              2, "For Reporting Quarter", 1, "One", 4,
"Southern", 74,
+                              2, "For Reporting Quarter", 2, "Two", 1,
"Western", 147,
+                              2, "For Reporting Quarter", 2, "Two", 2,
"Northern", 100,
+                              2, "For Reporting Quarter", 2, "Two", 3,
"Eastern", 106,
+                              2, "For Reporting Quarter", 2, "Two", 4,
"Southern", 70,
+                              2, "For Reporting Quarter", 3, "Three", 1,
"Western", 119,
+                              2, "For Reporting Quarter", 3, "Three", 2,
"Northern", 82,
+                              2, "For Reporting Quarter", 3, "Three", 3,
"Eastern", 90,
+                              2, "For Reporting Quarter", 3, "Three", 4,
"Southern", 65))

testset %>% select(Observation, Label, Value) %>% spread(key=Observation,

value=Value)
# A tibble: 4 x 4
  Label      One Three   Two
  <chr>    <dbl> <dbl> <dbl>
1 Eastern    121    90   106
2 Northern   105    82   100
3 Southern    74    65    70
4 Western    163   119   147

## Intended:

# A tibble: 4 x 4
  For Reporting Quarter     One   Two Three
  <chr>                          <dbl> <dbl> <dbl>
1 Western                       163   147   119
2 Northern                       105   100    82
3 Eastern                        121   106    90
4 Southern                       74     70     65

##

Unfortunately I don't know how to get there from here.  Section, Order and
Seq are there to assist with getting the data to the right output
programmatically, however I don't know how to make use of them.

Hope this helps.

--
Cheers,
Joel Maxuel


On Mon, Oct 22, 2018 at 6:18 PM Jeff Newmiller <jdnewmil at dcn.davis.ca.us>
wrote:

If you are willing to work in the context of LaTeX output then perhaps

you

will find the "tables" package useful. However, while you think you have
communicated clearly enough regarding what you want to accomplish, I do
not, so either someone else will intuit what you want or you will create

a

mock-up of what you want your output to look like to remove the

guesswork.

        [[alternative HTML version deleted]]