在字符串上应用substr

我想用循环/应用中的多个字符交换字符串中的一个位置

我有绳子：乌加古和 我要：卡卡古，卡卡古，卡卡古

我尝试了以下方法，但不起作用

y <- c("A", "C", "G")
sapply(y, function(i) substr("UGCACGU", start = 1, stop = 1) <- i)

Error in substr("UGCACGU", start = 1, stop = 1) <- i : 
  target of assignment expands to non-language object

有什么想法吗？谢谢你的帮助

我们可以将粘贴与子字符串一起使用

我们可以使用带有子字符串的粘贴

一种方法是使用sub替换第一个字母，即

sapply(y, function(i) sub('^[A-Z]', i, "UGCACGU"))

#        A         C         G 
#"AGCACGU" "CGCACGU" "GGCACGU" 

一种方法是使用sub替换第一个字母，即

sapply(y, function(i) sub('^[A-Z]', i, "UGCACGU"))

#        A         C         G 
#"AGCACGU" "CGCACGU" "GGCACGU" 

---

或者在开始时明确地使用锚，比如“^[A-Z]”或“^.”如果你感到懒惰和冒险。另外，{1}是不必要的。@lmo感谢您的建议。我对regex非常陌生，所以像锚和环顾四周这样的工作人员在我脑子里还不清楚。如果你感到懒惰和喜欢冒险，我需要在一开始就用一个锚进行更多或明确的练习，比如“^[A-Z]”或“^.”。另外，{1}是不必要的。@lmo感谢您的建议。我对regex非常陌生，所以像锚和环顾四周这样的工作人员在我脑子里还不清楚。我需要多练习

sapply(y, function(i) sub('^[A-Z]', i, "UGCACGU"))

#        A         C         G 
#"AGCACGU" "CGCACGU" "GGCACGU"