Question

我有以下数据框。

head(graph_data, n = 15)
   source target
1   Ohrid СКОПЈЕ
2   Ohrid СКОПЈЕ
3   Ohrid СКОПЈЕ
4   Ohrid СКОПЈЕ
5   Ohrid СКОПЈЕ
6   Ohrid СКОПЈЕ
7   Ohrid СКОПЈЕ
8   Ohrid СКОПЈЕ
9   Ohrid СКОПЈЕ
10  Ohrid СКОПЈЕ
11  Ohrid СКОПЈЕ
12  Ohrid СКОПЈЕ
13  Ohrid СКОПЈЕ
14  Ohrid СКОПЈЕ
15  Ohrid СКОПЈЕ

我编写了以下函数来自动化使用源过滤最多匹配的过程。

top_connections <- function(data, city, top_n) {
  temp <- filter(data, source == city)
  temp2 <- as.data.frame(table(temp$target))  
  temp2 <- arrange(temp2, desc(Freq))
  temp2 <- temp2[1:top_n, ]
  temp3 <- as.data.frame(unique(temp2$Var1))
  colnames(temp3)[1] <- "top_connecitons" 

  #works fine until here

  temp4 <- subset(temp, source %in% temp3[, "top_connecitons"])

   return(temp4)
}

我遇到的唯一问题是使用仅存在于temp4中的值来对临时文件进行子集化。

结果是一个零行的数据框，而它应该包含到过滤城市的前15个目标连接。

函数调用：

test1 <- top_connections(graph_data, "Skopje", top_n = 15)

我知道哪里弄错了？

更新：

数据链接：https://github.com/stefan-jovanovski/predictive_modeling/blob/master/graph_encoding_fixed.xlsx

环境：

search()
 [1] ".GlobalEnv"         "package:networkD3" 
 [3] "package:data.table" "package:DT"        
 [5] "package:corrplot"   "package:scales"    
 [7] "package:dplyr"      "package:purrr"     
 [9] "package:readr"      "package:tidyr"     
[11] "package:tibble"     "package:tidyverse" 
[13] "package:ggthemes"   "package:ggplot2"   
[15] "package:readxl"     "package:lubridate" 
[17] "tools:rstudio"      "package:stats"     
[19] "package:graphics"   "package:grDevices" 
[21] "package:utils"      "package:datasets"  
[23] "package:methods"    "Autoloads"         
[25] "package:base"

Answer 1

graph_data < data.frame(source=c("Paris","Berlin","Paris","London","Munich"),target=c("Amsterdam","Paris","Paris","Brighton","Paris"),stringsAsFactors = F)

top_connections <- function(data, city, top_n) {
  temp <- dplyr::filter(data,source==city)

  temp2 <- as.data.frame(table(temp$target))  
  temp2 <- dplyr::arrange(temp2, desc(Freq))
  temp2 <- temp2[1:top_n, ]
  temp3 <- as.data.frame(unique(temp2$Var1))
  colnames(temp3)[1] <- "top_connecitons"   
  temp4 <- subset(temp, source %in% temp3[, "top_connecitons"]) 
  return(temp4)
}

试一试：

  top_connections(graph_data,"Paris",2)
  source    target
1  Paris Amsterdam
2  Paris     Paris

在％in％范围内的子集中进行子设置

1 个答案: