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

Question

I am having a problem getting the frequency of similar pair of emojis in R. I don't know if there is a logic error. My code segment follows like this:

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

I have looked Stack Overflow community thoroughly, but can't seem to find anything helpful. To be honest, it could be due to my limited knowledge on the subject. This is my side project, and I am using emo, and remotes packages.

Answer 1

You can get the frequency for every pair of emojis using the dplyr package. I think it is an easier solution than using loops and counters. The only difference with your approach is that every combination of emojis appears only once. Hope this is helpful! Here is my solution:

library(dplyr)

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