Usecase: Pivot

Pivot and change variableorder

library(tidyverse)
library(pxmake)

Check a .px file

Say you have a px-file, where you want to change the default order of variables and also pivot between head and stub.

On the filesystem you have a folder and subfolders, like:

statbank_s_path <- file.path("S:","STATBANK","bank2020","Databases") 

subject_path <- file.path(statbank_s_path,"Greenland","FI")

Read a px file to px-object

fil <- file.path(subject_path,"FIXUDD.px")

old <- px(fil)

print(px_stub(old))

[1] "type"         "municipality" "education"

print(px_heading(old))

[1] "time"

Change order/pivot the variables

If multiple variables, define as list

old %>% px_heading(c("municipality","type","education")) %>% 
  px_stub("time") %>% 
  px_save(file.path(subject_path,"FIXUDD_new.px"))

Or do it in Excel

Save px-object to Excel

px_save(old,"FIXUDD_new.xlsx")

Change according to your needs

Save xlsx as px

px_save(px("FIXUDD_new.xlsx"),"FIXUDD_excel_new.px")

---
title: "Usecase: Pivot"
always_allow_html: true
format: 
  html:
    code-tools: true
    self-contained: true
output:
  statgl::statgl_report:
    output: "pretty_html"
execute:
  echo: true
editor: source
---

## Pivot and change variableorder

```{r, warning=FALSE, message=FALSE}

library(tidyverse)
library(pxmake)

```

## Check a .px file

Say you have a px-file, where you want to change the default order of variables and also pivot between head and stub.

On the filesystem you have a folder and subfolders, like:

```{r, warning=FALSE, message=FALSE}

statbank_s_path <- file.path("S:","STATBANK","bank2020","Databases") 

subject_path <- file.path(statbank_s_path,"Greenland","FI") 

```

## Read a px file to px-object

```{r, warning=FALSE, message=FALSE}

fil <- file.path(subject_path,"FIXUDD.px")

old <- px(fil)

print(px_stub(old))

print(px_heading(old))

```

![](old.png)

## Change order/pivot the variables

If multiple variables, define as list

```{r, warning=FALSE, message=FALSE}

old %>% px_heading(c("municipality","type","education")) %>% 
  px_stub("time") %>% 
  px_save(file.path(subject_path,"FIXUDD_new.px"))

```

![](new.png)

## Or do it in Excel

Save px-object to Excel

```{r, warning=FALSE, message=FALSE}

px_save(old,"FIXUDD_new.xlsx")

```

![](excelold.png)

Change according to your needs

![](excelnew.png)


## Save xlsx as px 

```{r, warning=FALSE, message=FALSE}

px_save(px("FIXUDD_new.xlsx"),"FIXUDD_excel_new.px")

```