粘貼值

Question

我有以下列格式數據：

在柱A：

String1__String2__String3 

在B欄：

Value 

我想值粘貼到第一個分隔符後的字符串如下：

String1__Value__String2__String3 

我現在使用的代碼的關鍵部分（這裏我粘貼值）以下行：

df2 <-cbind(df[1],apply(df[,2:ncol(df)],2,function(i)ifelse(is.na(i), NA, paste(df[,1],i,sep="_")))) 

有了這個代碼，將其附加價值後的字符串，像這樣：

String1__String2__String3__Value

是否有一種簡單的方法來重新排列此值，以便將值粘貼到正確的位置。或者我必須重做完整的代碼？

由於

更新，例如：

柱A：

Jennifer__DoesSomething__inaCity 

B欄：

2 

結果現在：

Jennifer__DoesSomething__inaCity__2 

期望的結果：

Jennifer__2__DoesSomething__inaCity 

琴絃珍，DoesSomething，inaCity變化和是不一樣的長度。只有分隔符保持不變。我想在第一個分隔符後面粘貼。

謝謝！

Answer 1

這是一個想法。使用sub我們只替換第一個看到的模式。所以使用mapply我們用一列中的相應字符串替換一列中的所有數字。

mapply(function(x, y) sub('__', paste0('__', y, '__'), x), df$v1, df$v2) 

#  atsfs__dsfgg__sdgsdg   eeee__FFFF__GGGG 
#"atsfs__3__dsfgg__sdgsdg"  "eeee__5__FFFF__GGGG" 

DATA

dput(df) 
structure(list(v1 = c("atsfs__dsfgg__sdgsdg", "eeee__FFFF__GGGG" 
), v2 = c(3, 5)), .Names = c("v1", "v2"), row.names = c(NA, -2L 
), class = "data.frame")