将字符串分成相等长度的两列

Question

我有一个地址列，我想将该列分为两部分-“地址1”和“地址2”。划分应基于“地址”列中字符串的长度。如果“地址”列的长度为50，则“地址1”和“地址2”列应分别剃除长度为25的字符串。

我可以用dplyr拆分列，但如何使长度相等？

这里是桌子的桌子：

我希望我的结果是这样：

我使用的基本功能是

DF1 <- DF %>% separate(AddressLine1, c("A","B")) 

但是它只有前两个字符。

Answer 1

如果只想根据长度划分地址，则可以：

df$A <- substring(df$Address, 1, nchar(df$Address)/2)
df$B <- substring(df$Address, (nchar(df$Address)/2) + 1)