Loukas Theodosiou loukesio

🧑‍💻

Coding at work

https://twitter.com/loukesio

loukesio / install_packages.R

Last active December 17, 2025 17:10

R Package Installation Guide - Data Visualization and Genomics Course

	# ============================================================================
	# R Package Installation Guide
	# Data Visualization and Genomics Course
	# ============================================================================
	#
	# This script will help you install all required R packages for the course.
	#
	# Prerequisites:
	# - R version: 4.3.0 or higher (recommended: 4.4.0+)
	# - RStudio: Latest version recommended

loukesio / font_test.R

Created May 4, 2025 22:36

test how different fonts look

	demo_font_text <- function(
	google_names,
	families = tolower(gsub("\\s+", "", google_names)),
	label_text = "Showtext shows text. Wow. What an insight.",
	size = 13
	) {
	# dependencies
	library(showtext)
	library(ggplot2)
	library(dplyr)

loukesio / rcpp_forloop.R

Created August 20, 2023 20:12

	# Load the Rcpp library (assuming you've already loaded it earlier)
	library(Rcpp)
	library(showtext)
	library(ggplot2)
	library(ggforce)
	library(ggfx)

	## Loading Google fonts (https://fonts.google.com/)
	font_add_google("Exo 2", "Exo")
	showtext_auto()

loukesio / group_Text_with_bar.R

Last active August 3, 2023 13:53

	library(ggplot2)
	library(dplyr, warn.conflicts = FALSE)

	tibble(species=c(rep("tiger",2),rep("elephant",2)),
	type=rep(c("upregulated","downregulated"),2),
	counts=c(121,117,219,234)) %>%
	ggplot() +
	geom_col(aes(species,counts,fill=type), position = position_dodge()) +
	scale_fill_manual(values=c("#ffa345","#624185")) +
	geom_text(aes(x=species, y=counts+5, label=counts, group=type), position = position_dodge(width = 0.9)) + # Here, do not forget to GROUP!

loukesio / global_temps.R

Created July 16, 2023 21:22

	# Load required packages
	library(tidyverse)
	library(gridExtra)
	library(showtext)
	library(grid)

	# Read the global temperature data from CSV file
	global_temps <- readr::read_csv('https://raw.githubusercontent.com/rfordatascience/tidytuesday/master/data/2023/2023-07-11/global_temps.csv')

	# Add custom font and enable automatic text rendering

loukesio / fluorescent_penguin.R

Created June 29, 2023 18:14

loukesio / color_DNA_background.R

Created June 25, 2023 21:37

	colorDNASequences <- function(dna_sequences) {
	# Define background colors for bases
	base_backgrounds <- c(A = "\033[41m", T = "\033[42m", G = "\033[44m", C = "\033[43m") # Red, Green, Blue, Yellow background

	# Iterate over each DNA sequence
	for (dna_sequence in dna_sequences) {
	# Convert the sequence to uppercase to handle both upper and lower case letters
	sequence <- toupper(dna_sequence)

	# Iterate over each base in the sequence

loukesio / color_DNA.R

Created June 25, 2023 20:52

	colorDNASequences <- function(dna_sequences) {
	# Define colors for bases
	base_colors <- c(A = "\033[31m", T = "\033[32m", G = "\033[34m", C = "\033[33m") # Red, Green, Blue, Yellow
	gap <- " " # Tiny gap between base pairs

	# Iterate over each DNA sequence
	for (dna_sequence in dna_sequences) {
	# Convert the sequence to uppercase to handle both upper and lower case letters
	sequence <- toupper(dna_sequence)

loukesio / circle_lines.R

Last active June 25, 2023 16:30

	library(showtext)
	library(ggplot2)
	## Loading Google fonts (https://fonts.google.com/)
	font_add_google("Exo 2", "Exo")

	## Automatically use showtext to render text
	showtext_auto()

	generate_lines_within_circle <- function(center_x, center_y, radius, num_lines) {
	start_angles <- runif(num_lines, 0, 2 * pi)

loukesio / ggforce_circles.R

Created June 24, 2023 23:04

	library(showtext)
	library(ggplot2)
	library(ggforce)
	library(tibble)
	library(ltc)

	library(showtext)
	## Loading Google fonts (https://fonts.google.com/)
	font_add_google("Great Vibes", "Great Vibes")