library(ggplot2)
website_review <- data.frame(
area = c("Navigation", "CTA Visibility", "Mobile Usability",
"Trust Content", "Location Clarity", "Consultation Flow"),
score = c(4, 3, 4, 3, 2, 3)
)
ggplot(website_review, aes(x = reorder(area, score), y = score)) +
geom_col() +
coord_flip() +
labs(
x = NULL,
y = "Illustrative Score (1–5)",
title = "Example of a Structured Website Review"
) +
theme_minimal()