2013-01-16 2 views
13

Ich habe einen ggplot-Code und ich wollte die Größe der Etiketten für X-Achse und Y-Achse ändern.Größe der Etiketten für x-Achse und y-Achse ggplot in R

der Code:

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 

Mit anderen Worten: „Temperatur“ und „Datum und Uhrzeit“ Schriftart und Größe soll geändert werden.

+2

Sie die Funktion 'mit theme' schon, aber Sie scheinen nicht Dokumentation es gelesen zu haben. Ich schlage vor, Sie tun es jetzt. Ich vermute, Sie werden es aufschlussreich finden. – joran

Antwort

32

Sie können verschiedene Optionen von theme gelten:

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

Diese können auch in einem einzelnen 'theme()' Aufruf wie folgt angewendet werden: 'Thema (scale_shape_manual (Werte = c (20,22)), Geom_point (aes (Form = Ergebnisse), cex = 4, Farbe = "blue3"), etc' – DirtStats

+0

Ein '' theme() 'Aufruf um alle Textelemente im Plot zu ändern:' theme (text = element_text (size = 15)) '. –