healthyR (version 0.2.0)

kmeans_mapped_tbl: K-Means Mapper

Description

Create a tibble that maps the kmeans_obj() using purrr::map() to create a nested data.frame/tibble that holds n centers. This tibble will be used to help create a scree plot.

Usage

kmeans_mapped_tbl(.data, .centers = 15)

Value

A nested tibble

Arguments

.data

You must have a tibble in the working environment from the kmeans_user_item_tbl()

.centers

How many different centers do you want to try

Author

Steven P. Sanderson II, MPH

Details

Takes in a single parameter of .centers. This is used to create the tibble and map the kmeans_obj() function down the list creating a nested tibble.

See Also

https://en.wikipedia.org/wiki/Scree_plot

Examples

library(healthyR.data)
library(dplyr)

data_tbl <- healthyR_data%>%
   filter(ip_op_flag == "I") %>%
   filter(payer_grouping != "Medicare B") %>%
   filter(payer_grouping != "?") %>%
   select(service_line, payer_grouping) %>%
   mutate(record = 1) %>%
   as_tibble()

ui_tbl <-  kmeans_user_item_tbl(
   .data           = data_tbl
   , .row_input    = service_line
   , .col_input    =  payer_grouping
   , .record_input = record
 )

kmeans_mapped_tbl(ui_tbl)