This data from Most used programming languages among developers worldwide as of 2024

library(plotly)
library(dplyr)

# Create a data frame
language_data <- data.frame(
  Language = c("JavaScript", "Python", "SQL", "Java", "R"),
  Popularity = c(62.3, 52.9, 51, 30.3, 4.3)
)


# Make a plot with plotly
fig <- plot_ly(language_data, x = ~Language, y = ~Popularity, type = 'bar',
               marker = list(color = 'skyblue')) %>%
  layout(
    title = "Comparison of Programming Languages",
    xaxis = list(title = "Programming Language"),
    yaxis = list(title = "Usage (%)")
  )

fig