data-raw/data_line_charts.R

In martinjhnhadley/oidnChaRts: Utility Functions For htmlwidget Visualisations

## data_line_chart
## This dataset comes from https://doi.org/10.6084/m9.figshare.4555441
## Line charts provide a natural visualisation option for this data, as there are a number of series with dependent (y-axis) and independent (x-axis) measures

library(rfigshare)
library(tidyverse)

fs_deposit_id <- 4555441
deposit_details <- fs_details(fs_deposit_id)

deposit_details <- unlist(deposit_details$files)
deposit_details <- data.frame(split(deposit_details, names(deposit_details)),stringsAsFactors = F)

data_line_chart <- deposit_details %>%
  dplyr::filter(name == "thesaurus.fig2.tsv") %>%
  select(download_url) %>%
  .[[1]] %>%
  read_tsv()
colnames(data_line_chart) <- tolower(colnames(data_line_chart))

data_line_chart <- data_line_chart %>%
  rename(x = af,
         y = fdr,
         trace = series) %>%
  select(-tpr)
# 
# 
# ## ======================== 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")