범례 심볼과 라벨을 R의 다른 행에 어떻게 플롯 할 수 있습니까?

Question

나는 밑줄 기호를 수평으로 밑줄을 그려 넣으려고하고 다음 기호는 기호 옆에 그려 놓으려고합니다. 범례는 여백에 플롯됩니다 (예제 데이터에는 포함되지 않음). legend() 함수로 이것을 해결하기 위해 그래픽 매개 변수를 사용하는 방법이 있습니까? 그렇지 않으면 텍스트 레이블을 시도하지만보다 관리하기 쉬운 방법을 선호합니다.

나는이 예제 데이터가 있습니다

plot(c(1,2,3,4,5), c(1,2,3,4,5), xlim=c(0,5), ylim=c(0,5), main = "", xlab = "", ylab = "") 

legendEntries <- c(0.05, 0.1, 0.15, 0.2, 0.25) # which values in legend 
legendSizes <- sqrt(legendEntries/pi) * 10 # calculate pch size 
legend(1, 2, title="", horiz = T, legend=legendEntries, col="black", pch=rep(21,5), 
    pt.bg = "#ff166c", pt.cex = legendSizes, bty = "n") 

을 그리고이 같은 것을 만들려면 :

감사합니다!

폴

(편집 : 텍스트 및 추가 정보에 추가 사진)

Answer 1

별도로 플롯 포인트 수와 텍스트입니다.

뭔가 같은 :

# Make the basic plot 
    plot(c(1,2,3,4,5), c(1,2,3,4,5), xlim=c(0,5), ylim=c(0,5), main = "", xlab = "", ylab = "") 
    # set up the legend entries and sizes 
    legendEntries <- c(0.05, 0.1, 0.15, 0.2, 0.25) # which values in legend 
    legendSizes <- sqrt(legendEntries/pi) * 10 # calculate pch size 

# plot the legend points 
    points(y = rep(1, 5), x = seq(3,4, 0.25), pch = 21, cex = sqrt(legendEntries/pi) * 10, 
      bg = "#ff166c") 
# plot the text 
    text(y = rep(0.7, 5), x = seq(3,4, 0.25), 
     labels = legendEntries) 

(여백에 예) 플롯 영역의 외부 플로팅를 들어, xpd = TRUE으로 XPD ​​매개 변수를 사용할 수 있습니다

plot(c(1,2,3,4,5), c(1,2,3,4,5), xlim=c(0,5), ylim=c(0,5), main = "", xlab = "", ylab = "") 

legendEntries <- c(0.05, 0.1, 0.15, 0.2, 0.25) # which values in legend 
legendSizes <- sqrt(legendEntries/pi) * 10 # calculate pch size 

points(y = rep(-0.8, 5), x = seq(1,2, 0.25), pch = 21, cex = sqrt(legendEntries/pi) * 10, 
     bg = "#ff166c", xpd = TRUE) 
text(y = rep(-1, 5), x = seq(1,2, 0.25), 
    labels = legendEntries, xpd = TRUE)