小编moa*_*t21的帖子

以下代码生成一个很好的网络图:

library(igraph);library(visNetwork);library(dplyr)

set.seed(123)
nnodes <- 10
nnedges <- 20

nodes <- data.frame(id = 1:nnodes)
edges <- data.frame(from = sample(1:nnodes, nnedges, replace = T),
                    to = sample(1:nnodes, nnedges, replace = T))

visNetwork(nodes, edges) %>%
  visIgraphLayout(layout = "layout_in_circle") %>%
  visNodes(shape="circle") %>% 
  visOptions(highlightNearest = list(enabled = T, hover = T), nodesIdSelection = T)

我的问题是:如何禁用从相邻节点离开的边缘(例如,当选择节点8时,我不希望显示从3到9的边缘).

编辑:添加了库,thx for poining that out

对于复制条目,我想使用以下语法:

insert into TABLE select * from TABLE where ...

但是,由于第一列是自动增量主键,因此该值必须不同.我的解决方法是指定select查询中的所有字段,而不是使用星号,然后将主键字段留空.由于我的表有超过30个字段,不幸的是不断变化,我正在寻找一个我可以在脚本中实现的解决方案,并且在表结构更改时不需要修改.有任何想法吗？非常感谢你!

我想填补两条水平线上方和下方的区域.

这就是我想出的:

 par(mfrow=c(1,2))
 x<-seq(1,24,1)
 y<-rnorm(24, 10, 2)

 for(i in 1:2) {
 plot(x,y,ylim=c(4,16))
 lines(x,y)
 abline(h=11)
 abline(h=9)}

 hyper<-y
 hyper[hyper<11]<-11
 polygon(x,hyper,col="gray")

我的主要问题是与水平线的交叉不正确.

我想找到并提取字符串中最长的单词,如果可能的话使用tidyverse包.

library(tidyverse)

tbl <- tibble(a=c("ab cde", "bcde f", "cde fg"), b=c("cde", "bcde", "cde"))
tbl
# A tibble: 3 x 1
   a
<chr>
1 ab cde
2 bcde f
3 cde fg

我要找的结果是:

# A tibble: 3 x 2
   a     b
  <chr> <chr>
1 ab cde   cde
2 bcde f  bcde
3 cde fg   cde

我发现的问题的最接近的帖子是:字符串中最长的单词.有没有人有一个更简单的方法的想法？

有很多关于如何使用SQL获得分组最小或最大的帖子.但是你如何在R中做到这一点？

比方说,您有以下数据框

ID | t | value
a | 1 | 3
a | 2 | 5
a | 3 | 2
a | 4 | 1
a | 5 | 5
b | 2 | 2
b | 3 | 1
b | 4 | 5

对于每个ID,我不想要min t,而是min t处的值.

ID | value
a | 3
b| 2