创建从数据框中调用值的 texts/variable 重复行

Question

我需要创建一个文本文件，其内容是重复的文本行，调用来自数据框的一些 contents/values。举个例子：

假设我有这个数据框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

我们可以通过 pasteing 创建一个字符串，然后使用 cat

library(purrr)
library(dplyr)
out <- df %>%
          mutate(rn = str_c('Group ', row_number())) %>% 
          pmap_chr(~ str_c(..3,  "\n", 'first_line = ', round(..1, 2), 
           '\n', 'second_line = ', ..2)) %>% 
         str_c(collapse="\n\n")
cat(out, file = 'filenew.txt')

创建从数据框中调用值的 texts/variable 重复行

creating repetitive lines of texts/variable that calls values from a data frame

arrays

text

r

repeat