R值；将字符串等分成两部分

Question

我目前在R中有一个字符串列表。我需要将每个字符串一分为二。我该如何使用stringr包呢？我必须做一个for循环来遍历所有的项目吗？

打印(项目)；我拥有的当前项目..

输入:1“苹果甜甜圈果汁”"BananaBanana“”胡萝卜甜甜圈果汁“”JuiceApple JuiceCarrot DonutDonut“"elephant226elephant226”“水果饮料”

打印(项目)；我想要的最终结果..

输出:1“苹果汁”“香蕉”“胡萝卜汁”“甜甜圈”"elephant226“”水果潘趣酒“

Answer 1

在stringr中，您可以使用str_sub根据字符串的长度将其一分为二。

items <-  c("Apple JuiceApple Juice", "BananaBanana", "Carrot JuiceCarrot Juice" ,"Donut DonutDonut Donut", "elephant226elephant226", "fruitpunchfruitpunch")

stringr::str_sub(items, 1, nchar(items)/2)
#[1] "Apple Juice"  "Banana"       "Carrot Juice" "Donut Donut"  "elephant226"  "fruitpunch" 

在base R中，可以类似地使用substr/substring：

substr(items, 1, nchar(items)/2)