Dracula Theme ORG

@dracula ·Transylvania ·draculatheme.com

The most famous dark theme ever created and available everywhere.

498 repos
1.5k followers
0 following

CSS 49%
Shell 13%
JavaScript 7%
TypeScript 4%
PowerShell 4%

{dRacula} \| Dracula Theme for R > All things Dracula themed for R Install All instructions…

{`dRacula`} \| Dracula Theme for R

![R-CMD-check](https://github.com/dracula/dRacula/actions/workflows/R-CMD-check.yaml)

> All things Dracula themed for R

Install

All instructions can be found at
draculatheme.com/dRacula.

r
devtools::install_github(&quot;dracula/dRacula&quot;)

r
remotes::install_github(&quot;dracula/dRacula&quot;)

Examples

Add a Dracula-themed _brand.yaml to your project:

r
library(dRacula)
dracula_brand()

Apply the Dracula theme and color scale to a linear regression plot:

r
library(dplyr)
library(ggplot2)
library(dRacula)

lm &lt;- lm(mpg ~ wt, data = mtcars)

ggplot(mtcars %&gt;% mutate(resid = abs(resid(lm)), fitted = fitted(lm))) +
  geom_line(aes(wt, fitted)) +
  geom_point(aes(wt, mpg, color = resid)) +
  scale_color_dracula(discrete = FALSE) +
  theme_dracula() +
  ggtitle(&quot;mtcars: MPG by Weight&quot;) +
  labs(x = &quot;Weight&quot;, y = &quot;MPG&quot;, color = &quot;Residuals&quot;)

Apply the Dracula palette and theme to proportional stacked area chart:

r
library(dplyr)
library(ggplot2)
library(dRacula)

set.seed(1)
time &lt;- rep(seq(1, 7), each = 5)
value &lt;- runif(35, 10, 100)
group &lt;- rep(LETTERS[1:5], times = 7)

data &lt;- data.frame(time, value, group) %&gt;%
  group_by(time, group) %&gt;%
  summarise(n = sum(value), .groups = &quot;drop&quot;) %&gt;%
  mutate(percentage = n / sum(n))

ggplot(data, aes(x = time, y = percentage, fill = group)) +
  geom_area(alpha = 0.7, color = &quot;black&quot;, linewidth = 0.4) +
  scale_fill_dracula(discrete = TRUE) +
  labs(
    title = &quot;Proportional Stacked Area Chart&quot;,
    x = &quot;Time&quot;,
    y = &quot;Proportion&quot;,
    fill = &quot;Group&quot;
  ) +
  theme_dracula() +
  theme(legend.position = &quot;bottom&quot;)