Terima kasih sudah berkunjung!

Situs ini bisa jadi (atau bisa juga tidak) memuat materi yang bermanfaat. Setidaknya, situs ini akan memuat berbagai catatan yang saya buat sepanjang perjalanan saya beraktivitas di bidang kedokteran, laboratorium, pendidikan, dan lain sebagainya.

Catatan tentang berbagai topik dapat ditemukan di sini.

Beberapa paparan dapat ditemukan di sini.

Jika Anda merasa beberapa di antaranya bermanfaat, saya pasti sangat senang.

Jika Anda merasa tidak ada yang bermanfaat, mohon beri tahu saya cara membuatnya bermanfaat.

Sebenarnya… 🧠

Sebenarnya, membuat situs ini adalah cara saya mempelajari Quarto karena saya juga menggunakannya untuk membuat slide presentasi dan menulis teks profesional termasuk untuk catatan penelitian, artikel jurnal dan buku. Jika Anda tertarik untuk mempelajari lebih lanjut tentang Quarto, Anda dapat mengunjungi situs ini. Dengan Quarto, Anda dapat dengan mudah menggunakan emoji, simbol, dan bahkan membuat grafik ilmiah seperti berikut ini.

Lihat kode! 
# Load libraries
library(ggplot2)
library(dplyr)
library(patchwork)
library(viridisLite)

# Simulate data
set.seed(123)
df <- tibble(
  category = rep(LETTERS[1:5], each = 100),
  x = rnorm(500, mean = rep(1:5, each = 100), sd = 1),
  y = rnorm(500),
  group = sample(c("Group 1", "Group 2"), 500, replace = TRUE)
)

# Plot 1: Scatter plot
p1 <- ggplot(df, aes(x = x, y = y, color = category)) +
  geom_point(alpha = 0.7, size = 1.5) +
  scale_color_viridis_d() +
  theme_minimal() +
  labs(title = "Scatter by Category", color = "Category")

# Plot 2: Density plot
p2 <- ggplot(df, aes(x = x, fill = category)) +
  geom_density(alpha = 0.6) +
  scale_fill_viridis_d() +
  theme_minimal() +
  labs(title = "Density of X by Category", fill = "Category")

# Plot 3: Boxplot by Group
p3 <- ggplot(df, aes(x = group, y = x, fill = group)) +
  geom_boxplot() +
  scale_fill_viridis_d(option = "C") +
  theme_minimal() +
  labs(title = "X Distribution by Group", x = NULL)

# Combine plots
(p1 | p2) / p3 + 
  plot_annotation(title = "Showcasing R's Visualization Power in Quarto")