Merry Christmas and Happy New Year 2021

The Department of Applied Mathematics, Faculty of Natural Science, University of Tirana , Albania wish you:

“MERRY CHRISTMAS AND HAPPY NEW YEAR 2021”

Best wishes from me (Eralda Gjika (Dhamo))

rm(list = ls())
library(ggplot2)

# create data
x <- c(8,7,6,7,6,5,6,5,4,5,4,3,4,3,2,3,2,1,0.5,0.1)

dat1 <- data.frame(x1 = 1:length(x), x2 = x)
dat2 <- data.frame(x1 = 1:length(x), x2 = -x)
dat1$xvar <- dat2$xvar <- NA
dat1$yvar <- dat2$yvar <- NA
dat1$siz <- dat2$siz <- NA
dat1$col <- dat2$col <- NA

# set threshold for christmas balls
dec_threshold = -0.5

# create random places, sizes and colors for christmas balls
set.seed(2512)
for (row in 1:nrow(dat1)){

if (rnorm(1) > dec_threshold){

dat1$xvar[row] <- row
dat1$yvar[row] <- sample(1:dat1$x2[row]-1,1)
dat1$siz[row] <- runif(1,0.5,1.5)
dat1$col[row] <- sample(1:5, 1)
}

if (rnorm(1) > dec_threshold){

dat2$xvar[row] <- row
dat2$yvar[row] <- sample(1:dat2$x2[row],1)
dat2$siz[row] <- runif(1,0.5,1.5)
dat2$col[row] <- sample(1:5, 1)
}
}

# plot the christmas tree
g1<-ggplot() +
geom_bar(data = dat1, aes(x=x1, y=x2),stat = "identity", fill = 'red') +
geom_bar(data = dat2, aes(x=x1, y=x2),stat = "identity", fill = 'red') +
geom_point(data = dat1,aes(x = xvar, y = yvar, size = siz, colour = as.factor(col)) ) +
geom_point(data = dat2,aes(x = xvar, y = yvar, size = siz, colour = as.factor(col)) ) +
coord_flip() + theme_minimal()+ theme(legend.position="none",
axis.title.x=element_blank(),
axis.text.x=element_blank(),
axis.ticks.x=element_blank(),
axis.title.y=element_blank(),
axis.text.y=element_blank(),
axis.ticks.y=element_blank()) +
ggtitle('Department of Applied Mathematics wishes you a Merry Christmas and Happy New Year 2020')
g1

g1+ labs(title = "Department of Applied Mathematics wishes you a Merry Christmas and Happy New Year 2021",subtitle = "Departamenti i Matematikes se Aplikuar ju uron Gezuar Krishtlindjen dhe Vitin e Ri 2021", caption = "Nga E.Gjika")

img <- "https://media-exp1.licdn.com/dms/image/C4E22AQG_OwQV5P85Ww/feedshare-shrink_1280-alternative/0?e=1609977600&v=beta&t=huJHLnGkk8LqHcy_FpwIDZHzauQZfGZ1jhw_nomk6mw"
imgRead <- image_read(img)
ggbackground(g1+ labs(title = "Department of Applied Mathematics wishes you a Merry Christmas and Happy New Year 2021",subtitle = "Departamenti i Matematikes se Aplikuar ju uron Gezuar Krishtlindjen dhe Vitin e Ri 2021", caption = "Nga E.Gjika",col="white"), img)

Removed 8 rows containing missing values (geom_point).Removed 4 rows containing missing values (geom_point).

library(data.table)
library(tidyverse)
library(gganimate)
library(ggimage)
library(magick)
library(gifski)
df= fread('https://raw.githubusercontent.com/lgellis/MiscTutorial/master/Holidays/Holidays.csv', stringsAsFactors = FALSE)

 [0%] Downloaded 0 bytes...
 [0%] Downloaded 0 bytes...
 [0%] Downloaded 0 bytes...
 [0%] Downloaded 0 bytes...
 [0%] Downloaded 0 bytes...
 [0%] Downloaded 0 bytes...

# Basic scatter plot
p <-ggplot(df[1:5000,], aes(x=x, y=y)) +
  geom_point(colour = '#BF0000', size = 0.3) +
   xlim(0, 18000) +
   ylim(0, 10000) +
   theme_void()
p

p+ labs(title = "Department of Applied Mathematics wishes you a Merry Christmas and Happy New Year 2021",subtitle = "Departamenti i Matematikes se Aplikuar ju uron Gezuar Krishtlindjen dhe Vitin e Ri 2021", caption = "Nga E.Gjika")

img <- "https://scontent.ftia5-1.fna.fbcdn.net/v/t1.0-0/p640x640/85044551_671426090263144_1379863036747055104_o.jpg?_nc_cat=106&ccb=2&_nc_sid=110474&_nc_ohc=DTNir6Ay30wAX-4R9de&_nc_ht=scontent.ftia5-1.fna&tp=6&oh=f3bb7b268e6e7e4d88708280bd7c9c61&oe=5FF0934A"
imgRead <- image_read(img)
ggbackground(p, img)

Ref: https://www.linkedin.com/in/eralda-dhamo-gjika-71879128/detail/recent-activity/shares/ https://rstudio-pubs-static.s3.amazonaws.com/237347_4375e98b087f444fbac540a9e6fc674b.html