- html - 出于某种原因,IE8 对我的 Sass 文件中继承的 html5 CSS 不友好?
- JMeter 在响应断言中使用 span 标签的问题
- html - 在 :hover and :active? 上具有不同效果的 CSS 动画
- html - 相对于居中的 html 内容固定的 CSS 重复背景?
这个问题是对我之前提出的一个不清楚的问题的改编。我正在逐行检查列 V1 和 V2 是否有公共(public)代码。代码由正斜杠“/”分隔。下面的函数应该从同一行的 V1 中取出一个单元格,从 V2 中取出一个单元格,并将它们转换为向量。矢量的每个元素都是一个代码。然后该函数应检查获得的两个向量是否具有共同元素。这些元素最初是 4 位代码。如果两个向量之间有任何匹配的 4 位代码,则函数应返回 4。如果没有共同元素,则函数应减少每个代码的位数,然后再次检查。每次该函数减少位数时,它也会减少最后返回的分数。我希望将函数返回的值写入我选择的列中。
这是我的起始条件
structure(list(ID = c(2630611040, 2696102020, 2696526020), V1 = c("7371/3728",
"2834/2833/2836/5122/8731", "3533/3541/3545/5084"), V2 = c("7379",
"3841", "3533/3532/3531/1389/8711")), .Names = c("ID", "V1",
"V2"), class = "data.frame", row.names = c(NA, 3L))
ID V1 V2
1 2630611040 7371/3728 7379
2 2696102020 2834/2833/2836/5122/8731 3841
3 2696526020 3533/3541/3545/5084 3533/3532/3531/1389/8711
我想得到这个
ID V1 V2 V3
1 2630611040 7371/3728 7379 3
2 2696102020 2834/2833/2836/5122/8731 3841 0
3 2696526020 3533/3541/3545/5084 3533/3532/3531/1389/8711 4
我的功能是这样的
coderelat<-function(a, b){
a<-unique(as.integer(unlist(str_split(a, "/")))) #Transforming cells into vectors of codes
b<-unique(as.integer(unlist(str_split(b, "/"))))
a<-a[!is.na(a)]
b<-b[!is.na(b)]
if (length(a)==0 | length(b)==0) { # Check that both cells are not empty
ir=NA
return(ir)
} else {
for (i in 3:1){
diff<-intersect(a, b) # See how many products the shops have in common
if (length(diff)!=0) { #As you find a commonality, give ir the corresponding scoring
ir=i+1
break
} else if (i==1 & length(diff)==0) { #If in the last cycle, there is still no commonality put ir=0
ir=0
break
} else { # If there is no commonality and you are not in the last cycle, reduce the nr. of digits and re-check commonality again
a<- unique(as.integer(substr(as.character(a), 1, i)))
b<- unique(as.integer(substr(as.character(b), 1, i)))
}
}
}
return(ir)
}
当我手动提供单个电池时,该功能有效。但是当我这样写时它不起作用:
df$V4<-coderelat(df$V1, df$V2)
我真的很感谢任何帮助,因为我不知道如何让它工作。
非常感谢。里卡多
最佳答案
这是一个使用 data.tables 的解决方案。
get.match <-function(a,b) {
A <- unique(strsplit(a,"/",fixed=TRUE)[[1]])
B <- unique(strsplit(b,"/",fixed=TRUE)[[1]])
for (i in 4:1) if(length(intersect(substr(A,1,i),substr(B,1,i)))>0) return(i)
return(0L)
}
library(data.table)
setDT(df)[,V3:=get.match(V1,V2),by=ID]
df
# ID V1 V2 V3
# 1: 2630611040 7371/3728 7379 3
# 2: 2696102020 2834/2833/2836/5122/8731 3841 0
# 3: 2696526020 3533/3541/3545/5084 3533/3532/3531/1389/8711 4
关于r - 如何将适用于 data.frame 单元格的函数应用于 data.frame 列,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/27049001/
我在我的 Xcode 项目目录中输入了以下内容: keytool -genkey -v -keystore release.keystore -alias mykey -keyalg RSA \
假设我有一个像这样的 DataFrame(或 Series): Value 0 0.5 1 0.8 2 -0.2 3 None 4 None 5 None
我正在对一个 Pandas 系列进行相对繁重的应用。有什么方法可以返回一些打印反馈,说明每次调用函数时在函数内部进行打印还有多远? 最佳答案 您可以使用跟踪器包装您的函数。以下两个示例,一个基于完成的
我有一个 DataFrame,其中一列包含列表作为单元格内容,如下所示: import pandas as pd df = pd.DataFrame({ 'col_lists': [[1, 2
我想使用 Pandas df.apply 但仅限于某些行 作为一个例子,我想做这样的事情,但我的实际问题有点复杂: import pandas as pd import math z = pd.Dat
我有以下 Pandas 数据框 id dist ds 0 0 0 0 5 1 0 0 7 2 0 0
这发生在我尝试使用 Gradle 构建时。由于字符串是对象,因此似乎没有理由发生此错误: No signature of method: java.util.HashMap.getOrDefault(
您好,有人可以解释为什么在 remaining() 函数中的 Backbone 示例应用程序 ( http://backbonejs.org/examples/todos/index.html ) 中
我有两个域类:用户 class User { String username String password String email Date dateCreated
问题陈述: 一个 pandas dataframe 列系列,same_group 需要根据两个现有列 row 和 col 的值从 bool 值创建。如果两个值在字典 memberships 中具有相似
apporable 报告以下错误: error: unknown type name 'MKMapItem'; did you mean 'MKMapView'? MKMapItem* destina
我有一个带有地址列的大型 DataFrame: data addr 0 0.617964 IN,Krishnagiri,635115 1 0.635428 IN,Chennai
我有一个列表list,里面有这样的项目 ElementA: Number=1, Version=1 ElementB: Number=1, Version=2 ElementC: Number=1,
我正在编译我的源代码,它只是在没有运行应用程序的情况下终止。这是我得到的日志: Build/android-armeabi-debug/com.app4u.portaldorugby/PortalDo
我正在尝试根据另一个单元格的值更改单元格值(颜色“红色”或“绿色”)。我运行以下命令: df.loc[0, 'Colour'] = df.loc[0, 'Count'].apply(lambda x:
我想弄清楚如何使用 StateT结合两个 State基于对我的 Scalaz state monad examples 的评论的状态转换器回答。 看来我已经很接近了,但是在尝试申请 sequence
如果我已经为它绑定(bind)了集合,我该如何添加 RibbonLibrary 默认的快速访问项容器。当我从 UI 添加快速访问工具项时,它会抛出 Operation is not valid whi
在我学习期间Typoclassopedia我遇到了这个证明,但我不确定我的证明是否正确。问题是: One might imagine a variant of the interchange law
我是一名优秀的程序员,十分优秀!