Создайте легенду для участка пузыря с помощью команды «символы»

Question

Я делаю участок пузыря с использованием «символов», и я хотел бы иметь легенду за пределами области графика, показывающую индекс размеров пузырьков (аналогично какой ggplot будет производить). Я хотел бы придерживаться символов и избегать ggplot.

Мои данные:

V1<-c(1,10,30,22,22,20) 
V2<-c(4,17,4,33,33.2,15) 
V3<-c(20,20,15,34,33,30) 
V4<-c("A","A","A","B","B","B") 
DF<-data.frame(V1,V2,V3,V4) 

Мой участок без легенды:

symbols(DF$V1,DF$V2,circles=V3,inches=0.35,fg="darkblue",bg="red") 
text(DF$V1,DF$V2+c(0, 0, 0, 1, -1,0),V4,cex=0.5) 

А вот пример использования ggplot. Я надеюсь создать легенду, похожую на ту, что в этом сюжете, и использовать ее с приведенным выше кодом символов.

library(ggplot2)  
ggplot(DF,aes(x=V1,y=V2,size=V3,label=V4),legend=FALSE) + 
    geom_point(color='darkblue', 
       fill="red", shape=21) + 
    theme_bw() + 
    geom_text(size=5) 

Answer 1

что-то вроде:

symbols(DF$V1,DF$V2, circles = V3, inches = 0.35, fg = "darkblue", bg = "red") 
text(DF$V1, DF$V2 + c(0, 0, 0, 1, -1,0), V4, cex = 0.5) 

legend(
    "topright", 
    legend=c("15", "20", "25", "30"), 
    pch = 21, 
    bty = "n", 
    col = "black", 
    pt.bg = "red",   
    pt.cex = c(0.5,1,1.5,2) 
    )  

# thanks to at @Josh O'Brien for pt.cex