flexdashboard::flex_dashboard: theme: bg: “#F3F2F1” # Light grey background fg: “#212121” # Dark grey foreground primary: “#0078D4” # Microsoft blue base_font: google: Prompt code_font: google: JetBrains Mono orientation: columns vertical_layout: fill —

Column

Scatter Plot Sample

# Generate sample data
set.seed(123)
data <- data.frame(x = rnorm(100), y = rnorm(100))

# Create scatter plot
ggplot(data, aes(x = x, y = y)) +
  geom_point() +
  theme_minimal() +
  labs(title = "Scatter Plot", x = "X-Axis", y = "Y-Axis")

Column

Bar Chart

# Create histogram
ggplot(data, aes(x = x)) +
  geom_histogram(binwidth = 0.5, fill = "blue", color = "white") +
  theme_minimal() +
  labs(title = "Histogram", x = "X-Axis", y = "Frequency")

Line Chart

# Generate sample time series data
time_data <- data.frame(time = 1:100, value = cumsum(rnorm(100)))

# Create line plot

ggplot(time_data, aes(x = time, y = value)) +
  geom_line(color = "red") +
  theme_minimal() +
  labs(title = "Line Plot", x = "Time", y = "Value")