小编Rud*_*son的帖子

我想替换匹配特定模式的字符串中的每个字符.请使用以下字符串

mystring <- c("000450")

我希望将所有单个零匹配到第一个非零的元素.我试过类似的东西

gsub("^0[^1-9]*", "x", mystring)
[1] "x450"

此表达式用一个替换所有前导零x.但相反,我想要替换所有三个前导零xxx.首选的结果是

[1] "xxx450"

谁能帮我吗？

我在使用 R 中提供的 igraph 包时遇到了有关网络可视化的问题。

假设您有一个特定的网络，其中包含节点和边的总样本。让我将这个网络命名为 netX：

netX <- structure(c(1, 0.48275862, 0.51724138, 0.48275862, 0.27906977, 
0.06896552, 0.34482759, 0.32352941, 0.06896552, 0.34482759, 0.03448276, 
0.06896552, 0.20689655, 0.17241379, 0.17241379, 0, 0.23333333, 
0.27586207, 0.21621622, 0.24137931, 0.48275862, 1, 0.4137931, 
0.35714286, 0.25581395, 0.25, 0.25, 0.38235294, 0.07142857, 0.28571429, 
0.21428571, 0.28571429, 0.10714286, 0.07142857, 0.21428571, 0.03571429, 
0.2, 0.32142857, 0.16216216, 0.25, 0.51724138, 0.4137931, 1, 
0.5862069, 0.34883721, 0.06896552, 0.20689655, 0.32352941, 0, 
0.27586207, 0.10344828, 0.06896552, 0.10344828, 0.10344828, 0.13793103, 
0, 0.36666667, 0.24137931, 0.21621622, 0.17241379, 0.48275862, 
0.35714286, 0.5862069, 1, 0.23255814, 0.11538462, 0.23076923, 
0.26470588, 0, 0.30769231, 0.11538462, …

我有一个列表，其中每个元素都是一个矩阵。

set.seed(123)

m1 <- matrix(sample(c(1:10), size = 9, replace = TRUE), ncol = 3, nrow = 3)
m2 <- matrix(sample(c(1:10), size = 9, replace = TRUE), ncol = 3, nrow = 3)
m3 <- matrix(sample(c(1:10), size = 9, replace = TRUE), ncol = 3, nrow = 3)

m <- list(m1, m2, m3)
m
[[1]]
      [,1] [,2] [,3]
[1,]    3    9    6
[2,]    8   10    9
[3,]    5    1    6

[[2]]
     [,1] [,2] [,3]
[1,]    5    7    9
[2,]   10    6 …