2013-01-16 5 views
13

Ho un codice ggplot e volevo cambiare la dimensione delle etichette per l'asse xe l'asse y.Dimensioni delle etichette per l'asse X e l'asse y ggot in R

il codice:

df.m <- melt(df, names(df)[2:3], names(df)[1]) 
df.m$Results <- factor(df.m$Results) 
df.m$HMn25_30.h <- strptime(as.character(df.m$HMn25_30.h), format = "%Y-%m-%d %H:%M:%S") 
p <- ggplot(df.m, aes(x = HMn25_30.h, y = value, group = variable, color = variable)) 
p <- p + scale_shape_manual(values=c(20,22)) 
p <- p + geom_point(aes(shape = Results), cex=4, color= "blue3") 
p <- p + geom_line(size=.8) 
p <- p + theme(axis.text.x = element_text(angle = 90, hjust = 1, size=13,color="darkred")) 
p <- p + scale_color_manual(values=c("Red")) 
p <- p + ylim(-1,8) 
p <- p + xlab('Date and Time') 
p <- p + ylab('Temperature') 
p <- p + ggtitle("Temporal Outliers of Node 25 ") + theme(plot.title = element_text(lineheight=3, face="bold", color="black", size=29)) 
p 

In altre parole "temperatura" e carattere "Data e ora" e la dimensione deve essere cambiato.

+2

Stai utilizzando la funzione di 'theme' già, ma non sembra di aver letto che è la documentazione. Ti suggerisco di farlo ora. Sospetto che lo troverai illuminante. – joran

risposta

32

È possibile applicare diverse opzioni di theme:

p <- ggplot(df.m, aes(x = HMn25_30.h, y = value, group = variable, color = variable)) 
    p <- p + scale_shape_manual(values=c(20,22)) 
    p <- p + geom_point(aes(shape = Results), cex=4, color= "blue3") 
    p <- p + geom_line(size=.8) 
    p <- p + theme(axis.text.x = element_text(angle = 90, hjust = 1, size=13,color="darkred")) 
    p <- p + scale_color_manual(values=c("Red")) 
    p <- p + ylim(-1,8) 
    p <- p + theme_bw() 
    p <- p + xlab('Date and Time') 
    p <- p + ylab('Temprature') 
    p <- p + ggtitle("Temporal Outliers of Node 25 ") + theme(plot.title = element_text(lineheight=3, face="bold", color="black", size=29)) 
    p <- p + labs(x = "Date-Time ", y = "Temprature ") 
    p <- p + theme(axis.title.y = element_text(size = rel(1.8), angle = 90)) 
    p <- p + theme(axis.title.x = element_text(size = rel(1.8), angle = 00)) 
    p 
+0

Questi possono anche essere applicati in una singola chiamata 'theme()' in questo modo: 'tema (scale_shape_manual (valori = c (20,22)), geom_point (aes (forma = risultati), cex = 4, colore = "blue3"), ecc. – DirtStats

+0

Una singola chiamata 'theme()' per modificare tutti gli elementi di testo nella trama: 'theme (text = element_text (size = 15))'. –