R：轉換電子郵件地址爲唯一整數

Question

[R初學者用什麼似乎是一個非常簡單的問題： 我有一些電子郵件的日誌，我已經在格式讀入R：

>log1 
    Date  Time   From     To 
1 2000-01-01 00:00:00 bob@mail.com   test1@mail.com 
2 2000-01-02 01:00:00 carolyn @mail.com  test2@mail.com 
3 2000-01-03 02:00:00 chris@mail.com   test3@mail.com 
4 2000-01-04 03:00:00 chris @mail.com   test4@mail.com 
5 2000-01-05 04:00:00 alan@mail.com   test5@mail.com 
6 2000-01-06 05:00:00 alan.@mail.com   test6@mail.com 

我需要要將log1 $ From和log1 $ To更改爲全局唯一數字標識符，以便稍後在其他日誌中讀取任何給定電子郵件地址時將收到與先前日誌相同的標識符。

我曾嘗試：

id <- as.numeric(as.character(log1[,3]))) 
id<-as.numeric(levels(log1[,3]))) 
id <- charToRaw(log1[,4]), base=16) 

會某種靈魂請幫我 - 謝謝！

道歉或許應該已經包括此：

Date=c("01/01/2000" ,"02/01/2000" ,"03/01/2000", "04/01/2000" ,"05/01/2000" ,"06/01/2000","07/01/2000","08/01/2000", 
    "09/01/2000","10/01/2000","11/01/2000", "12/01/2000" ,"13/01/2000", "14/01/2000", "15/01/2000","16/01/2000" 
    ,"17/01/2000","18/01/2000","19/01/2000","20/01/2000","01/01/2000","02/01/2000") 
    Time=c("00:00:00","01:00:00","02:00:00", "03:00:00" ,"04:00:00" ,"05:00:00", "06:00:00" ,"07:00:00", "08:00:00", "09:00:00" ,"10:00:00", 
    "11:00:00", "12:00:00","13:00:00", "14:00:00","15:00:00","16:00:00","17:00:00","18:00:00","19:00:00","00:00:00" ,"00:00:00") 
    From=c("bob.shults@mail.com","carolyn.green@mail.com","chris.long@mail.com","christi.nicolay@mail.com","alan.aronowitz@mail.com","alan.comnes@mail.com", 
    "dab@sprintmail.com","ana.correa@mail.com","andrew.fastow@mail.com","elena.kapralova@mail.com","bob.shults@mail.com","carolyn.green@mail.com", 
    "chris.long@mail.com","christi.nicolay@mail.com","alan.aronowitz@mail.com","alan.comnes@mail.com","dab@sprintmail.com","ana.correa@mail.com", 
    "andrew.fastow@mail.com","elena.kapralova@mail.com","bob.shults@mail.com","bob.shults@mail.com") 
    To=c("ana.correa@mail.com","test2@mail.com","test3@mail.com","test4@mail.com","test5@mail.com","test6@mail.com","test7@mail.com", 
    "test8@mail.com","test9@mail.com","test10@mail.com","test11@mail.com","test12@mail.com","test13@mail.com","test14@mail.com", 
    "test15@mail.com","test16@mail.com","test17@mail.com","test18@mail.com","test19@mail.com","test20@mail.com","ana.correa@mail.com","ana.correa@mail.com") 
    log<-data.frame(Date=Date,Time=Time,From=From,To=To) 

在嘗試使用MD5生成全局唯一標識符：注意ana.correa@mail.com標識符是如何內ID_to正確的比賽，但不在範圍在水平/因子方法ID_from

ID_to<-data.frame() 
    ID_from<-data.frame() 

    for (i in 1:nrow(log)){ 
    to<-as.numeric(paste('0x', substr(rep(hmac('secret',log[i,4], algo='md5'), 2), c(1, 9, 17, 25), c(8, 16, 24, 32)),sep="")) 
    (ID_to<-rbind(ID_to,to)) 

    from<-as.numeric(paste('0x', substr(rep(hmac('secret',log[i,3], algo='md5'), 2), c(1, 9, 17, 25),c(8, 16, 24, 32)),sep="")) 
    (ID_from<-rbind(ID_from,from)) 

    } 

    ID_to[,3]<-paste(ID_to[,1],ID_to[,2], sep="") 
    ID_from[,3]<-paste(ID_from[,1],ID_from[,2], sep="") 

    edgelist<-data.frame(ID_from[,3],log[,3],ID_to[,3],log[,4],log[,1],log[,2]) 
    print(edgelist) 
    ID_from...3.     log...3.   ID_to...3.   log...4. log...1. log...2. 
    27488842661591306920  bob.shults@mail.com 18727221862165338513 ana.correa@mail.com 01/01/2000 00:00:00 
    38124472891255273775 carolyn.green@mail.com 1251903296725454474  test2@mail.com 02/01/2000 01:00:00 
    29070047663451376630  chris.long@mail.com 17074276751156451031  test3@mail.com 03/01/2000 02:00:00 
    8261398433828474582 christi.nicolay@mail.com 1563683670909194033  test4@mail.com 04/01/2000 03:00:00 
    18727221862165338513 alan.aronowitz@mail.com 26735368323826533112  test5@mail.com 05/01/2000 04:00:00 
    5680838251168988404  alan.comnes@mail.com 2923605896229594830  test6@mail.com 06/01/2000 05:00:00 
    2351312285811012730  dab@sprintmail.com 17171333544033270402  test7@mail.com 07/01/2000 06:00:00 
    328278708432069254  ana.correa@mail.com 33840664403556851587  test8@mail.com 08/01/2000 07:00:00 
    1127901879852039037 andrew.fastow@mail.com 1973548136161209824  test9@mail.com 09/01/2000 08:00:00 
    7349515121496417787 elena.kapralova@mail.com 5680838251168988404  test10@mail.com 10/01/2000 09:00:00 
    27488842661591306920  bob.shults@mail.com 328278708432069254  test11@mail.com 11/01/2000 10:00:00 
    38124472891255273775 carolyn.green@mail.com 1127901879852039037  test12@mail.com 12/01/2000 11:00:00 
    29070047663451376630  chris.long@mail.com 27488842661591306920  test13@mail.com 13/01/2000 12:00:00 
    8261398433828474582 christi.nicolay@mail.com 38124472891255273775  test14@mail.com 14/01/2000 13:00:00 
    18727221862165338513 alan.aronowitz@mail.com 29070047663451376630  test15@mail.com 15/01/2000 14:00:00 
    5680838251168988404  alan.comnes@mail.com 8261398433828474582  test16@mail.com 16/01/2000 15:00:00 
    2351312285811012730  dab@sprintmail.com 2351312285811012730  test17@mail.com 17/01/2000 16:00:00 
    328278708432069254  ana.correa@mail.com 7349515121496417787  test18@mail.com 18/01/2000 17:00:00 
    1127901879852039037 andrew.fastow@mail.com 41762759923562968495  test19@mail.com 19/01/2000 18:00:00 
    7349515121496417787 elena.kapralova@mail.com 24894056753582090007  test20@mail.com 20/01/2000 19:00:00 
    27488842661591306920  bob.shults@mail.com 18727221862165338513 ana.correa@mail.com 01/01/2000 00:00:00 
    27488842661591306920  bob.shults@mail.com 18727221862165338513 ana.correa@mail.com 02/01/2000 00:00:00 

嘗試：

獲得一個錯誤：

log <- union(levels(log[,3]), levels(log[,4])) 
>Error in emails[, 3] : incorrect number of dimensions 

Answer 1

您需要爲日誌中的每封電子郵件創建唯一的ID。一種方法是計算每封電子郵件的crc校驗和，並將其用作標識符，但數字會很長。或者你可以在R中實現一個HashMap，並將該電子郵件作爲HashMap的關鍵字。

Answer 2

您可以使用MD5生成全局唯一標識符，因爲它的衝突概率非常低，但由於其輸出爲128位，因此需要一些數字來表示它（32位R中有4個整數，兩個整數在64位R中）。不過，這應該很容易處理使用短數字向量。

這裏是你如何生成的電子郵件地址這樣的四個整數向量（或任何其他字符串爲此事）：

library(digest) 
email <- 'test1@gmail' 
as.numeric(paste('0x', substr(rep(hmac('secret56f8a7', email, algo='md5'), 4), c(1, 9, 17, 25), c(8, 16, 24, 32)), sep='')) 

你可以使用algo='crc32'和只獲得一個整數，但是這個ISN我們不建議這樣做，因爲碰撞比CRC更有可能。

Answer 3

我認爲這會做你想要什麼，這是有效的，你可以只使用基礎包做...

步驟：

1.Convert的兩列因素

2.以完全相同的方式聯合因素級別，以便每個電子郵件在因素級別中都有唯一的ID。

3.將每列中的條目更改爲與其因子級別對應的數字。因此，我們可以通過簡單地在兩欄中查找「1」來識別「test1@gmail.com」發送和接收電子郵件的時間。

log1$From <- as.factor(log1$From) 
log1$To <- as.factor(log1$To) 
emails <- union(levels(log1$From), levels(log1$To)) 
levels(log1$From) <- emails 
levels(log1$To) <- emails 
log1$From <- as.numeric(log1$From) 
log1$To <- as.numeric(log1$To) 

如我在這裏所做的那樣，保留原始電子郵件地址的記錄可能是一個好主意。然後，如果你有興趣，比如發送哪些郵件test1@gmail.com：

log1[log1$From == which(emails == "test1@gmail.com"), ] 

應該這樣做！你可以編寫一個程序，使它看起來更清潔...