R：替换字符串中的第二个特殊字符

Question

需要替换字符串中的第二个特殊字符，而不是R中的第一个特殊字符。我通读了stackoverflow，发现有人建议使用sub，但这仅占第一个特殊字符。

我使用cSplit将字符串分成多个块，然后使用paste0将它们缝合在一起。

这很乏味，我想知道是否还有其他解决方案。

这只是数据外观的一个示例，我有兴趣在col1

中将第二个“-”替换为“ _”

col1 <- paste0(letters[1:10], letters[11:20], letters[3:12], letters[13:22], "-", 
            letters[9:18], letters[1:10], "-", letters[12:21], letters[4:13], 
            sample(1:200,10,replace=T), "-", letters[11:20], letters[1:10])
col2 <- sample(1:200, 10)
data1 <- data.frame (col1, col2)
data1

预期结果应为akcm-ia_ld115-ka（仅作为示例）