저는 학생들이 확률의 변화에 반응하는 동적 오일러 (Venn) 다이어그램을 사용하여 기본 확률 방정식과 표기법을 탐색하고 두 세트의 교차점, 결합, 한 세트의 결합을 역으로 표시 할 수 있도록 반짝이는 앱을 개발하고 있습니다. 다른 등등.
지금까지 오일러로 가장 가깝게 얻을 수 있지만 배경색을 변경하거나 "배경"을 포함하는 세트를 설명하는 방법을 찾고 싶습니다 (예 : (A ⋃ B)의 역) . 해당 다이어그램에 대해 선택한 집합을 흰색으로 나타낼 수 있지만 일관성을 유지하는 것이 좋습니다.
나는을 사용해 보았지만 par(bg = 'blue')
오일러의 플롯에 영향을 미치지 않는 것으로 보이며 문서에 아무것도없는 것 같습니다.
해결 방법이나 매개 변수가 누락되었거나 가능하지 않습니까?
다른 패키지를 사용해도 좋습니다.
A⋂B 예시 :
library("eulerr")
fit <- euler(c("A" = 10, "B" = 5, "A&B" = 3))
plot(fit, fills = c(FALSE, FALSE, TRUE), labels = list(col = "red", font = 4))
배경색 변경이 작동하는 경우 B의 역을 설명하는 예입니다.
fit <- euler(c("A" = 10, "B" = 5, "A&B" = 3))
par(bg = 'blue')
plot(fit,
fills = c("blue", "white", "white"),
labels = list(col = "black", font = 4))
출력이 그리드 객체이므로 그리드 라이브러리를 살펴 보겠습니다. 예제를 참조하십시오.
library(grid)
# plot, assign to object
x <- plot(fit,
fills = c("blue", "white", "white"),
labels = list(col = "black", font = 4), bg = "blue")
# now use grid
grid.newpage()
# background is red
grid.draw(rectGrob(gp = gpar(fill = "red")))
# now add eulerr plot
grid.draw(x)
또는 배경 인수가 있으므로 png로 출력합니다 . 여기서는 설명을 위해 배경을 빨간색으로 설정합니다.
png("test.png", bg = "red")
plot(fit,
fills = c("blue", "white", "white"),
labels = list(col = "black", font = 4))
dev.off()
두 솔루션 모두 아래 이미지를 출력합니다.
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다