data-raw/data_charts.R

In martinjhnhadley/oidnChaRts: Utility Functions For htmlwidget Visualisations

library(tidyverse)

# data_stacked_bar_chart <- data.frame(
#   "country" = c(
#     "United Kingdom",
#     "France",
#     "Saudi Arabia",
#     "Egypt",
#     "Germany",
#     "China",
#     "Slovakia",
#     "Canada",
#     "Estonia",
#     "Ireland"
#   ),
#   "Business" =  c(8, 6, 7, 8, 9, 7, 9, 7, 9, 9),
#   "Other" = c(22, 28, 11, 19, 11, 39, 22, 10, 30, 7),
#   "Personal Visit" = c(19, 21, 21, 20, 19, 19, 21, 21, 20, 20),
#   "Teleconference" = c(9, 29, 21, 44, 59, 11, 53, 16, 49, 36),
#   "Unclassified" = c(42, 48, 50, 45, 49, 40, 42, 47, 48, 44),
#   stringsAsFactors = F
# )
# # Columns
# categories_column <- "country"
# subcategories_column <- "activity"
# value_column <- "hours"
# # Convert to long-format
# data_stacked_bar_chart <- data_stacked_bar_chart %>%
#   gather(activity, hours, match(
#     setdiff(colnames(data_stacked_bar_chart), categories_column),
#     colnames(data_stacked_bar_chart)
#   )) %>%
#   as_data_frame()
# 
# # save(data_stacked_bar_chart,
# #      file = "data/data_stacked_bar_chart.rdata")

library(tidyverse)

## ======================== data_line_chart

data_line_chart <- read_tsv("data-raw/thesaurus.fig2.tsv")
colnames(data_line_chart) <- tolower(colnames(data_line_chart))

line_colours_scheme <- read_csv("data-raw/color_scheme.csv")
colnames(line_colours_scheme) <-
  tolower(make.names(colnames(line_colours_scheme)))

data_line_chart <- data_line_chart %>%
  mutate(color = plyr::mapvalues(series,
                                 line_colours_scheme$name,
                                 line_colours_scheme$colour))

save(data_line_chart,
     file = "data/data_line_chart.rdata")