vendedor <- c("João","Pedro", "José")
produtoA <- c(1500,2600,3700)
produtoB <- c(3500,4600,5700)
produtoC <- c(4500,5600,6700)
DRreceita <- c(150500,260500,360500)
DRlucro <- c(22575,39075,54075)
df <- data.frame(vendedor,produtoA,produtoB,produtoC,DRreceita,DRlucro)
O dataset tem muitas colunas, organizadas da seguinte forma: vendedor, produto"X", DR"valores em R$". A pergunta é como formatar as linhas com separador "." das colunas que começam com "produto" e como formatar as linhas no formato R$ 22.575,00 das colunas que começam com "DR".
Solução esperada:
df$produtoA <- paste(format(df$produtoA, big.mark= "."))
df$produtoB <- paste(format(df$produtoB, big.mark= "."))
df$produtoC <- paste(format(df$produtoC, big.mark= "."))
df$DRreceita <- paste('R$', format(round(df$DRreceita, 2), big.mark= ".", decimal.mark=',', scientific=F, nsmall = 2))
df$DRlucro <- paste('R$', format(round(df$DRlucro, 2), big.mark= ".", decimal.mark=',', scientific=F, nsmall = 2))
df
Minhas tentativas: Uma solução parcial para o produto poderia ser a seguinte, mas ainda está sem o filtro das colunas que começam com "produto":
df[,2:4] <- lapply(df[,2:4], format, big.mark= ".")
Ou da seguinte forma, mas só consegui para o caso dos produtos, isoladamente:
library(tidyverse)
produto <- df %>%
select(vendedor, starts_with("produto"))
produto[] <- lapply(produto[], format, big.mark= ".")