library(tidyverse)
library(ggrepel)
# Sample data on a copy/paste friendly format
McDonalds_Restaurants <- structure(list(Company_Name = c("McDonalds", "Starbucks", "Jack in the Box",
"Yum Brands", "Restaurant Brands", "Chipotle Mexican Grill",
"Wendy's", "Domino's", "Papa John's", "Dunkin Brands"), Employee_Count = c(205000,
349000, 5200, 34000, 6300, 83000, 13300, 13000, 16500, 1700),
Revenues_in_bn = c(21, 23.5, 1, 5.5, 5.6, 5.402, 1.3, 3.6,
1.6, 1.3)), row.names = c(NA, -10L), class = c("tbl_df",
"tbl", "data.frame"))
# Relevant code
McDonalds_Restaurants %>%
ggplot(aes(x = Revenues_in_bn, y = Employee_Count)) +
geom_point(size = 5, color = "#0099f9") +
geom_label_repel(aes(label = Company_Name), size = 3.5, max.overlaps = 3000)

Created on 2021-05-23 by the reprex package (v2.0.0)