r - 有没有办法改变背景颜色或输入集的反色?
问题描述
我正在开发一个闪亮的应用程序,让学生使用动态欧拉(维恩)图来探索基本概率方程和符号,以响应概率的变化并显示两组的交集,并集,一组的并集与倒数其他的等等。
到目前为止,我发现我可以使用 eulerr 获得最接近的结果,但我希望能够更改背景颜色或以其他方式找到一种方法来说明包含“背景”的集合,例如 (A ⋃ B) 的倒数. 我可以让白色代表这些图表的选定集,但我更愿意保持一致。
我尝试使用par(bg = 'blue')
,但这似乎对 eulerr 中的绘图没有影响,并且文档中似乎没有任何内容。
我是否缺少一些解决方法或参数,或者这是不可能的?
我也很乐意使用不同的包。
说明 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()
两种解决方案都会输出下图:
推荐阅读
- python - 在python中将日期从字符串转换为所需的日期时间格式
- database - 我无法判断这是关联实体还是关系?
- html - HTML:似乎不能同时使用“pattern=”和“list=”?
- r - 有没有办法反过来做类似 align.time() 的事情?
- django - 如何在 django 的文本内容中使用循环值
- firefox - Firefox 开发工具绘制闪烁视图:不同颜色代表什么?
- r - 对于 R 数据框中的一列,即使一个值不是 NA,然后用该值替换所有 NA?
- android - Google VR 示例构建失败并出现空指针异常
- php - 如何防止ajax运行同一个php文件的多个实例?
- php - 获取未定义的索引:甚至定义了索引