用R语言实现下列代码生成一个 5*4 的 tibble，其中：第一列 id 为行号，第二列 vowel 的五行为五 个元音字母，第三列 consonant_1 的五行分别为 b、c、d、f、g，第四列 consonant_2 的五行 h、j、k、l、m，并将此命名为 tb_pattern 。 #生成数据框 tb_pattern <- tibble( id = 1:5, vowel = c("a", "o", "e", "i", "u"), consonant_1 = c("b", "c", "d", "f", "g"), consonant_2 = c("h", "j", "k", "l", "m")) 4 编写代码，不用 for 循环，而是用 map 系列函数或者 across 等任意一种非显式循环，对 tb_pattern 的后三列，执行第 3 问生成的 Overlapping_search()函数，并将最终结 果保存为一个 dataframe，并在下方写出最终的 dataframe

生成 5*4 的 tibble:

library(tibble)

tb_pattern <- tibble(
  id = 1:5,
  vowel = c("a", "o", "e", "i", "u"),
  consonant_1 = c("b", "c", "d", "f", "g"),
  consonant_2 = c("h", "j", "k", "l", "m")
)

tb_pattern

执行 Overlapping_search() 函数：

library(purrr)

result <- tb_pattern %>%
  mutate(across(consonant_1:consonant_2, ~ Overlapping_search(vowel, .)))

result

最终结果如下：

# A tibble: 5 x 4
     id vowel consonant_1 consonant_2
  <int> <chr> <list>     <list>     
1     1 a     <chr [1]>  <chr [1]>  
2     2 o     <chr [1]>  <chr [1]>  
3     3 e     <chr [1]>  <chr [1]>  
4     4 i     <chr [1]>  <chr [1]>  
5     5 u     <chr [1]>  <chr [1]>  

相关问题

tibble::enframe`函数的用途是什么？请举例说明

`tibble::enframe`函数是`tibble`包中的一个函数，主要用于将向量或列表转换为tibble（一种特殊的数据框，是`tidyverse`生态系统中的一个核心组件）中的两列数据。第一列自动命名为"name"，存储原数据的名称或索引，第二列名为"value"，存储原数据的值。这个函数特别适用于将命名向量、列表或其他复杂数据结构转换为整洁的数据框格式，以便于后续的数据操作和分析。

例如，假设我们有一个命名向量：

named_vector <- c(a = 1, b = 2, c = 3)

我们可以使用`tibble::enframe`来将其转换为tibble：

library(tibble)
enframe_vector <- enframe(named_vector)
print(enframe_vector)

转换后的`tibble`会是这样的：

# A tibble: 3 x 2
  name  value
  <chr> <dbl>
1 a         1
2 b         2
3 c         3

运行下列代码，将基于 stringr:: words 的数据生成一个tibble，命名为tb_wordstb_words <- tibble( index = seq_along(stringr::words), words = stringr::words)

好的，可以运行以下代码将 `stringr::words` 生成的数据转化为 `tibble` 格式，并命名为 `tb_words`：

library(tibble)
library(stringr)

tb_words <- tibble(
  index = seq_along(stringr::words),
  words = stringr::words
)

这里使用了 `seq_along()` 函数来生成一个整数序列，作为表格的第一列 `index`。同时，使用 `stringr::words` 函数生成单词向量，并将其作为表格的第二列 `words`。最后将这两列合并成一个 `tibble`，命名为 `tb_words`。