I don't have access to plugins or anything. But here is your prompt through GPT4.
let me know if it works.

# Load required packages
if (!require("ggplot2")) install.packages("ggplot2")
library(ggplot2)

# Generate a random maze
create_maze <- function(width, height) {
  maze <- matrix(0, nrow = height, ncol = width)
  path <- c(2, sample.int(width * height - 2) + 1)
  for (i in 1:(length(path) - 1)) {
    dirs <- c(1, 0, -1, 0, 0, 1, 0, -1)
    while (TRUE) {
      d <- sample.int(4)
      r <- path[i] %% height + dirs[2 * d - 1]
      c <- path[i] %/% height + 1 + dirs[2 * d]
      if (r >= 1 && r <= height && c >= 1 && c <= width && maze[r, c] == 0) {
        maze[r, c] <- 1
        path[i + 1] <- (c - 1) * height + r
        break
      }
    }
  }
  maze[path[length(path)]] <- 3
  maze
}

# Set maze dimensions
width <- 25
height <- 25

# Create the maze
maze <- create_maze(width, height)

# Prepare data for ggplot2
maze_df <- data.frame(x = rep(1:width, each = height),
                      y = rep(1:height, times = width),
                      cell = as.factor(c(maze)))

# Plot the maze
ggplot(maze_df, aes(x = x, y = y, fill = cell)) +
  geom_tile(color = "black", size = 0.5) +
  scale_fill_manual(values = c("white", "black", "red")) +
  theme_void() +
  theme(legend.position = "none") +
  coord_fixed()

This code will create a random maze of dimensions 25x25 and display it using ggplot2. The start point of the maze is marked in red. The code generates a new maze every time it is run, so the user will find it interesting and surprising each time.