mutate.Rmd

---
title: "bupaR Docs | Mutate logs"
---


```{r echo = F, out.width="25%", fig.align = "right"}
knitr::include_graphics("images/icons/enrich.png")
```


***


# Mutate logs

```{r eval = F}
library(bupaverse)
library(dplyr)
```

```{r include = F}
library(bupaverse)
library(dplyr)
```



Next to [`augment()`](augment.html) for enriching an event log with calculated metrics, you can use `mutate()` to add more custom new variables to a log, or change the existing ones. The use of `mutate()` is especially convenient in combination with `group_by()`.


## Transforming variables

The code below transforms the _lacticacid_ variable, stored as a `character`, to a `numeric` variable. 

```{r}
sepsis %>%
	mutate(lacticacid = as.numeric(lacticacid)) -> sepsis
```

## Calculating variables

Below, we group the data by case using `group_by_case()`, and subsequently calculate the total _lacticacid_ value. Note that setting `na.rm = TRUE` is required as there are missing values present for this variable. 

```{r}
sepsis %>%
	group_by_case() %>%
	mutate(total_lacticacid = sum(lacticacid, na.rm = TRUE)) %>%
	ungroup_eventlog()
```

Before continuing to further analyses, not that you might want to ungroup the log using `ungroup_eventlog()`. More on [grouping](wrangling.html).

```

```{r footer, results = "asis", echo = F}
CURRENT_PAGE <-  stringr::str_replace(knitr::current_input(), ".Rmd",".html")
res <- knitr::knit_expand("_button_footer.Rmd", quiet = TRUE)
res <- knitr::knit_child(text = unlist(res), quiet = TRUE)
cat(res, sep = '\n')
```