random_values <- tibble::tribble(
  ~title,
  ~value,
  "Sales revenue",
  "$22,456.78",
  "Customer satisfaction",
  "94.5%",
  "Inventory turnover",
  "8/month",
  "Number of employees",
  "75",
  "Website traffic",
  "12,345 visits/day",
  "Customer retention",
  "87%",
  "Average transaction",
  "$56.73",
  "Followers",
  "10,234",
  "Open rate",
  "22.6%",
  "Production efficiency",
  "92%",
  "Project completion",
  "17 days",
  "Employee turnover",
  "10%",
  "Market share",
  "15.2%",
  "ROI",
  "8.3%",
  "Average response time",
  "3.2 seconds",
  "Energy consumption",
  "345 kwh/month",
  "Customer churn",
  "5%",
  "Production defect rate",
  "0.6%",
  "Engagement rate",
  "3.8%",
  "Average wait",
  "4 minutes",
  "Project budget variance",
  "$2,345.67",
  "Employee productivity",
  "95%",
  "Conversion rate",
  "2.5%",
  "Website bounce rate",
  "42%",
  "Revenue growth",
  "+15.2%",
  "Customer loyalty",
  "4.5 out of 5",
  "Product quality",
  "8.9/10",
  "Social media followers",
  "50,000+",
  "Market reach",
  "10.5 million",
  "Employee satisfaction",
  "92.3%",
  "Average order value",
  "$123.45",
  "Website conversion rate",
  "3.6%",
  "Customer support",
  "9.8/10",
  "Productivity index",
  "120%",
  "Customer lifetime value",
  "$5,000",
  "Brand awareness",
  "85%",
  "Time to market",
  "4 weeks",
  "Return on investment",
  "18.5%",
  "Net promoter score",
  "8.2 out of 10",
  "Email click-through rate",
  "12.7%",
  "Supply chain efficiency",
  "92%",
  "Website loading time",
  "2.3 seconds",
  "Cost per acquisition",
  "$25.60",
  "Employee engagement",
  "83%",
  "Innovation index",
  "9.5/10",
  "Customer complaints resolved",
  "98.6%",
  "Market share growth",
  "+2.3%",
  "Production capacity utilization",
  "87%",
  "Website traffic source diversity",
  "5 channels",
  "Brand equity",
  "$1.2 billion",
  "Code Coverage",
  "85%",
  "Lines of Code",
  "46,157",
  "Commits",
  "339",
  "Review Turnaround",
  "2 days",
  "Community Contributors",
  "34",
  "Project Forks",
  "36",
  "Open Issues",
  "87",
  "Open Pull Requests",
  "12",
  "Closed Issues",
  "19",
  "AWS Cloud Spending",
  "$3,463",
  "Diversity Index",
  "0.75",
  "API Response Time",
  "150 ms",
  "Daily Active Users",
  "8,507",
  "Project Stars",
  "5,100",
  "Package Downloads",
  "409,446",
  "Average Response Time",
  "50 ms",
  "Uptime",
  "99.97%",
  "Developer Satisfaction",
  "4.8/5",
  "Project Funding",
  "$2,805"
)

random_title_value <- function() {
  as.list(random_values[sample(nrow(random_values), 1), ])
}
