如何比较R中的多个特定列

Question

我对R没有太多经验，不胜感激。我有一个像这样的数据集：

df <- tibble(
a = rnorm(10),
b = rnorm(10),
c = rnorm(10),
d = rnorm(10),
Adam = rnorm(10),
Aaron = rnorm(10),
Abby = rnorm(10),
Brett= rnorm(10),
Bobby= rnorm(10),
Blaine= rnorm(10),
Cate= rnorm(10),
Camila= rnorm(10),
Calvin= rnorm(10),
Dana= rnorm(10),
Debbie= rnorm(10),
Derek= rnorm(10))

我正在尝试计算A列与具有A名称（Adam，Aaron，Abby）的列之间的余弦相似度，以及类似地在B列与具有B名称（Brett，Bobby，Blaine）的列之间的余弦相似度。我尝试使用Purrr中的映射包装，但不能完全弄清楚。预先感谢。

Answer 1

我们可以根据列名的第一个字符将数据集拆分为数据集的list，然后将list与map循环，在cosine_similarity包中进行tcR所有列和第一列（list元素中的'a'，'b'，'c'，'d'）

library(tcR)
library(dplyr)
library(purrr)
df %>% 
    split.default(toupper(substr(names(.), 1, 1)))   %>%
    map_dfc( ~ { nm1 <- names(.x)[1]
             .x %>%
                 summarise_at(-1, ~ cosine.similarity(!! rlang::sym(nm1), .))})
# A tibble: 1 x 12
#    Adam Aaron  Abby    Brett   Bobby  Blaine  Cate Camila Calvin  Dana  Debbie   Derek
#*   <dbl> <dbl> <dbl>    <dbl>   <dbl>   <dbl> <dbl>  <dbl>  <dbl> <dbl>   <dbl>   <dbl>
#1 -0.0444 0.110 0.356 -0.00975 -0.0277 -0.0297 0.270 -0.222 -0.364 0.172 -0.0108 -0.0498