7

2 つのデータ フレームがあります。

df.1 <- data.frame(loc = c('A','B','C','C'), person = c(1,2,3,4), str = c("door / window / table", "window / table / toilet / vase ", "TV / remote / phone / window", "book / vase / car / chair"))

したがって、

  loc person                             str
1   A      1           door / window / table
2   B      2 window / table / toilet / vase 
3   C      3    TV / remote / phone / window
4   C      4       book / vase / car / chair

と、

df.2 <- data.frame(loc = c('A','B','C'), str = c("book / chair / chair", " table / remote / vase ", "window"))

与える、

  loc                     str
1   A    book / chair / car
2   B  table / remote / vase 
3   C                  window

locで編集df.1$percentage中の要素のパーセンテージを計算する変数を作成したい、または:df.1$strdf.2$str 

  loc person                             str percentage
1   A      1           door / window / table       0.00
2   B      2 window / table / toilet / vase        0.50
3   C      3    TV / remote / phone / window       0.25
4   C      4       book / vase / car / chair       0.00

( 10/3 あり、22/4 一致、31/4 あり、0/4 あり4)

ありがとう！

4

3 に答える 3

5

誰かがよりスマートな解決策を思いつくかもしれませんが、ここでは簡単なアプローチを示します。

library(data.table)
dt1 = data.table(df.1, key = "loc") # set the key to match by loc
dt2 = data.table(df.2)

dt1[, percentage := dt1[dt2][, # merge
           # clean up spaces and convert to strings
           `:=`(str = gsub(" ", "", as.character(str)),
                str.1 = gsub(" ", "", as.character(str.1)))][,
           # calculate the percentage for each row
           lapply(1:.N, function(i) {
                tmp = strsplit(str, "/")[[i]];
                sum(tmp %in% strsplit(str.1, "/")[[i]])/length(tmp)
           })
   ]]

dt1
#   loc person                             str percentage
#1:   A      1           door / window / table          0
#2:   B      2 window / table / toilet / vase         0.5
#3:   C      3    TV / remote / phone / window       0.25
#4:   C      4       book / vase / car / chair          0
于 2013-05-29T22:57:27.627 に答える
5

ご存じかもしれませんが、data.frame 列はリストを保持することもできます (列がリストである data.frame を作成するを参照)。strしたがって、単語のリストに分割できます。

df.1 <- transform(df.1, words.1 = I(strsplit(as.character(str), " / ")))
df.2 <- transform(df.2, words.2 = I(strsplit(as.character(str), " / ")))

次に、データをマージします。

m <- merge(df.1, df.2, by = "loc")

そして、次を使用してパーセンテージを計算するだけですmapply。

transform(m, percentage = mapply(function(x, y) sum(x%in%y) / length(x),
                                 words.1, words.2))
于 2013-05-29T23:45:50.987 に答える
2

別の方法として、

test <- data.frame(str1 = df.1[1:nrow(df.2),]$str, str2 = df.2$str)
df.1$percent <- NA
getwords <- function(x) { gsub(" ","",unlist(strsplit(as.character(x),"/"))) }
percent <- function(x,y) {
 sum(!is.na(unlist(sapply(getwords(x), function (d) grep(d, getwords(y))))))/
 length(getwords(x))
}
df.1[1:nrow(df.2),]$percent <- apply(test, 1, function(x) percent(x[1],x[2]))

> df.1
      loc person                             str percent

#   A      1           door / window / table    0.00
#   B      2 window / table / toilet / vase     0.50
#   C      3    TV / remote / phone / window    0.25
#   C      4       book / vase / car / chair      NA
于 2013-05-29T23:47:02.793 に答える