比较r中的字符串并创建dataframe

library(stringdist)
library(dplyr)

strings <- c("apple", "banana", "orange", "grape", "kiwi")

df <- data.frame(strings = character(), stringsAsFactors = FALSE)

for (i in 1:length(strings)) {
  for (j in 1:length(strings)) {
    distance <- stringdist::stringdist(strings[i], strings[j])
    df <- df %>% add_row(strings = strings[i], compared_to = strings[j], distance = distance)
  }
}

print(df)