如何將1-0 Excel Excel文件轉換為R作為二進制矩陣？

Question

我從excel csv文件中獲得了1-0矩陣數據，用於市場購物籃分析以應用關聯規則。 但是，程序找不到任何規則。 可能它將0和1讀取為字符串。 當我將它們轉換為數字時，該程序會出錯並且無法再次生成任何規則。

如何將其轉換為二進制變量以便在關聯規則查找中使用？

  > y <- read.transactions("C:/Users/toshıba pc/Desktop/2009.csv")
    Warning message:
    In asMethod(object) : removing duplicated items in transactions
    > rules <- apriori(y, parameter=list(supp=0.1, conf=0.8))
    Apriori

    Parameter specification:
     confidence minval smax arem  aval originalSupport maxtime support minlen maxlen target   ext
            0.8    0.1    1 none FALSE            TRUE       5     0.1      1     10  rules FALSE

    Algorithmic control:
     filter tree heap memopt load sort verbose
        0.1 TRUE TRUE  FALSE TRUE    2    TRUE

    Absolute minimum support count: 52 

    set item appearances ...[0 item(s)] done [0.00s].
    set transactions ...[553 item(s), 521 transaction(s)] done [0.00s].
    sorting and recoding items ... [0 item(s)] done [0.00s].
    creating transaction tree ... done [0.00s].
    checking subsets of size 1 done [0.00s].
    writing ... [0 rule(s)] done [0.00s].
    creating S4 object  ... done [0.00s].

> rules <- apriori(y, parameter=list(supp=0.01, conf=0.8))
Apriori

Parameter specification:
 confidence minval smax arem  aval originalSupport maxtime support minlen maxlen target   ext
        0.8    0.1    1 none FALSE            TRUE       5    0.01      1     10  rules FALSE

Algorithmic control:
 filter tree heap memopt load sort verbose
    0.1 TRUE TRUE  FALSE TRUE    2    TRUE

Absolute minimum support count: 5 

set item appearances ...[0 item(s)] done [0.00s].
set transactions ...[553 item(s), 521 transaction(s)] done [0.00s].
sorting and recoding items ... [0 item(s)] done [0.00s].
creating transaction tree ... done [0.00s].
checking subsets of size 1 done [0.00s].
writing ... [0 rule(s)] done [0.00s].
creating S4 object  ... done [0.00s].
> enter image description here

Answer 1

作為一般建議，我建議在read.transactions指定更多參數以反映給定csv文件的詳細信息，例如分隔符，列等。可能需要一些csv文件處理以反映read.transactions期望。

> args(read.transactions)
function (file, format = c("basket", "single"), sep = "", cols = NULL, 
    rm.duplicates = FALSE, quote = "\"'", skip = 0, encoding = "unknown") 
NULL

功能文檔：

> ?read.transactions

Answer 2

mba_mat = read_xls(address, sheet = "Sheet1") # rows are transactions, columns are items
mba_trans = as(as.matrix(mba_mat), "transactions") # converting to transactions
class(mba_trans)   #class is transactions