Rでは、文字列の2つのベクトル間のKL距離の計算方法は？私は、文字列の2つのベクトルを持っている場合

Question

が好き：私はそれぞれの分布を得ることができます

> list1 = c("cat", "dog", "cat", "rabbit", "dog", "cat") 
> list2 = c("dog", "rabbit", "dog", "mouse", "dog", "rabbit", "cat") 

。例えば：私はこれら二つの分布間のKL距離を計算するにはどうすればよい

> dist1 = table(list1)/length(list1) 
> dist2 = table(list2)/length(list2) 
> dist1; dist2 

list1 
     cat  dog rabbit 
0.5000000 0.3333333 0.1666667 
list2 
     cat  dog  mouse rabbit 
0.1428571 0.4285714 0.1428571 0.2857143 

？ （dist2をベースラインとして使用する）

私が見たKL関数（例：kl.dist）には同じ長さのベクトルが必要です。

Answer 1

以下は各ベクトル文字列の分布と一つの列を有するデータフレームを生成する。

library(dplyr) 

list1 <- c("cat", "dog", "cat", "rabbit", "dog", "cat") 
list2 <- c("dog", "rabbit", "dog", "mouse", "dog", "rabbit", "cat") 

dist1 <- table(list1)/length(list1) 
dist2 <- table(list2)/length(list2) 

BothDist <- full_join(as.data.frame(dist1),as.data.frame(dist2), by = c("list1" = "list2")) 
BothDist[is.na(BothDist)] <- 0 

BothDist