x_value <-
c
(12,23,43,61,78,54,34,76,58)
y_value <-
c
(12,54,34,76,54,23,43,61,78)
radius <-
c
(1,5,13,8,12,3,2,16,7)
label <-
c
(
"Label1"
,
"Label2"
,
"Label3"
,
"label4"
,
"label5"
,
"label6"
,
"label7"
,
"label8"
,
"label9"
)
sample_data <-
data.frame
( x_value, y_value, radius, label)
library
( ggplot2 )
ggplot
( data = sample_data,
aes
( x=x_value, y=y_value,
size=radius, color=label ) )+
geom_point
(alpha=0.4)+
scale_size
(range =
c
(1,13) )+
geom_text
(
aes
(label=label), nudge_y= -3, nudge_x= -2)+
theme
(legend.position =
"none"
)