Skip to main content
adicionou 3 caracteres ao conteúdo
Fonte Link
Rafael Cunha
  • 5mil
  • 2
  • 13
  • 29

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 = " ")

Pode não ser a forma mais elegante (ou com a ajuda de algum pacote), mas dá pra fazer no braço

Primeiro eu criei 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 = " ")

Pode não ser a forma mais elegante (ou com a ajuda de algum pacote), mas dá pra fazer no braço

Primeiro eu utilizei 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 = " ")
Fonte Link
Rafael Cunha
  • 5mil
  • 2
  • 13
  • 29

Pode não ser a forma mais elegante (ou com a ajuda de algum pacote), mas dá pra fazer no braço

Primeiro eu criei 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 = " ")