Skip to main content
se añadieron 569 caracteres en el cuerpo
Origen Enlace
Gepser Hoil
  • 3.6k
  • 7
  • 33
  • 59

6. Extras

Esto reemplaza los espacios por saltos de línea para que sean más legibles los títulos.

strwr <- function(str) gsub(" ", "\n", str)
(p1 <- ggplot(df, aes(fill = tipo)) + geom_rect(aes(x = nombres,
    xmin = id - 0.45, xmax = id + 0.45, ymin = end,
    ymax = start)) + 
    scale_x_discrete("", breaks = levels(df$nombres),
    labels = strwr(levels(df$nombres))) +
    theme(legend.position = "none")
)

introducir la descripción de la imagen aquí

6. Extras

Esto reemplaza los espacios por saltos de línea para que sean más legibles los títulos.

strwr <- function(str) gsub(" ", "\n", str)
(p1 <- ggplot(df, aes(fill = tipo)) + geom_rect(aes(x = nombres,
    xmin = id - 0.45, xmax = id + 0.45, ymin = end,
    ymax = start)) + 
    scale_x_discrete("", breaks = levels(df$nombres),
    labels = strwr(levels(df$nombres))) +
    theme(legend.position = "none")
)

introducir la descripción de la imagen aquí

se añadieron 201 caracteres en el cuerpo
Origen Enlace
Gepser Hoil
  • 3.6k
  • 7
  • 33
  • 59

Y básicamente5. Resultado

Resultado Básicamente eso sería todo. Se le pueden hacer algunas mejoras dependiendo de lo que te interese en la gráfica resultado.

Puedes ver el código completo en este demo.

Y básicamente eso sería todo. Se le pueden hacer algunas mejoras dependiendo de lo que te interese en la gráfica resultado.

5. Resultado

Resultado Básicamente eso sería todo. Se le pueden hacer algunas mejoras dependiendo de lo que te interese en la gráfica resultado.

Puedes ver el código completo en este demo.

Quité los símbolos del "prompt" de R, y sustituí "//" por "#" (símbolo de comentario apropiado de R)
Origen Enlace
> df

Resultado:

 
## nombres           montos
## Saldo Inicial       100
## Ingresos            320
## Otros ingresos      210
## Costos fijos       -170
## Costos variables   -140
## Saldo Final         320
> df$desc <- factor(df$nombres, levels = df$nombres)
> df$id <- seq_along(df$montos)
> df$tipo <- ifelse(df$montos > 0, "in", "out") //# Si es positivo será un ingreso y en caso contrario será un egreso
> df[df$nombres %in% c("Saldo Inicial", "Saldo Final"), "tipo"] <- "net" //# Esto es para el balance inicial y final
> df$end <- cumsum(df$montos)
> df$end <- c(head(df$end, -1), 0)
> df$start <- c(0, head(df$end, -1))
> library(ggplot2)
> ggplot(df, aes(nombres, fill = tipo)) + geom_rect(aes(x = nombres,
+       xmin = id - 0.45, xmax = id + 0.45, ymin = end,
+       ymax = start))
> df

Resultado:

## nombres           montos
## Saldo Inicial       100
## Ingresos            320
## Otros ingresos      210
## Costos fijos       -170
## Costos variables   -140
## Saldo Final         320
> df$desc <- factor(df$nombres, levels = df$nombres)
> df$id <- seq_along(df$montos)
> df$tipo <- ifelse(df$montos > 0, "in", "out") //Si es positivo será un ingreso y en caso contrario será un egreso
> df[df$nombres %in% c("Saldo Inicial", "Saldo Final"), "tipo"] <- "net" //Esto es para el balance inicial y final
> df$end <- cumsum(df$montos)
> df$end <- c(head(df$end, -1), 0)
> df$start <- c(0, head(df$end, -1))
> library(ggplot2)
> ggplot(df, aes(nombres, fill = tipo)) + geom_rect(aes(x = nombres,
+     xmin = id - 0.45, xmax = id + 0.45, ymin = end,
+     ymax = start))
df
 
## nombres           montos
## Saldo Inicial       100
## Ingresos            320
## Otros ingresos      210
## Costos fijos       -170
## Costos variables   -140
## Saldo Final         320
df$desc <- factor(df$nombres, levels = df$nombres)
df$id <- seq_along(df$montos)
df$tipo <- ifelse(df$montos > 0, "in", "out") # Si es positivo será un ingreso y en caso contrario será un egreso
df[df$nombres %in% c("Saldo Inicial", "Saldo Final"), "tipo"] <- "net" # Esto es para el balance inicial y final
df$end <- cumsum(df$montos)
df$end <- c(head(df$end, -1), 0)
df$start <- c(0, head(df$end, -1))
library(ggplot2)
ggplot(df, aes(nombres, fill = tipo)) + geom_rect(aes(x = nombres,
       xmin = id - 0.45, xmax = id + 0.45, ymin = end,
       ymax = start))
Origen Enlace
Gepser Hoil
  • 3.6k
  • 7
  • 33
  • 59
Loading