随机选择主题

示例来自函数,而不是函数的名称。此外,当从比标量更复杂的任何对象进行采样时,sample返回一个列表,因此需要第一个list元素。如:

> sample(c(sqrt, sqrt),2)
[[1]]
function (x)  .Primitive("sqrt")

[[2]]
function (x)  .Primitive("sqrt")

因此,获得一个随机主题函数:

random_theme <- sample(c(theme_gray, theme_bw, theme_light, theme_dark, theme_minimal, theme_classic), 1)[[1]]

ggplot(df, aes(x, y)) +geom_line() + random_theme()

重采样 random_theme 并再次绘图以进行更新。

<<- 我猜这是因为拼命想让事情成功。。。

你可以这样做 match.fun()

random_theme = match.fun(sample(c("theme_gray", "theme_bw", "theme_light", "theme_dark", "theme_minimal", "theme_classic"), 1))

ggplot(df, aes(x, y)) +
 geom_line() +
 random_theme()

干杯 random_theme 是一个 character eval parse 来解析你的主题。

library(tidyverse)

ggplot(df, aes(x, y)) +
  geom_line() +
  eval(parse(text = paste0(random_theme, "()")))

或者更直接地说:

ggplot(df, aes(x, y)) +
  geom_line() +
  eval(parse(text = paste0(sample(c("theme_gray",
                                    "theme_bw", 
                                    "theme_light", 
                                    "theme_dark", 
                                    "theme_minimal", 
                                    "theme_classic"), 1)  , "()")))