如何在字符串上使用 lapply 以便它们最终组合在一起？

Question

实际问题：我正在尝试将一堆名称、街道地址、州等重新排列成一个很好的地址列表，没有任何奇怪的括号[行号]、引号、尴尬的中断等。

所以我创建了4个变量：address_name、address_line_1、address_line_2、address_line_3。我希望这些变量进入 .txt 文档作为

` 地址_名称

地址_行_1

地址_行_2

地址_行_3`

这样我就可以获得一份格式良好的工作地址列表。

这是我的代码的简化版本（使用 abc/123 而不是实际变量）：

`字母<- c("a", "b", "c") numbers <- c("1", "2", "3")

lapply(c(字母、数字), function(c){ write(c, file = "Text_attempt.txt",
九月=“ “，附加= TRUE， n 列 = 100000) }) `

它生成以下输出：

`一个

b

c

1

2

3`

但我希望它生成此输出：

`一个

1

b

2

c

3 `

Answer 1

您可以在编写之前尝试将它们粘贴在一起：

letters <- c("a", "b", "c") numbers <- c("1", "2", "3")

lapply(paste(letters, numbers, sep = '\n'),
       function(c){ write(c, file = "Text_attempt.txt",
                          sep = "\n", append = TRUE, ncolumns = 100000) })