data-raw/raw_data.R

In Ashish-Soni08/ggradialbar: A ‘ggplot2’ Radial Bar Chart Extensions for Visualizing High-dimensional Clusters and Their Evolution

# code to prepare `raw_data` dataset goes here

## Libraries
library(tidyverse)
library(usethis)

## raw_data : is a list with two elements
raw_data <- readr::read_rds("C:/rprojects/ggradialbar/data-raw/team-project-data.rds")

## 1. the dataset as tibble

data <- raw_data$data

## 2. feature group information as tibble

feature_groups <- raw_data$feature_groups


## Final dataset- tidy_data : dataset in long format and combined with feature group tibble

long_data <- data %>%
  pivot_longer(names_to = "feature", values_to = "value", cols = -c(.id, .phase, .cluster)) %>%
  drop_na()

tidy_data <- full_join(long_data, feature_groups, by = "feature")


## Setup data for package
usethis::use_data(tidy_data, overwrite = TRUE)