제목에서 알 수 있듯이 : 기본 그래픽을 사용할 때 플로팅 영역 외부에 범례를 플로팅하려면 어떻게해야합니까?
나는 layout범례 만 포함하고 빈 플롯을 만들어내는 것에 대해 생각 했지만 기본 그래프 기능 만 사용하는 방법에 관심이있을 것 par(mar = )입니다.
예를 들면 다음과 같습니다.
plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch = 2, lty = 2, type="o")
legend(1,-1,c("group A", "group B"), pch = c(1,2), lty = c(1,2))
생산 :
그러나 말했듯이 범례가 플로팅 영역 밖에 있어야합니다 (예 : 그래프 / 플롯의 오른쪽).
답변
아마도 필요한 것은 par(xpd=TRUE)플롯 영역 외부에 물건을 그릴 수있게하는 것입니다. 메인 플롯을 사용 bty='L'하면 오른쪽에 범례를위한 공간이 생깁니다. 일반적으로 이것은 플롯 영역에 잘리지 만 par(xpd=TRUE)약간의 조정만으로도 가능한 한 범례를 얻을 수 있습니다.
set.seed(1) # just to get the same random numbers
par(xpd=FALSE) # this is usually the default
plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2), bty='L')
# this legend gets clipped:
legend(2.8,0,c("group A", "group B"), pch = c(1,2), lty = c(1,2))
# so turn off clipping:
par(xpd=TRUE)
legend(2.8,-1,c("group A", "group B"), pch = c(1,2), lty = c(1,2))
답변
에 inset대해 음수 값을 사용한다고 언급 한 사람은 없습니다 legend. 다음은 범례가 플롯의 오른쪽에 있고 키워드를 사용하여 상단에 정렬 된 예 "topright"입니다.
# Random data to plot:
A <- data.frame(x=rnorm(100, 20, 2), y=rnorm(100, 20, 2))
B <- data.frame(x=rnorm(100, 21, 1), y=rnorm(100, 21, 1))
# Add extra space to right of plot area; change clipping to figure
par(mar=c(5.1, 4.1, 4.1, 8.1), xpd=TRUE)
# Plot both groups
plot(y ~ x, A, ylim=range(c(A$y, B$y)), xlim=range(c(A$x, B$x)), pch=1,
main="Scatter plot of two groups")
points(y ~ x, B, pch=3)
# Add legend to top right, outside plot region
legend("topright", inset=c(-0.2,0), legend=c("A","B"), pch=c(1,3), title="Group")
inset=c(-0.2,0)범례의 너비에 따라 첫 번째 값을 조정해야 할 수도 있습니다.
답변
이미 언급 한 ( layout또는 사용 par(xpd=TRUE)) 외에 다른 해결책 은 전체 장치에 대해 플롯을 투명 플롯으로 오버레이 한 다음 범례를 추가하는 것입니다.
트릭은 전체 플로팅 영역에 (빈) 그래프를 오버레이하고 범례를 추가하는 것입니다. par(fig=...)옵션을 사용할 수 있습니다 . 먼저 전체 플로팅 장치에 대해 새로운 플롯을 만들도록 R에 지시합니다.
par(fig=c(0, 1, 0, 1), oma=c(0, 0, 0, 0), mar=c(0, 0, 0, 0), new=TRUE)플롯의 내부가 전체 장치를 커버하도록 설정 oma하고 mar필요합니다. new=TRUER이 새로운 장치를 시작하지 못하도록해야합니다. 그런 다음 빈 줄거리를 추가 할 수 있습니다.
plot(0, 0, type='n', bty='n', xaxt='n', yaxt='n')그리고 범례를 추가 할 준비가되었습니다 :
legend("bottomright", ...)기기의 오른쪽 하단에 범례를 추가합니다. 마찬가지로 범례를 상단 또는 오른쪽 여백에 추가 할 수 있습니다. 우리가 보장해야 할 유일한 것은 원래 줄거리의 마진이 범례를 수용하기에 충분히 크다는 것입니다.
이 모든 것을 함수에 넣는 것;
add_legend <- function(...) {
opar <- par(fig=c(0, 1, 0, 1), oma=c(0, 0, 0, 0),
mar=c(0, 0, 0, 0), new=TRUE)
on.exit(par(opar))
plot(0, 0, type='n', bty='n', xaxt='n', yaxt='n')
legend(...)
}
그리고 예입니다. 먼저 하단에 범례를 추가하기에 충분한 공간이 있는지 확인하는 플롯을 만듭니다.
par(mar = c(5, 4, 1.4, 0.2))
plot(rnorm(50), rnorm(50), col=c("steelblue", "indianred"), pch=20)
그런 다음 범례를 추가하십시오
add_legend("topright", legend=c("Foo", "Bar"), pch=20,
col=c("steelblue", "indianred"),
horiz=TRUE, bty='n', cex=0.8)
를 야기하는:
답변
오래된 스레드를 부활 시켜서 죄송하지만 오늘 같은 문제가있었습니다. 내가 찾은 가장 간단한 방법은 다음과 같습니다.
# Expand right side of clipping rect to make room for the legend
par(xpd=T, mar=par()$mar+c(0,0,0,6))
# Plot graph normally
plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch = 2, lty = 2, type="o")
# Plot legend where you want
legend(3.2,1,c("group A", "group B"), pch = c(1,2), lty = c(1,2))
# Restore default clipping rect
par(mar=c(5, 4, 4, 2) + 0.1)
여기에서 찾을 수 있습니다 : http://www.harding.edu/fmccown/R/
답변
나는 다음과 같이하고 싶다 :
par(oma=c(0, 0, 0, 5))
plot(1:3, rnorm(3), pch=1, lty=1, type="o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch=2, lty=2, type="o")
legend(par('usr')[2], par('usr')[4], bty='n', xpd=NA,
c("group A", "group B"), pch=c(1, 2), lty=c(1,2))
범례를 수용 할 수 있도록 오른쪽 여백을 넓게 설정해야합니다.
그러나 이것은 또한 자동화 될 수 있습니다 :
dev.off() # to reset the graphics pars to defaults
par(mar=c(par('mar')[1:3], 0)) # optional, removes extraneous right inner margin space
plot.new()
l <- legend(0, 0, bty='n', c("group A", "group B"),
plot=FALSE, pch=c(1, 2), lty=c(1, 2))
# calculate right margin width in ndc
w <- grconvertX(l$rect$w, to='ndc') - grconvertX(0, to='ndc')
par(omd=c(0, 1-w, 0, 1))
plot(1:3, rnorm(3), pch=1, lty=1, type="o", ylim=c(-2, 2))
lines(1:3, rnorm(3), pch=2, lty=2, type="o")
legend(par('usr')[2], par('usr')[4], bty='n', xpd=NA,
c("group A", "group B"), pch=c(1, 2), lty=c(1, 2))
답변
최근에 원하는 플롯 영역 외부에서 범례를 인쇄하는 매우 쉽고 재미있는 기능을 발견했습니다.
플롯의 오른쪽에 외부 여백을 만듭니다.
par(xpd=T, mar=par()$mar+c(0,0,0,5))줄거리 만들기
plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch = 2, lty = 2, type="o")범례를 추가하고 아래와 같이 locator (1) 함수를 사용하십시오. 그런 다음 스크립트를로드 한 후 원하는 위치를 클릭하면됩니다.
legend(locator(1),c("group A", "group B"), pch = c(1,2), lty = c(1,2))시도 해봐
답변
이미 지적한 레이아웃 솔루션의 예만 제공 할 수 있습니다.
layout(matrix(c(1,2), nrow = 1), widths = c(0.7, 0.3))
par(mar = c(5, 4, 4, 2) + 0.1)
plot(1:3, rnorm(3), pch = 1, lty = 1, type = "o", ylim=c(-2,2))
lines(1:3, rnorm(3), pch = 2, lty = 2, type="o")
par(mar = c(5, 0, 4, 2) + 0.1)
plot(1:3, rnorm(3), pch = 1, lty = 1, ylim=c(-2,2), type = "n", axes = FALSE, ann = FALSE)
legend(1, 1, c("group A", "group B"), pch = c(1,2), lty = c(1,2))
