Warning: file_get_contents(/data/phpspider/zhask/data//catemap/4/r/71.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
qgraph:节点处的多个图像_R_R Lavaan_R Qgraph - Fatal编程技术网

qgraph:节点处的多个图像

qgraph:节点处的多个图像,r,r-lavaan,r-qgraph,R,R Lavaan,R Qgraph,我最近一直在使用R中的lavan软件包进行结构方程建模,并使用semPlot软件包生成路径图,该软件包似乎借鉴了qgraph 我发现qgraph支持将图像(如jpeg和png)打印为节点 我的问题是,是否可能,如果可能,如何为路径图中的每个节点绘制不同的图像。我希望能够使用研究项目的图片来填写路径图上的清单变量。谢谢 感谢您查看semPlot(它仍处于非常发展的状态)。你当然可以这样做。事实上,semPlot背负qgraph,实际上它基本上是qgraph的前端,并返回qgraph对象。您可以向q

我最近一直在使用R中的
lavan
软件包进行结构方程建模,并使用
semPlot
软件包生成路径图,该软件包似乎借鉴了
qgraph

我发现
qgraph
支持将图像(如jpeg和png)打印为节点


我的问题是,是否可能,如果可能,如何为路径图中的每个节点绘制不同的图像。我希望能够使用研究项目的图片来填写路径图上的清单变量。谢谢

感谢您查看semPlot(它仍处于非常发展的状态)。你当然可以这样做。事实上,semPlot背负qgraph,实际上它基本上是qgraph的前端,并返回qgraph对象。您可以向qgraph发送参数,也可以使用不同的参数再次绘制结果。例如:

library("lavaan")

# Example 5.8 from mplus user guide:
Data <- read.table("http://www.statmodel.com/usersguide/chap5/ex5.8.dat")
names(Data) <- c(paste("y", 1:6, sep=""),
                 paste("x", 1:3, sep=""))

# Model:
model.Lavaan <- 'f1 =~ y1 + y2 + y3
f2 =~ y4 + y5 + y6
f1 + f2 ~ x1 + x2 + x3 '

# Run Lavaan:
library("lavaan")
fit <- lavaan:::cfa(model.Lavaan, data=Data, std.lv=TRUE)

# Download R logo:
download.file("http://cran.r-project.org/Rlogo.jpg", file <- tempfile(fileext = ".jpg"), 
              mode = "wb")

# Plot path diagram and store qgraph object:
Graph <- semPaths(fit,title=FALSE, curvePivot = TRUE)

# plot qgraph again with images:
qgraph(Graph, images = file, labels = FALSE)

感谢您查看semPlot(它仍处于非常发展的状态)。你当然可以这样做。事实上,semPlot背负qgraph,实际上它基本上是qgraph的前端,并返回qgraph对象。您可以向qgraph发送参数,也可以使用不同的参数再次绘制结果。例如:

library("lavaan")

# Example 5.8 from mplus user guide:
Data <- read.table("http://www.statmodel.com/usersguide/chap5/ex5.8.dat")
names(Data) <- c(paste("y", 1:6, sep=""),
                 paste("x", 1:3, sep=""))

# Model:
model.Lavaan <- 'f1 =~ y1 + y2 + y3
f2 =~ y4 + y5 + y6
f1 + f2 ~ x1 + x2 + x3 '

# Run Lavaan:
library("lavaan")
fit <- lavaan:::cfa(model.Lavaan, data=Data, std.lv=TRUE)

# Download R logo:
download.file("http://cran.r-project.org/Rlogo.jpg", file <- tempfile(fileext = ".jpg"), 
              mode = "wb")

# Plot path diagram and store qgraph object:
Graph <- semPaths(fit,title=FALSE, curvePivot = TRUE)

# plot qgraph again with images:
qgraph(Graph, images = file, labels = FALSE)

非常感谢!我还有一个问题,我对这个问题很陌生。假设我想导入自己的jpeg文件(不是下载文件),那么使用jpeg包的readJPEG然后从图形包中使用光栅图像是最简单的方法还是有更好的方法?您应该只提供图像的文件名/路径。这里的下载只是为了提供一个示例,请注意,
qgraph
调用中使用的
file
,它只是一个链接到临时文件的字符串。非常感谢!我还有一个问题,我对这个问题很陌生。假设我想导入自己的jpeg文件(不是下载文件),那么使用jpeg包的readJPEG然后从图形包中使用光栅图像是最简单的方法还是有更好的方法?您应该只提供图像的文件名/路径。这里的下载只是为了提供一个示例,请注意
file
,它在
qgraph
调用中使用,只是一个链接到临时文件的字符串。