如何根据dataframe元素长度的百分比提取部分字符串？

Question

str1 <- c("youaremyfriend","youarethebest")
str2 <- c("ABCDEFGHIJKLMN","thisismydata","thereisabird")
df <-c(str1，str2)
#the ideal research 
"youar" "youa" "ABCDE" "this" "ther"

您好，我想从df的所有元素中提取字符串的前三分之一。例如，“youaremyfriend”的长度为14，因此结果应为“youar”。我怎样才能做到这一点？谢谢:)）

Answer 1

如果你有一个字符串，你可以使用内置函数nchar和substring（不需要库）

str1 = "youaremyfriend"
str1_length = nchar(str1)
substring_wanted = substr(str1, 1, round(str1_length/3)

"youar" 

Answer 2

使用stringr可以这样做：

library(stringr)
str1 <- c("youaremyfriend","youarethebest")
str2 <- c("ABCDEFGHIJKLMN","thisismydata","thereisabird")

string <- c(str1, str2)

str_sub(string, start = 1, end = round(str_length(string)/3))
# [1] "youar" "youa"  "ABCDE" "this"  "ther" 

Answer 3

基础R中的另一种解决方案：

str1 <- c("youaremyfriend", "youarethebest", "BBBAAAKKK")
str2 <- c("ABCDEFGHIJKLMN", "thisismydata", "thereisabird")
df <- data.frame(str1, str2)

c(apply(df, c(1, 2), function(s) {
  strtrim(s, width = nchar(s)/3)
}))

您的第一列缺少一个条目，因此我添加了一个来构建数据框。