在R中的字符串末尾插入字符,最后一个元素除外

gh0*_*r18 10 r

我看了但是没有找到如何在R中的字符串向量中的每个元素的末尾添加字符的答案,除了最后一个 ...

考虑以下:

data <- c("cat", "dog", "mouse", "lion")
Run Code Online (Sandbox Code Playgroud)

我想在每个元素的末尾应用一个粘贴","的函数,结果是:

[1] "cat,", "dog,", "mouse,", "lion"
Run Code Online (Sandbox Code Playgroud)

应用功能?for loop?任何帮助表示赞赏......

akr*_*run 11

您可以通过以下几种方式执行此操作:

  1. 子集"数据"而不包含最后一个元素,粘贴,并将其分配给原始数据(不包含最后一个元素)

    data[-length(data)] <- paste0(data[-length(data)], ',')
    
    Run Code Online (Sandbox Code Playgroud)
  2. 将其strsplit折叠为字符串后使用

    strsplit(paste(data, collapse=', '), ' ')[[1]]     
    
    Run Code Online (Sandbox Code Playgroud)