Я не уверен, что правильно вас понимаю, так как это то, что вы описываете, это действительно простое использование gsub
:
gsub("3", "3D", type_3d)
[,1]
[1,] "3DD"
[2,] "3DD"
[3,] "3DD Column"
[4,] "3DD Plot"
[5,] "3DD Scatter"
[6,] "3DD Plot"
[7,] "3DD Scatter"
[8,] "3Dd Column"
Или, возможно, вы имели в виду:
> gsub(".*3.*", "3D", c(type_3d, "Some other text without a three"))
[1] "3D" "3D"
[3] "3D" "3D"
[5] "3D" "3D"
[7] "3D" "3D"
[9] "Some other text without a three"