I don't know much about the Tidyverse, but more generally the way to
represent ordered categorical data is with a factor. This seems to work:
> testset$Observation <- factor(testset$Observation, levels=c("One", "Two",
"Three"))
> testset$Label <- factor(testset$Label, levels=c("Western", "Northern",
"Eastern", "Southern"))
> testset %>% select(Observation, Label, Value) %>% spread(key=Observation,
value=Value)
# A tibble: 4 x 4
Label One Two Three
<fct> <dbl> <dbl> <dbl>
1 Western 163 147 119
2 Northern 105 100 82
3 Eastern 121 106 90
4 Southern 74 70 65
JL
On Mon, Oct 22, 2018 at 7:55 PM Joel Maxuel <j.max...@gmail.com> wrote:
> 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 <jdnew...@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]]
>
> ______________________________________________
> R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide
> http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
>
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
