View source: R/digram.object.R
as_tbl_graph.digram.object | R Documentation |
Create a tidygraph object from a digram.object
as_tbl_graph(do)
do |
A digram.object. |
LD |
A data.frame with columns for item1, item2 and gamma coefficient. Items can be variable.names, variable.columns or item numbers. |
DIF |
A data.frame with columns for item, exogenous variable and gamma coefficient. Items and exogenous variables can be variable.names, variable.columns or item numbers. |
summarize.testlets |
If true, don't collapse testlets, but summarize number of local dependent item pairs (both ways) in each testlet. |
Returns a tbl_graph
tidygraph::as_tbl_graph()
library(ggraph)
library(tidygraph)
dograph<-as_tbl_graph(DHP)
ggraph(dograph,layout="fr")+geom_edge_link()+geom_node_label(mapping = aes(label=label))
ggraph(dograph,layout="fr")+geom_edge_link()+geom_node_label(mapping = aes(label=name))
# Show arrows
ggraph(dograph,layout="fr")+geom_edge_link(end_cap = square(.5, 'cm'),arrow = arrow(angle=10,length=unit(.2,"cm")))+geom_node_label(mapping = aes(label=label))
# A digram.object with a testlet
dograph<-as_tbl_graph(code.testlet(DHP,"a b c"))
ggraph(dograph,layout="fr")+geom_edge_link(end_cap = square(.5, 'cm'),arrow = arrow(angle=10,length=unit(.2,"cm")))+geom_node_label(mapping = aes(label=label))
# Local dependecy and DIF
dograph<-as_tbl_graph(DHP,LD=data.frame(item1=c(5,3),item2=c(6,5),gamma=c(.53,-.38)),DIF=data.frame(item=c(4),exo=c(8),gamma=c(.27)))
ggraph(dograph,layout="fr")+geom_edge_link(mapping=aes(label=ifelse(!is.na(gamma),abs(gamma),""),alpha=ifelse(!is.na(gamma),gamma,1),color=ifelse(!is.na(gamma),2,1)),angle_calc="along",label_dodge=unit(.25,"cm"),end_cap = square(.5, 'cm'),arrow = arrow(angle=10,length=unit(.2,"cm")))+geom_node_label(mapping = aes(label=label))
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.