Malowanie pisanek w R
Potężne graficzne możliwości R często mnie prowokują do szukania innych zastosowań niż wizualizacja zależności między analizowanymi danymi. Tworzenie w R kartek świątecznych wydaje się nieco oryginalne, ale wbrew pozorom jest bardzo proste, głównie ze względu na na gotowe do użycia skrypty rysujące króliczki i jajka (kod poniżej).
Do zajmujących nas ostatnio kartogramów wracamy już niebawem, bo STWUR spotyka się w środę 19.04 o 19:00 na Wydziale Biotechnologii UWr w sali 1.03. Zapraszamy!
library(ggplot2)
egg_equation <- function(t)
data.frame(x = 0.78 * cos(t/4) * sin(t),
y = -cos(t))
npointsb <- 40
npoints <- 500
t <- seq(-pi, pi, length = npointsb)
set.seed(15390)
point_img <- cbind(egg_equation(t),
data.frame(s = runif(npointsb, min = 3,
max = 8),
f = factor(sample(1L:10, npointsb, TRUE)),
a = runif(npointsb, min = 0.2, max = 0.4)))
points_bcg <- data.frame(x = runif(npoints, -1.7, 1.7),
y = runif(npoints, -1.5, 1.5),
s = runif(npoints, min = 1, max = 6),
f = factor(sample(1L:10, npoints, TRUE)),
a = runif(npoints, min= 0.05, max = 0.08))
data <- rbind(point_img, points_bcg)
ggplot(data, aes(x, y, colour = f, alpha = a, size = s)) +
geom_point() +
theme_void() +
scale_size_continuous(range = c(5, 15)) +
theme(legend.position="none")
