eigenvalues

library(Matrix)

library(ggplot2)

A <- matrix(c(1+2i, 3+4i, 5+6i, 7+8i), nrow = 2, byrow = TRUE)

eigenvalues <- eigen(A)$values

print(eigenvalues)

## [1]  8.8845984+10.7323034i -0.8845984- 0.7323034i

eigen_df <- data.frame(Re = Re(eigenvalues), Im = Im(eigenvalues))

ggplot(eigen_df, aes(x = Re, y = Im)) +
  geom_point(size = 4, color = "purple") +
  labs(x = "Real", y = "Imaginary") +
  theme_minimal()