[英]Paste0 weird behaviour
不能为我的生活弄清楚为什么会发生这种情况,另一位分析师也对此进行了调查,也感到沮丧。 可能与组合的数量有关,但是我尝试过的变体没有帮助。
下面的语法重新创建了一些用于构建API调用的语法的示例。 我有一个域名列表和一个国家列表,它将它们组合在一起以给出每种组合(即“ bbc.com-英国”,“ bbc.com-西班牙”,“ bbc.com-波兰”。国家/地区代码是2位ISO代码,在下面的示例中,域是随机文本。
由于某些原因,当112个域名与7个国家/地区合并时,每个域名都被赋予一个国家/地区,即“ bbc.com-UK”,“ bbc.com-UK”,“ bbc.com-UK”。如果我加两个如第二个示例所示,它可以在更多国家/地区使用。更改域的数量也可以使其正常工作。
domains <- data.frame(Domain=paste(stri_rand_strings(112, 5, pattern = "[A-Za-z0-9]"),".com"))
###DOES NOT WORK
country <- data.frame(country=rep(c("au","be","fr","nl","pl","ch","us"),nrow(domains)))
###DOES WORK
country <- data.frame(country=rep(c("au","be","fr","nl","pl","ch","us","aa","aa"),nrow(domains)))
APICall <- paste0('https://api.abc.com/website/',domains$Domain,"/start_date=","2017-03",'&end_date=',"2018-02","&country=",country$country)
APICall <- transform(APICall,Domain=gsub(".*website/","",APICall))
APICall$Domain<- gsub("/.*","",APICall$Domain)
APICall <- transform(APICall,Country=strtrim(gsub(".*&country=","",APICall$X_data),2))
APICall <- transform(APICall,Date=strtrim(gsub(".*/start_date=","",APICall$X_data),7))
我有一个解决方法(将两个“ aa”国家/地区加在一起),但我真的很想知道发生了什么...
Sys info:R 3.3.2 R Studio版本1.0.143 OS Sierra 10_12_3
您似乎想创建所有可能的组合,但是当您使用简单的rep()
,不能保证您将创建所有可能的组合。
如果从两个简单的向量开始
domains <- paste(stringi::stri_rand_strings(112, 5, pattern = "[A-Za-z0-9]"),".com")
countries <- c("au","be","fr","nl","pl","ch","us")
您可以使用expand.grid
获得所有可能的组合
expand.grid(domains, countries)
或者,如果你正在使用tidyr
从tidyverse
包
tidyr::crossing(domains, countries)
仅使用rep()
不会给出所有组合。 例如
x <- letters[1:10]
y <- rep(letters[21:25], length(x))
comb <- paste(x,y)
注意
length(comb)
# [1] 50
length(unique(comb))
# [1] 10
因此,那里有很多重复项。 如果一个向量长度可以被另一个向量整除,则重复将在另一个向量期间内重复,您将无法获得所有可能的组合
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.