% Generated by roxygen2: do not edit by hand
% Please edit documentation in R/visualization.R
\name{plot_variance_explained}
\alias{plot_variance_explained}
\title{Plot Variance Explained (PCA)}
\usage{
plot_variance_explained(variance_tbl, threshold = 0.8)
}
\arguments{
\item{variance_tbl}{Variance tibble from tidy_pca}

\item{threshold}{Horizontal line for variance threshold
(default: 0.8 for 80\%)}
}
\value{
A \code{\link[ggplot2]{ggplot}} object.
}
\description{
Create combined scree plot showing individual and cumulative variance
}
\examples{
\donttest{
model <- tl_model(iris[, 1:4], method = "pca")
plot_variance_explained(model$fit$variance_explained)
}
}
