我正在开发一个闪亮的应用程序,让学生使用动态欧拉(Venn)图探索基本的概率方程和表示法,以响应概率的变化并显示两个集合的交集,并集,一个集合的并集与另一个的倒数,依此类推。
到目前为止,我发现我可以使用eulerr获得最接近的结果,但是我希望能够更改背景颜色,或者希望找到一种方法来说明包含“背景”的集合,例如(A⋃B)的倒数。我可以用白色代表这些图的选定集合,但我希望保持一致。
我尝试使用par(bg = 'blue')
,但这似乎对eulerr中的plot没有影响,并且文档中似乎没有任何内容。
我是否缺少某些解决方法或参数,或者这是不可能的吗?
我也很乐意使用其他软件包。
说明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))
答案 0 :(得分:0)
由于输出是 grid 对象,因此我将探索 grid 库,请参见示例:
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()
两种解决方案都将在图像下方输出: