r - 不同的颜色节点并删除 visNetwork 中的标签
问题描述
试图在 R 中可视化网络,我有一个边和节点列表。节点列表如下所示 - “id”、“label”和“type”:
我想根据节点的类型为节点着色。到目前为止,我通过嵌入 if 语句进行了尝试,但这似乎不起作用。
visNetwork(nodes, edges) %>%
visIgraphLayout(layout = "layout_in_circle") %>%
visNodes(label = NULL,(
if (nodes$type ="gimn") {
color= "slategrey"
} else if (nodes$type ="szakgimn") {
color="pink"
} else if (nodes$type ="ált_isk") {
color="black"
} else {
color ="tomato"
})) %>%
visEdges(arrows = "middle")
如何根据节点类型为节点分配颜色?另外如何从情节中删除标签?(上面的代码似乎也不适用于此。)
解决方案
我想您可以尝试使用嵌套ifelse
来根据类型定义颜色,如下所示
visNetwork(nodes, edges) %>%
visIgraphLayout(layout = "layout_in_circle") %>%
visNodes(
label = NULL,
color = ifelse(nodes$type == "gimn",
"slategrey",
ifelse(nodes$type == "szakgimn",
"pink",
ifelse(nodes$type == "alt_isk",
"black", "tomato"
)
)
)
) %>%
visEdges(arrows = "middle")
另一种方法是在使用管道之前添加color
到,例如,nodes
nodes$color <- ifelse(nodes$type == "gimn",
"slategrey",
ifelse(nodes$type == "szakgimn",
"pink",
ifelse(nodes$type == "alt_isk",
"black", "tomato"
)
)
)
visNetwork(nodes, edges) %>%
visIgraphLayout(layout = "layout_in_circle") %>%
visEdges(arrows = "middle")
推荐阅读
- sql - 如何在 MS Access 中将字段更改为 SSN 格式(###-##-####)?
- twitter-bootstrap-3 - Bootstrap 表和 Bootstrap 4 支持
- reactjs - 如何向 TablePagination ActionComponent 添加自定义道具?
- jquery - jquery 插件 - asRange / 我要竖条
- c++ - 如何在 C++ 中覆盖向量的运算符
- asp.net - 如何在web api中的get和delete方法中传递相同的参数和方法名
- html - 单击该帖子广告上的回复按钮后,如何使相应的 div 可见?
- android - 根据旧密码更新密码。SQLite 数据库安卓
- angularjs - 错误:未指定的错误。在 Angular js 中添加 localStorage.setItem 时
- goland - GoLand 文件缓存冲突