- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
我正在尝试在 R
中绘制 Dewey 和 Lu (1959) 建议的路径分析的输出。
require(agricolae)
require(Hmisc)
data(wilt)
data(soil)
x<-soil[,c(3,12,14,20)]
y<-wilt[,14]
data <- cbind(y,x)
#Correlation of independant variables
cor.x <- rcorr(as.matrix(x))$r
#Correlation of dependant variable with all the independant variables
cor.y <- as.data.frame(t(subset(rcorr(as.matrix(cbind(y,x)))$r, select = c(y))))[,-1]
#Path Analysis
Path <- path.analysis(cor.x,cor.y)
#Direct Effects
diag(Path$Coeff)
#Residual Effects
Path$Residual
我想绘制自变量对因变量y
的直接影响以及因变量之间的相关性以及残差效应,如下所示。
我尝试过semPlot
和path.diagram {sem}
和qgraph.lavaan
,但它们只绘制模型。 pathdiagram
不绘制边缘标签(路径系数和相关性)。如何在R
中做到这一点?
这是我使用“diagram”包所得到的信息。
par(mar = c(1, 1, 1, 1))
openplotmat()
# Get plot coordinates
elpos <- coordinates (c(2, length(cor.y)))
# adjust coordinates for Residual
elpos[2,1] <- abs((elpos[1,1]+elpos[1,2])/2)
#Specify Arrow positions
#1 Residual to Dependent
ft1 <- matrix(ncol = 2, byrow = TRUE, data = c(1, 2))
#2 Independent to dependent
ft2 <- matrix(ncol=2, byrow = FALSE,
data= c(seq((2+length(cor.y)))[3:(length(cor.y)+2)], rep(2, length(cor.y))))
#3 For cor.x
fromto_CU <- t(combn(seq((2+length(cor.y)))[3:(length(cor.y)+2)],2))
#4 For path distances
fromto_ST <- rbind(ft1,ft2)
# Plot Path distance arrows
nr <- nrow(fromto_ST)
arrpos <- matrix(ncol = 2, nrow = nr)
for (i in 1:nr)
arrpos[i, ] <- straightarrow (to = elpos[fromto_ST[i, 2], ],
from = elpos[fromto_ST[i, 1], ],
lwd = 2, arr.pos = 0.6, arr.length = 0.5)
#Label residual path distance arrow
text(arrpos[1, 1], arrpos[1, 2] + 0.05,
paste("P", "X", nrow(cor.x)+1," = ", round(Path$Residual, 2), sep=""), cex=0.6)
#Label path distance arrows
nr <- nrow(arrpos)
for(i in 2:nr){
text(arrpos[i, 1], arrpos[i, 2] + 0.05,
paste("P", "X", i-1," = ", round(diag(Path$Coeff)[i-1], 2), sep=""), cex=0.6)
}
# Plot correlation arrows direction 1
nr <- nrow(fromto_CU)
arrpos <- matrix(ncol = 2, nrow = nr)
for (i in 1:nr)
arrpos[i, ] <- curvedarrow (to = elpos[fromto_CU[i, 2], ],
from = elpos[fromto_CU[i, 1], ],
lwd = 2, arr.pos = 0.8, arr.length = 0.5, curve = 0.35)
# Plot correlation arrows - direction 2
nr <- nrow(fromto_CU)
arrpos <- matrix(ncol = 2, nrow = nr)
for (i in 1:nr)
arrpos[i, ] <- curvedarrow (to = elpos[fromto_CU[i, 1], ],
from = elpos[fromto_CU[i, 2], ],
lwd = 2, arr.pos = 0.8, arr.length = 0.5, curve = -0.35)
# Create combinations of cor.x for labelling rxy in correlation arrows
rcomb <- as.data.frame(t(combn(seq(nrow(cor.x)),2)))
rcomb <- paste(rcomb$V1,rcomb$V2, sep="")
# Label correlation arrows
nr <- nrow(fromto_CU)
arrpos <- matrix(ncol = 2, nrow = nr)
for (i in 1:nr)
arrpos[i, ] <- curvedarrow (to = elpos[fromto_CU[i, 1], ],
from = elpos[fromto_CU[i, 2], ],
lwd = 2, arr.pos = 0.5, lcol = "transparent", arr.length = 0.5, curve = -0.35)
nr <- nrow(arrpos)
for(i in 1:nr){
text(arrpos[i, 1], arrpos[i, 2] + 0.05,
paste("r", "X", rcomb[i]," = ", round(as.dist(cor.x)[i], 2), sep=""), cex=0.6)
}
# Label Residual
textrect (elpos[1,], 0.09, 0.03,lab = "Residual", box.col = "white",
shadow.col = "grey", shadow.size = 0.005, cex = 1)
# Label Dependent
textrect (elpos[2,], 0.09, 0.03,lab = attributes(y)$class, box.col = "white",
shadow.col = "grey", shadow.size = 0.005, cex = 1)
# Label independents
nr <- nrow(elpos)
for (i in 3:nr){
textrect (elpos[i,], 0.09, 0.03,lab = colnames(x)[i-2], box.col = "white",
shadow.col = "grey", shadow.size = 0.005, cex = 1)
}
我需要一些帮助
1) 在diagram
中以水平布局进行绘制,以便该图看起来像第一个图
2) 绘制箭头标签中的下标,例如 PX5、r12、r34 等。表达式的组合所用循环中的
和 paste
返回索引符号本身,而不是索引元素。
最佳答案
从长远来看,您可能会发现使用 text
等工具会更快。将文本放置在绘图上您想要的位置。我不知道使用哪些参数来定义带有“P25 = -0.37”和类似标签的对角线,但假设您确实知道每条线的坐标(例如端点),您可以使用 plotrix:radialtext
.
关于r - 将杜威和卢路径分析结果绘制为 R 中的路径图,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/24364665/
我刚刚继承了一个旧的 PostgreSQL 安装,需要进行一些诊断以找出该数据库运行缓慢的原因。在 MS SQL 上,您可以使用 Profiler 等工具来查看正在运行的查询,然后查看它们的执行计划。
将目标从Analytics(分析)导入到AdWords中,然后在Analytics(分析)中更改目标条件时,是否可以通过更改将目标“重新导入”到AdWords,还是可以自动选择? 最佳答案 更改目标值
我正在使用google analytics api来获取数据。我正在获取数据,但我想验证两个参数,它们在特定日期范围内始终为0。我正在获取['ga:transactions']和['ga:goalCo
我使用Google API从Google Analytics(分析)获取数据,但指标与Google Analytics(分析)的网络界面不同。 即:我在2015年3月1日获得数据-它返回综合浏览量79
我在我的Web应用程序中使用sammy.js进行剔除。我正在尝试向其中添加Google Analytics(分析)。我很快找到了following plugin来实现页面跟踪。 我按照步骤操作,页面如
当使用 Xcode 分析 (product>analyze) 时,有没有办法忽略给定文件中的任何错误? 例如编译指示之类的? 我们只想忽略第三方代码的任何警告,这样当我们的代码出现问题时,它对我们
目录 EFK 1. 日志系统 2. 部署ElasticSearch 2.1 创建handless服务 2.2 创建s
关闭。这个问题不满足Stack Overflow guidelines .它目前不接受答案。 想改善这个问题吗?更新问题,使其成为 on-topic对于堆栈溢出。 7年前关闭。 Improve thi
GCC/G++ 是否有可用于输出分析的选项? 能够比较以前的代码与新代码之间的差异(大小、类/结构的大小)将很有用。然后可以将它们与之前的输出进行比较以进行比较,这对于许多目的都是有用的。 如果没有此
我正在浏览 LYAH,并一直在研究处理列表时列表理解与映射/过滤器的使用。我已经分析了以下两个函数,并包含了教授的输出。如果我正确地阅读了教授的内容,我会说 FiltB 的运行速度比 FiltA 慢很
在 MySQL 中可以使用 SET profiling = 1; 设置分析 查询 SHOW PROFILES; 显示每个查询所用的时间。我想知道这个时间是只包括服务器的执行时间还是还包括将结果发送到前
我用 Python 编写了几个用于生成阶乘的模块,我想测试运行时间。我找到了一个分析示例 here我使用该模板来分析我的模块: import profile #fact def main():
前几天读了下mysqld_safe脚本,个人感觉还是收获蛮大的,其中细致的交代了MySQL数据库的启动流程,包括查找MySQL相关目录,解析配置文件以及最后如何调用mysqld程序来启动实例等,有着
1 内网基础 内网/局域网(Local Area Network,LAN),是指在某一区域内有多台计算机互联而成的计算机组,组网范围通常在数千米以内。在局域网中,可以实现文件管理、应用软件共享、打印机
1 内网基础 内网/局域网(Local Area Network,LAN),是指在某一区域内有多台计算机互联而成的计算机组,组网范围通常在数千米以内。在局域网中,可以实现文件管理、应用软件共享、打印机
我有四列形式的数据。前三列代表时间,value1,value 2。第四列是二进制,全为 0 或 1。当第四列中对应的二进制值为0时,有没有办法告诉excel删除时间、值1和值2?我知道这在 C++ 或
我正在运行一个进行长时间计算的 Haskell 程序。经过一些分析和跟踪后,我注意到以下内容: $ /usr/bin/time -v ./hl test.hl 9000045000050000 Com
我有一个缓慢的 asp.net 程序正在运行。我想分析生产服务器以查看发生了什么,但我不想显着降低生产服务器的速度。 一般而言,配置生产盒或仅本地开发盒是标准做法吗?另外,您建议使用哪些程序来实现这一
我目前正在尝试分析 Haskell 服务器。服务器永远运行,所以我只想要一个固定时间的分析报告。我尝试只运行该程序 3 分钟,然后礼貌地要求它终止,但不知何故,haskell 分析器不遵守术语信号,并
是否有工具可以分析 Maven 构建过程本身,以便我可以看到构建花费最多时间的地方? 我们在工作中遇到了关于 Maven 3.0.3 和 3.0b1 的问题。与 3.0.3 (9m00s) 相比,我们
我是一名优秀的程序员,十分优秀!