R：无法获得数据框中匹配表情符号对的频率

Question

我在获取 R 中相似表情符号对的频率时遇到问题。我不知道是否存在逻辑错误。我的代码段如下：

emoji_pouch <- c("", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "")
emo_mat <- matrix(emoji_pouch, ncol = 2, byrow = T)
emo_mat
#     [,1] [,2]
#[1,] ""  "" 
#[2,] ""  "" 
#[3,] ""  "" 
#[4,] ""  "" 
#[5,] ""  "" 
#[6,] "" "" 
#[7,] ""  "" 
#[8,] ""  "" 
#[9,] ""  "" 
#[10,] ""  "" 
#[11,] ""  "" 

links <- data.frame(source= emo_mat[,1], target= emo_mat[,2])

weight_col_count <- c()

#Possible logic error which I can't find
for(i in 1:nrow(links))
{
  weight_counter <- 1
  
  for(j in 1: nrow(links))
  {
    if(links[i, ] == links[j, ]) #I am not sure if I doing this line correctly??
    {
      weight_counter <- weight_counter + 1
    }
  }

  weight_col_count[i] <- weight_counter
}

links$weight <- weight_col_count
links 

# gives me output like this:
#   source target weight
#1                   2
#2                   2
#3                   5
#4                   5
#5                   5
#6                  2
#7                   2
#8                   2
#9                   3
#10                  3
#11                  5

#Desired output would be:
#   source target weight
#1                   1
#2                   1
#3                   3
#4                   3
#5                   1
#6                  1
#7                   1
#8                   1
#9                   1
#10                  1
#11                  3

我仔细查看了 Stack Overflow 社区，但似乎找不到任何有用的信息。老实说，这可能是由于我对该主题的了解有限。这是我的业余项目，我正在使用 emo 和 remotes 包。

Answer 1

您可以使用 dplyr 包获取每对表情符号的出现频率。我认为这是比使用循环和计数器更简单的解决方案。您的方法的唯一区别是表情符号的每个组合只出现一次。希望这会有所帮助！这是我的解决方案：

library(dplyr)

links %>%
  group_by(source,target) %>% #group by both variables
  count()#Get frequencies for every combination

R：无法获得数据框中匹配表情符号对的频率

R: Having trouble getting frequency of matching emoji pairs within data frame

unicode

r

dataframe

emoji