如何在R中自定义哈斯图？

Question

为研究论文绘制偏序哈斯图。希望从 hasseDiagram 包中自定义 hasse() 函数的输出，但不确定如何实现。我已经查看了引擎盖下的情况，但不清楚我可以在哪里设置驱动参数：

1. 标签颜色
2. 箭头大小和形状

有什么想法吗？

示例：

library("hasseDiagram")
test_data <- generateRandomData(20, 3, 0.5)
hasse(test_data)

Answer 1

有

R

包调用

Rgraphviz

来绘制像这样的哈斯图。

install.packages("multiplex") # CRAN.R-project.org/package=multiplex
packageVersion("multiplex")
#[1] ‘3.3.2’

创建没有

dimnames

的测试数据:

set.seed(321)
test_data <- runif(100, 0, 1) |> matrix(nrow=10, ncol=10) |> round()
      [,1] [,2] [,3] [,4] [,5] [,6] [,7] [,8] [,9] [,10]
 [1,]    1    1    1    0    1    1    0    1    0     1
 [2,]    1    0    1    1    0    0    0    0    0     0
 [3,]    0    1    1    1    0    0    1    0    1     1
 [4,]    0    0    0    1    1    0    0    1    1     1
 [5,]    0    1    1    1    1    1    1    1    1     1
 [6,]    0    0    1    0    0    1    0    1    0     1
 [7,]    0    1    1    1    0    0    1    0    1     1
 [8,]    0    0    0    0    1    0    1    1    1     1
 [9,]    0    0    0    1    0    0    0    1    1     0
[10,]    1    1    1    1    0    1    0    0    1     0

假设

test_data

表示偏序结构，绘制哈斯图。

require("multiplex")
hasse(test_data)

可以添加自定义标签、形状和颜色：

test_data |> 
hasse(shape="ellipse", lbs=paste0("a",1:10), ecol=7, lwd=3, col=4, col0=7, main="Hasse", bg=8)

可用参数可通过

?hasse

和

?diagram

找到。