经常使用RI时,会收到错误消息"下标超出范围".例如:
# Load necessary libraries and data
library(igraph)
library(NetData)
data(kracknets, package = "NetData")
# Reduce dataset to nonzero edges
krack_full_nonzero_edges <- subset(krack_full_data_frame, (advice_tie > 0 | friendship_tie > 0 | reports_to_tie > 0))
# convert to graph data farme
krack_full <- graph.data.frame(krack_full_nonzero_edges)
# Set vertex attributes
for (i in V(krack_full)) {
for (j in names(attributes)) {
krack_full <- set.vertex.attribute(krack_full, j, index=i, attributes[i+1,j])
}
}
# Calculate reachability for each vertix
reachability <- function(g, m) {
reach_mat = matrix(nrow …Run Code Online (Sandbox Code Playgroud) 我使用如下的corrplot,但你可以看到我需要放大圆圈内的数字的字体大小,然后情节标题不是正确的位置和字体大小(不完全可见)但我找不到他们的参数.如果你能提供帮助,我将不胜感激.
library(corrplot)
png(height=1200, width=1200, file="overlap.png")
col1 <-rainbow(100, s = 1, v = 1, start = 0, end = 0.9, alpha = 1)
test <- matrix(data=c(20:60),nrow=7,ncol=7)
corrplot(test,tl.cex=3,title="Overlaps Between methods",
method="circle",is.corr=FALSE,type="full",
cl.lim=c(10,100),cl.cex=2,addgrid.col="red",
addshade="positive",col=col1, diag=FALSE,
addCoef.col = rgb(0,0,0, alpha = 0.6)
)
dev.off()
Run Code Online (Sandbox Code Playgroud)
