Hi @Gokul,
How's this for a first quick attempt? You can change what point is the "centroid" of the plot for whatever makes sense in your application.
library(tidyverse)
set.seed(12345)
data <- tibble(
x = runif(20, 0, 10),
y = runif(20, 0, 10)
)
# sample one point to be the centroid of the hub
centroid <- sample_n(data, 1)
data %>%
ggplot(aes(x, y)) +
geom_point() +
geom_segment(aes(x = centroid$x, y = centroid$y,
xend = x, yend = y)) +
theme_minimal()

Created on 2020-04-04 by the reprex package (v0.3.0)