创建重复的文本行/变量来调用数据框中的值

Question

我需要创建一个文本文件，其内容是重复的文本行，该文本行调用来自数据帧的某些内容/值。这里是说明：

假设我有此数据框df：

df <- data_frame(col1 = runif(5, 1, 5),
           col2 = stringi::stri_rand_strings(5, 3))

#col1 col2 
#<dbl> <chr>
#1  3.72 NmV  
#2  2.43 HqH  
#3  4.46 xfy  
#4  4.97 dgV  
#5  3.11 wS9 

我想制作一个如下所示的.txt文件：

#Group 1
first_line = 3.72
second_line = NmV

#Group 2
first_line = 2.43
second_line = HqH

.
.
.

#Group 5
first_line = 3.11
second_line = wS9

然后，我想编写一个打印这些重复行的文本文件。我正在考虑进行for循环或使用purrr的map()函数来执行，但我发现处理文本是完全不同的球类游戏！感谢您的帮助！

Answer 1

我们可以将split转换为list，然后使用writeLines

library(dplyr)
library(purrr)
library(stringr)
out <- df %>%
   group_split(col2) %>% 
   map(~ str_c('first_line = ', round(.x$col1, 2), '\n', 
            'second_line = ', .x$col2))
names(out) <- str_c('Group', seq_along(out))