每两个单词添加不同的后缀

Question

我有一个看起来像这样的data.frame：

  DF     
  Col1      Col2       
  Sample1    Name1      
  Sample2    Name2      
  Sample3    Name3     
  Sample4    Name4     
  .......    .....       

我想要以下输出：

  DF     
  Col1             Col2       
  Sample1_case    Name1      
  Sample2_case1   Name2      
  Sample3_case    Name3     
  Sample4_case1   Name4   

换句话说，我想在Col1中每两个单词添加一个不同的后缀。

我使用了字符串：

   DF = as.data.frame(lapply(DF, paste0, ".case"))      

但是我不能每两个单词添加不同的后缀。 有人可以帮帮我吗？

最佳

电子。

Answer 1

使用回收：

x <- c("sample1", "sample2", "sample3", "sample4")
y <- c("case", "case1")
paste(x, y, sep="_")
#[1] "sample1_case"  "sample2_case1" "sample3_case"  "sample4_case1"

Answer 2

DF$Col1<-paste(DF$col1,c("case","case1"),sep="_")应该可以解决问题。