Unemployment from Rate in South Africa

library(tidyverse) library(plotly) library(DT)

mydata <- data.frame( Year = 2018:2024, Population = c(55.0, 56.1, 57.2, 58.0, 58.8, 59.4, 60.1), Unemployment = c(27.5, 28.0, 29.1, 32.6, 34.0, 32.9, 31.2) ) plot_ly( data = mydata, x = ~Year, y = ~Unemployment, type = “scatter”, mode = “lines+markers” ) DT::datatable(mydata)