小编Inf*_*ess的帖子

检查R中的值是否==整数(0)

我正在使用grepR中的函数来检查是否满足条件正则表达式.

我所拥有的是: grep(expression, string)一个例子可能是

   value=  grep("\\s[A-z]", "  ")
   value
Run Code Online (Sandbox Code Playgroud)

哪个输出

整数(0)

我想要做的是检查是否value == integer(0)

如果是,则返回TRUEvalueinteger(0)

如果不是,则返回FALSEvalueinteger(0)

在R中有办法做到这一点吗?如果有其他选择,我愿意接受.例如,grep可能有一个输出结果作为逻辑值的选项,

,或

01或相关的东西.

r vector

7
推荐指数
1
解决办法
1万
查看次数

在 igraph 中组合/合并两个图

我使用 igraph 创建了以下两个图表:

t1terms <- c("fire",
            "people",
            "residents",
            "victims", 
            "affected", 
            "please",
            "can",
            "london",
            "support",
            "survivors")

t1labels <- as.vector(t1terms)

g<-graph.full(n=10, directed = FALSE, loops = FALSE) %>%
  set_vertex_attr("label", value = t1labels)


t2terms <- c("fire",
             "victims",
             "says",
             "people",
             "cladding",
             "police",
             "may",
             "will",
             "dead",
             "theresa")

t2labels <- as.vector(t2terms)

g1<-graph.full(n=10, directed = FALSE, loops = FALSE) %>%
  set_vertex_attr("label", value = t2labels)
Run Code Online (Sandbox Code Playgroud)

我不知道如何在不复制公共节点的情况下合并两个图。我真的很感谢一些帮助。我尝试了“graph.union”,但没有成功。

谢谢你,

恰米尔

r igraph

6
推荐指数
2
解决办法
5468
查看次数

行方式操作,选择助手和dplyr中的mutate函数

我将使用以下数据集来说明我的问题:

my_df <- data.frame(
    a = 1:10,
    b = 10:1
)
colnames(my_df) <- c("a", "b")
Run Code Online (Sandbox Code Playgroud)

第1部分

我使用该mutate()函数在我的数据集中创建两个新变量,我想计算同一mutate()调用中两个新列的行方式.但是,我真的希望能够使用select()帮助器,如starts_with(),ends_with()contains().

我的第一次尝试:

 my_df %>%
    mutate(
        a_2 = a^2,
        b_2 = b^2,
        mean = rowMeans(select(ends_with("2")))
    )
Error in mutate_impl(.data, dots) : 
  Evaluation error: No tidyselect variables were registered.
Run Code Online (Sandbox Code Playgroud)

我理解为什么会出现错误 - select()函数没有给出任何.data参数.所以我改变了代码......

...我.select()函数内添加" "的第二次尝试:

my_df %>%
    mutate(
        a_2 = a^2,
        b_2 = b^2,
        mean = rowMeans(select(., ends_with("2"))) …
Run Code Online (Sandbox Code Playgroud)

select r dplyr mutate rowwise

6
推荐指数
1
解决办法
523
查看次数

转换值列表

我有字符串(我的实际列表清单长):

Animals = ["Dog", "1", "F", "2",
           "Cat", "M",
           "Horse", "40", "D", "9", 
           "Human", "50", "E",
           "Zebra", "50", "4", "P", "A", "19",
           "Dog", "60", "1"]
Run Code Online (Sandbox Code Playgroud)

如果有什么用,我还会列出动物名称本身:

Animal_names = ["Dog", "Cat", "Horse", "Human", "Zebra"]
Run Code Online (Sandbox Code Playgroud)

我想做的就是对此进行转换,以使其变为以下内容(一个列表列表,该列表以动物名开头,并在动物名后面出现并在其后的下一个值出现在Animals_names中之前结束):

[["Dog", "1", "F", "2"],
 ["Cat", "M"],
 ["Horse", "40", "D", "9"], 
 ["Human", "50", "E"],
 ["Zebra", "50", "4", "P", "A", "19"],
 ["Dog", "60", "1"]]
Run Code Online (Sandbox Code Playgroud)

有什么办法可以轻松地做到这一点吗?

python python-3.x

-2
推荐指数
1
解决办法
75
查看次数

标签 统计

r ×3

dplyr ×1

igraph ×1

mutate ×1

python ×1

python-3.x ×1

rowwise ×1

select ×1

vector ×1