R Notebook

 setwd("~/ELLIS Data")

# Load necessary libraries
library(dplyr)
library(ggplot2)

# Create a sample dataset
set.seed(123)  # For reproducibility
data <- data.frame(
  Category = sample(c("A", "B", "C"), size = 100, replace = TRUE),
  Value = rnorm(100, mean = 50, sd = 10))

# Summarize the data
summary_stats <- data %>%
  group_by(Category) %>%
  summarise(
    Count = n(),
    Mean = mean(Value),
    SD = sd(Value)  )

print("Summary statistics:")
print(summary_stats)

# Create a boxplot
ggplot(data, aes(x = Category, y = Value, fill = Category)) +
  geom_boxplot() +
  theme_minimal() +
  labs(title = "Boxplot of Value by Category",
       x = "Category",
       y = "Value")

# Simulate weekly learning hours
set.seed(123)
weeks <- 1:10
hours <- cumsum(rnorm(10, mean = 5, sd = 1))
learning_df <- data.frame(Week = weeks, Hours = hours)

ggplot(learning_df, aes(x = Week, y = Hours)) +
  geom_line(color = "blue", size = 1.2) +
  geom_point(size = 3) +
  labs(title = "My Weekly Learning Hours", y = "Total Hours", x = "Week") +
  theme_minimal()

Error in ggplot(learning_df, aes(x = Week, y = Hours)) : 
  could not find function "ggplot"

# Load necessary libraries
library(ggplot2)

# Example data frame
places <- data.frame(
  City = c("New York", "Los Angeles", "Chicago", "Houston", "Phoenix"),
  Population = c(8419600, 3980400, 2716000, 2328000, 1690000)
)

# Create bar chart
ggplot(places, aes(x = reorder(City, -Population), y = Population)) +
  geom_bar(stat = "identity", fill = "#2C3E50") +
  labs(
    title = "Population of Major U.S. Cities",
    x = "City",
    y = "Population"
  ) +
  theme_minimal(base_size = 14) +
  theme(
    plot.title = element_text(face = "bold", hjust = 0.5),
    axis.text.x = element_text(angle = 45, hjust = 1)
  )

# Load libraries
library(ggplot2)

# Create place value data
place_value <- data.frame(
  Place = c("Thousands", "Hundreds", "Tens", "Ones"),
  Digit = c(4, 3, 8, 2)
)

# Plot as a bar chart
ggplot(place_value, aes(x = Place, y = Digit, fill = Place)) +
  geom_bar(stat = "identity", width = 0.6) +
  labs(title = "Place Value Chart for 4,382", x = "Place", y = "Digit") +
  theme_minimal(base_size = 14) +
  scale_fill_brewer(palette = "Set2") +
  geom_text(aes(label = Digit), vjust = -0.5) +
  theme(legend.position = "none")

library(esquisse)
library(rio)
SMdata = import("SMdata.csv")

library(ggplot2)

ggplot(SMdata) +
 aes(x = Total, y = Positive) +
 geom_point(colour = "#112446") +
 theme_minimal()

library(esquisse)

#esquisse::esquisser(SMdata)

who_data <- data.frame(
  Indicator = c("Life Expectancy", "Vaccination Rate", "Health Spending"),
  Value = c("68.7 years", "85%", "USD 112 per capita")
)
library(ggplot2)
library(ggtext)
library(showtext)

font_add_google("Roboto", "roboto")
showtext_auto()

# Create label text with WHO data
label_text <- paste0(
  "<b style='font-size:18pt;'>Chuka University – WHO Data Report</b><br><br>",
  "<b>Life Expectancy:</b> 68.7 years<br>",
  "<b>Vaccination Rate:</b> 85%<br>",
  "<b>Health Spending:</b> USD 112 per capita<br><br>",
  "<i>Data Source: WHO Global Health Observatory</i>"
)

# Create the card
ggplot(data.frame(x = 1, y = 1), aes(x, y)) +
  geom_textbox(
    aes(label = label_text),
    width = unit(0.8, "npc"),
    box.color = "#2C6B2F",
    box.fill = "#DFF0D8",
    color = "black",
    size = 5,
    family = "roboto",
    halign = 0.5
  ) +
  theme_void() +
  xlim(0, 2) + ylim(0, 2)
ggsave("chuka_university_card.png", width = 8, height = 5)

library(ggplot2)
library(ggtext)
library(showtext)

# Load a nicer font
font_add_google("Roboto", "roboto")
showtext_auto()

# Create the content for the card
label_text <- paste0(
  "<b style='font-size:28pt;'>Chuka University – WHO Data Report</b><br><br>",
  "<b style='font-size:18pt;'>Life Expectancy:</b> 68.7 years<br>",
  "<b style='font-size:18pt;'>Vaccination Rate:</b> 85%<br>",
  "<b style='font-size:18pt;'>Health Spending:</b> USD 112 per capita<br><br>",
  "<i style='font-size:14pt;'>Data Source: WHO Global Health Observatory</i>"
)

# Plot the card
ggplot(data.frame(x = 1, y = 1), aes(x, y)) +
  geom_textbox(
    aes(label = label_text),
    width = unit(0.9, "npc"),  # Wider card
    box.color = "#2C6B2F",
    box.fill = "#DFF0D8",
    color = "blue",
    size = 7,                   # Text scale in ggtext
    family = "roboto",
    halign = 0.5
  ) +
  theme_void() +
  xlim(0, 2) + ylim(0, 2)

# To save the bigger card
ggsave("chuka_university_big_card.png", width = 12, height = 8, dpi = 300)

library(ggplot2)
library(ggtext)
library(showtext)

# Load Google Font
font_add_google("Roboto", "roboto")
showtext_auto()

# Longer and richer card content
label_text <- paste0(
  "<b style='font-size:26pt;'>Chuka University – WHO Health Profile</b><br><br>",
  "<b style='font-size:18pt;'>Life Expectancy:</b> 68.7 years<br>",
  "<b style='font-size:18pt;'>Vaccination Rate:</b> 85%<br>",
  "<b style='font-size:18pt;'>Health Spending:</b> USD 112 per capita<br>",
  "<b style='font-size:18pt;'>Infant Mortality:</b> 32 per 1,000 live births<br>",
  "<b style='font-size:18pt;'>Maternal Mortality:</b> 342 per 100,000 births<br>",
  "<b style='font-size:18pt;'>HIV Prevalence (15–49 yrs):</b> 4.9%<br>",
  "<b style='font-size:18pt;'>Access to Basic Sanitation:</b> 65%<br>",
  "<b style='font-size:18pt;'>Health Workforce Density:</b> 1.5 doctors per 1,000 people<br><br>",
  "<i style='font-size:14pt;'>Compiled by Chuka University – School of Public Health<br>",
  "Data Source: WHO Global Health Observatory | Date: May 2025</i>"
)

# Generate the card
ggplot(data.frame(x = 1, y = 1), aes(x, y)) +
  geom_textbox(
    aes(label = label_text),
    width = unit(0.95, "npc"),       # wider card
    box.color = "#2C6B2F",
    box.fill = "#EAF7E7",
    color = "black",
    size = 7,
    family = "roboto",
    halign = 0.5
  ) +
  theme_void() +
  xlim(0, 2) + ylim(0, 2)

# Save the enhanced card (optional)
ggsave("chuka_university_detailed_card.png", width = 13, height = 9, dpi = 300)

library(ggplot2)

# Sample data
df <- expand.grid(x = 1:5, y = 1:5)
df$value <- runif(nrow(df))

# Tile plot
ggplot(df, aes(x, y, fill = value)) +
  geom_tile() +
  scale_fill_gradient(low = "white", high = "blue") +
  theme_minimal()

ggplot(mtcars, aes(mpg, wt)) +
  geom_point() +
  facet_wrap(~cyl)

Error in ggplot(mtcars, aes(mpg, wt)) : could not find function "ggplot"

# Install packages if needed
install.packages(c("ggplot2", "ggfx", "grid", "ggforce"))

Error in install.packages : Updating loaded packages

library(ggplot2)

Warning: package ‘ggplot2’ was built under R version 4.5.1

library(ggfx)

Warning: package ‘ggfx’ was built under R version 4.5.1

library(grid)
library(ggforce)

Warning: package ‘ggforce’ was built under R version 4.5.1

# Create stylized background layers
ggplot() +
  with_blur(
    geom_rect(aes(xmin = -Inf, xmax = Inf, ymin = -Inf, ymax = Inf), fill = "#FDB813"), sigma = 20
  ) +
  annotate("rect", xmin = -10, xmax = 10, ymin = 0, ymax = 2, fill = "#228B22") +  # Meadow
  annotate("polygon", x = c(-3, 0, 3), y = c(2, 6, 2), fill = "#708090") +  # Mountains
  annotate("polygon", x = c(-2.5, 0, 2.5), y = c(2, 5, 2), fill = "#A9A9A9") +  # Snow Caps
  annotate("segment", x = -5, xend = 5, y = 2, yend = 2, size = 1.5, color = "#1E90FF") +  # River
  geom_point(aes(x = runif(100, -8, 8), y = runif(100, 0, 2)), 
             shape = 8, color = "white", size = 1.5, alpha = 0.5) +  # Wildflowers
  annotate("point", x = -7:7, y = rep(1.5, 15), size = runif(15, 3, 6), color = "orange") +  # Trees
  theme_void() +
  coord_fixed() +
  ggtitle("Stylized Mountain Sunset Scene")

Warning: Using `size` aesthetic for lines was deprecated in ggplot2 3.4.0.
Please use `linewidth` instead.

install.packages(c("ggplot2", "ggfx", "grid", "ggforce"))

WARNING: Rtools is required to build R packages but is not currently installed. Please download and install the appropriate version of Rtools before proceeding:

https://cran.rstudio.com/bin/windows/Rtools/

Warning in install.packages :
  packages ‘ggplot2’, ‘ggfx’, ‘grid’, ‘ggforce’ are in use and will not be installed

library(magick)

Linking to ImageMagick 6.9.12.98
Enabled features: cairo, freetype, fftw, ghostscript, heic, lcms, pango, raw, rsvg, webp
Disabled features: fontconfig, x11

# Load the image
img <- image_read("714ba8c7-d40a-4969-901f-54032e5887c2.png")

Error: rsession-utf8.exe: UnableToOpenBlob `C:\Users\User\Documents\ELLIS Data\714ba8c7-d40a-4969-901f-54032e5887c2.png': No such file or directory @ error/blob.c/OpenBlob/2964

# Load required libraries
install.packages(c("grid", "gridExtra"))
library(grid)
library(gridExtra)

# Set up content
disease <- "Malaria"
region <- "Africa"
cases <- "247,000,000"
deaths <- "619,000"
r0 <- "10"
fatality <- "0.25%"
updated <- "2025-05-24"

# Title (with icon placeholder)
title_grob <- textGrob("💊 CDAM Disease Summary", gp = gpar(fontsize = 16, fontface = "bold", col = "darkgreen"))

# Key-value layout
info <- list(
  c("Disease:", disease),
  c("Region:", region),
  c("Total Cases:", cases),
  c("Total Deaths:", deaths),
  c("Ro Estimate:", r0),
  c("Case Fatality Rate:", fatality),
  c("Last Updated:", updated)
)

# Create grobs for each row
rows <- lapply(info, function(x) {
  gTree(children = gList(
    textGrob(x[1], x = unit(0.05, "npc"), gp = gpar(fontface = "bold", fontsize = 12), just = "left"),
    textGrob(x[2], x = unit(0.45, "npc"), gp = gpar(fontsize = 12), just = "left")
  ))
})

# Layout the card
grid.newpage()
pushViewport(viewport(layout = grid.layout(nrow = 9, heights = unit(rep(1, 9), "lines"))))

# Title
grid.draw(editGrob(title_grob, vp = viewport(layout.pos.row = 1)))

# Info rows
for (i in seq_along(rows)) {
  pushViewport(viewport(layout.pos.row = i + 2))
  grid.draw(rows[[i]])
  popViewport()
}

# Optional: add border/background
grid.rect(gp = gpar(col = "darkgreen", fill = "#fdf8e6", lwd = 2))

G