Uma maneira de substituir as vírgulas decimais por pontos é com as.numeric/sub
.
Como o dataframe da pergunta não está muito claro, não tenho a certeza se a primeira coluna é mesmo uma coluna ou se são os row.names
, vou primeiro determinar em que colunas há vírgulas. Essas colunas terão um valorTRUE
no vetor cols
.
cols <- sapply(dados, function(x) any(grepl(",", x)))
dados[cols] <- lapply(dados[cols], function(x) as.numeric(sub(",", ".", x)))
Outra maneira, quanto a mim melhor, é evitar o problema lendo os dados com o argumento dec = ","
que muitas funções do R de leitura de dados têm.
dados2 <- read.table(text = "
1 252 2,0056
2 504 2,0881
3 756 2,4613
4 1260 2,8715
5 2520 3,3215
6 3024 3,4256
7 252 5,2604
8 504 5,7646
9 756 6,2504
", dec = ",")
Isto chega para as decimas estarem separadas por pontos:
identical(dados, dados2)
#[1] TRUE
Dados.
dados <- read.table(text = "
1 252 2,0056
2 504 2,0881
3 756 2,4613
4 1260 2,8715
5 2520 3,3215
6 3024 3,4256
7 252 5,2604
8 504 5,7646
9 756 6,2504
")
dput(dados)
ou, se a base for muito grande, dedput(head(dados, 20))
? Nota:dados
é o nome da base, por exemplo de um data.frame. O link não nos dá acesso aos dados.