inst/example_app/www/Theme_DataAtelier.R

In data-atelier/newsExploreR: Extracting information from newsapi.org

#########################################################################
# Farbpaletten und Themes ----------------------------------------------#
# von Chrsitoph Zepf                                                    #
# Data Atelier                                                          #
#########################################################################

# Farbpaletten ----
# Data Atelier
# dunkel nach hell
col.data.atelier <- c("#5e70b3","#8089c3","#c0c3e3","#c0c3e3","#dfe0f1")

# Themes ----
theme_DataAtelier <-theme(
  # Panel Einstellungen
  panel.grid.major = element_blank(),
  panel.grid.minor = element_blank(),
  panel.border = element_blank(),
  panel.background = element_rect(fill = "transparent",colour = NA),
  # Definiere Textfont und -farbe
  text = element_text(family = "Calibri", colour = "#585858"),
  # Definiere Achsen
  axis.ticks = element_line(colour = "#585858"),
  # x-Achse meistens nicht bei Null, also meistens störend
  # Außer man zwingt ggplot dazu, 
  # z.B. mit scale_x_continuous(expand = c(0, 0), limits = c(0,20))
  axis.line.x = element_line(color="#585858", size = 0.25),
  axis.line.y = element_line(color="#585858", size = 0.25),
  # Transparenter Hintergrund
  plot.background = element_rect(fill = "transparent",colour = NA))

#a blank theme 
theme_DataAtelier_blank <-theme(
  # Panel Einstellungen
  panel.grid.major = element_blank(),
  panel.grid.minor = element_blank(),
  panel.border = element_blank(),
  panel.background = element_rect(fill = "transparent",colour = NA),
  # Definiere Textfont und -farbe
  text = element_text(family = "Calibri", colour = "#585858"),
  # Definiere Achsen
  axis.ticks = element_line(colour = "#585858"),
  # Transparenter Hintergrund
  plot.background = element_rect(fill = "transparent",colour = NA))

# Alternative Themes

theme_DataAtelier2 <-theme(
  # Panel Einstellungen
  panel.grid.major = element_blank(),
  panel.grid.minor = element_blank(),
  panel.border = element_blank(),
  panel.background = element_rect(fill = "transparent",colour = NA),
  # Panel vertikale und horizontale Striche
  panel.grid.major.x = element_blank() ,
  panel.grid.major.y = element_line( size=.1, color="black" ),
  # Definiere Textfont und -farbe
  text = element_text(family = "Calibri", colour = "#585858"),
  # Definiere Achsen
  axis.ticks = element_line(colour = "#585858"),
  # x-Achse meistens nicht bei Null, also meistens störend
  # Außer man zwingt ggplot dazu, 
  # z.B. mit scale_x_continuous(expand = c(0, 0), limits = c(0,20))
  axis.line.x = element_line(color="#585858", size = 0.25),
  axis.line.y = element_line(color="#585858", size = 0.25),
  # Transparenter Hintergrund
  plot.background = element_rect(fill = "transparent",colour = NA))