Pelo que entendi, o problema é fato que você está usando um separador vírgula ao invés do ponto. Convertendo vírgula para ponto, e então para um vetor número é uma opção:
df$var <- as.numeric(gsub(",", ".", gsub("\\.", "", df$confianca)))
# > head(df)
# 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
> str(df)
'data.frame': 43 obs. of 3 variables:
$ Data : Factor w/ 43 levels "2009 T1","2009 T2",..: 1 2 3 4 5 6 7 8 9 10 ...
$ confianca: Factor w/ 41 levels "37,9","38,7",..: 17 24 37 40 38 36 41 39 35 27 ...
$ var : num 45.5 47.9 50.8 51.7