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ó:
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.