A solução do @Willian atende ao pedido. Uma outra alternativa seria resolver com tidyverse
:
library(tidyverse)
df %>%
rename(confianca = 2) %>%
mutate(var = as.numeric(str_replace_all(string = confianca, pattern = ',', replacement = '.'))) %>%
head(20)
Data confianca var
1 2009 T1 45,5 45.5
2 2009 T2 47,9 47.9
3 2009 T3 50,8 50.8
4 2009 T4 51,7 51.7
5 2010 T1 51,2 51.2
6 2010 T2 50,4 50.4
7 2010 T3 52,3 52.3
8 2010 T4 51,5 51.5
9 2011 T1 50,2 50.2
10 2011 T2 48,7 48.7
11 2011 T3 48,8 48.8
12 2011 T4 49,4 49.4
13 2012 T1 49,5 49.5
14 2012 T2 49,1 49.1
15 2012 T3 49,3 49.3
16 2012 T4 50,4 50.4
17 2013 T1 50 50.0
18 2013 T2 47,5 47.5
19 2013 T3 47,3 47.3
20 2013 T4 48,3 48.3