我尝试在rpy2中使用cba算法进行分类但是我发现了这个错误:

回溯(最近的呼叫最后):

文件“”,第1行,在runfile中('D:/dm.py',wdir ='D:')

在runfile execfile(filename,namespace)中的文件“C:\ ProgramData \ Anaconda2 \ lib \ site-packages \ spyder \ utils \ site \ sitecustomize.py”,第880行

文件“C:\ ProgramData \ Anaconda2 \ lib \ site-packages \ spyder \ utils \ site \ sitecustomize.py”,第87行,在execfile exec中(compile(scripttext,filename,'exec'),glob,loc)

文件“D:/dm.py”,第104行,c_p = class_pred.pred_class_on_test(c,dtest)

文件"C:\ProgramData\Anaconda2\lib\site-packages\rpy2\robjects\functions.py",第178行,在 call 返回super(SignatureTranslatedFunction,self) . call (* args,** kwargs)

文件"C:\ProgramData\Anaconda2\lib\site-packages\rpy2\robjects\functions.py",第106行,在 call res = super(功能,自我) . call (* new_args,** new_kwargs)

RRuntimeError:.local(x,...)中的错误:x中的所有项目标签必须包含在“itemLabels”或“match”中 .

码:

import os
os.environ['R_HOME'] = 'C:/Program Files/R/R-3.5.1'
os.environ['R_USER'] = 'C:/ProgramData/Anaconda2/Lib/site-packages/rpy2'


import rpy2.robjects as rr
#to import any r backage
from rpy2.robjects.packages import importr
# to call any r user defiend function  from pythn string
from rpy2.robjects.packages import SignatureTranslatedAnonymousPackage as stap
# to convert to / from python/r dataframe
from rpy2.robjects import pandas2ri
pandas2ri.activate()

base = importr('base')

# read data set python
from sklearn.cross_validation import train_test_split 
import pandas as pd 
data= pd.read_csv("C://Users//El-Amir Tech//Desktop//tumor.csv")

print(data.info())

data=data.astype(str)

train,test=train_test_split(data, test_size=0.2, random_state=20)





# to convert python data frame to r data frame
dd=pandas2ri.py2ri(train)
dtest=pandas2ri.py2ri(test)

# data minin association rule function from r
rs=importr('arules')
clas=importr('arulesCBA')
rstring=""" 
 # generate rules

ruless <- function (d){

da<- as.data.frame(d)

trans <- as(da, "transactions")

# to get rhs=outcome only
incom <- grep("^Class=",itemLabels(trans), value=TRUE)

rules <- apriori(trans, parameter = list(supp = 0.01, conf = 0.8,minlen=2, target = "rules"),appearance=list(rhs=incom))
return (rules)
}

# convert rules to data frame

rule2dataframe<-function(r){
n<-DATAFRAME(r,separate=TRUE)
return (n)
}
# apply cba classifier

classf <- function (rs){
c1<- CBA_ruleset(Class~ ., rs)
return (c1)
}


pred_class_on_test <- function(classifir,dtest) {
d<- as.data.frame(dtest)
results <- predict(classifir, d)

return(results)}

"""
# call r function using stap
rule= stap(rstring,"ruless")
m=rule.ruless(dd)

r2d=stap(rstring,"rule2dataframe")
r=r2d.rule2dataframe(m)

## convert rules r dataframe to pandas dataframe
rules=pandas2ri.ri2py_dataframe(r)
print (rules)

classs=stap(rstring,"classf")
c=classs.classf(m)
print c

class_pred=stap(rstring,"pred_class_on_test")

c_p=class_pred.pred_class_on_test(c, dtest)
print c_p

那我怎么能解决这个错误呢? data set link :