Skip to main content
removeu 31 caracteres do conteúdo
Fonte Link
neves
  • 5,9mil
  • 13
  • 22
  • 56

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

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

A solução do @Willian atende ao pedido. Uma outra alternativa seria resolver com tidyverse:

library(tidyverse)

df %>% 
   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
Fonte Link
neves
  • 5,9mil
  • 13
  • 22
  • 56

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