How to replace 2nd character of a string in a column in r

Question

Here is an example of a data frame.

Type <- c(\'[C>A]\',\'[C>G]\',\'[C>T]\')
Subtype <- c(\'ACA\',\'ACT\',\'ACC\')
df <- cbind(Type, Subtype)
df