Pode não ser a forma mais elegante (ou com a ajuda de algum pacote), mas dá pra fazer no braço
Primeiro eu crieiutilizei duas funções (right
e left
) nos moldes das funções direita
e esquerda
do Excel.
left <- function(string,char){
substr(string, 1, char)
}
right <- function(string, char){
substr(string, nchar(string)-(char-1), nchar(string))
}
Depois foi utilizar essas funções com o comando paste
dados <- data.frame(data = c("2016-02-01", "2016-03-01", "2016-04-01"),
valor = c(751434574,748873781,755528121))
dados$valor2 <- paste(left(dados$valor, 6),
right(dados$valor, 3), sep = ".")
dados$valor2 <- paste(left(dados$valor2, 3), right(dados$valor2, 7),
sep = ".")
dados$valor2 <- paste("R$", dados$valor2, sep = " ")