Skip to content

[R-es] Ayuda ggplot2

4 messages · Alexa Aristizabal, Karel L.

#
Hola a todos!

Soy nueva en R y necesito hacer unos gráficos para una investigación, he
explorado un poco y estoy intentando usar ggplot2 ya que hace gráficos de
muy buena calidad...tengo los datos de varios años para diferentes grupos
de empresas y los pretendo graficar tanto en un solo grafico como en varios
(facet_wrap) pero tengo problemas con el eje de las X, ya que necesito que
aparezcan los años es decir, 2003, 2004 y así ....y no X2003, X2004 que es
como están apareciendo.

Este es mi código:

library(reshape2)
library(ggplot2)

emp <- read.csv("C:/Users/usuario/Documents/tamano_empresas.csv",
header=TRUE, sep=";", comment.char="" , strip.white=FALSE, dec = ",")

melted = melt(emp, id.vars="Empresas")

ggplot(data=melted, aes(variable, value)) + geom_line(aes(colour =
Empresas, group = Empresas)) + facet_wrap(~ Empresas)


Agradezco cualquier ayuda. Adjunto el dataset.

Muchas gracias.
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20160624/86ac32d5/attachment.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: tamano_empresas.csv
Type: text/csv
Size: 580 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20160624/86ac32d5/attachment.bin>
#
Hola a todos!

Soy nueva en R y necesito hacer unos gráficos para una investigación, he
explorado un poco y estoy intentando usar ggplot2 ya que hace gráficos de
muy buena calidad...tengo los datos de varios años para diferentes grupos
de empresas y los pretendo graficar tanto en un solo grafico como en varios
(facet_wrap) pero tengo problemas con el eje de las X, ya que necesito que
aparezcan los años es decir, 2003, 2004 y así ....y no X2003, X2004 que es
como están apareciendo.

Este es mi código:

library(reshape2)
library(ggplot2)

emp <- read.csv("C:/Users/usuario/Documents/tamano_empresas.csv",
header=TRUE, sep=";", comment.char="" , strip.white=FALSE, dec = ",")

melted = melt(emp, id.vars="Empresas")

ggplot(data=melted, aes(variable, value)) + geom_line(aes(colour =
Empresas, group = Empresas)) + facet_wrap(~ Empresas)


Agradezco cualquier ayuda. Adjunto el dataset.

Muchas gracias.
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20160624/ba34f1c5/attachment.html>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: tamano_empresas.csv
Type: text/csv
Size: 580 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20160624/ba34f1c5/attachment.bin>
------------ próxima parte ------------
A non-text attachment was scrubbed...
Name: tamano_empresas.csv
Type: text/csv
Size: 580 bytes
Desc: no disponible
URL: <https://stat.ethz.ch/pipermail/r-help-es/attachments/20160624/ba34f1c5/attachment-0001.bin>
#
Hola,

library(reshape2)
library(ggplot2)

emp <- read.csv("tamano_empresas.csv", header=TRUE, sep=";", 
comment.char="" , strip.white=FALSE, dec = ",")

melted = melt(emp, id.vars="Empresas")

# Para lo que quieres esto te valdrá
melted$variable<-substring(melted$variable, first = 2, last = 5)

ggplot(data=melted, aes(as.factor(variable), value)) +
   geom_line(aes(colour = Empresas, group = Empresas)) +
   facet_wrap(~ Empresas)+
   xlab("Años")

Saludos,


El 24/06/16 a las 18:51, Alexa Aristizabal escribió:

  
  
2 days later
#
Muchas gracias por la ayuda me sirvió muchísimo, era justo lo que
necesitaba.

Ahora pretendiendo hacer exactamente lo mismo con otro dataset, me genera
el siguiente error al hacer el melt:

library(reshape2)
library(ggplot2)

emp <- read.csv("tamano_empresas.csv", header=TRUE, sep=";",
comment.char="" , strip.white=FALSE, dec = ",")

melted = melt(emp, id.vars="Empresas")

Warning message:
attributes are not identical across measure variables; they will be dropped

Por lo que al final en el eje de las Y donde van los valores, éstos no se
distinguen.

Agradezco su colaboración.

Saludos,






El 24 de junio de 2016, 19:26, Karel L. via R-help-es <
r-help-es en r-project.org> escribió: