爲ggplot2生成的多個圖添加標題和格式化Y軸標籤

Question

我有一個多槽圖，其中包含使用ggplot2生成的10個散點圖。我用來創建情節的代碼已經從這裏解除R cookbook.我的問題是我想爲每個散點圖添加不同的標題，例如，情節1標題可以標題爲「情節1」，而情節2可以標題爲「情節2」等等等等。我也想將標籤從當前標籤「Y」更改爲所有地塊的「購買」。

Answer 1

只需創建您的圖和標題每個人作爲您引用的代碼。然後安排使用gridExtra包。 ggtitle做標題，ylab函數可以用於y標籤。

library(ggplot2) 

# This example uses the ChickWeight dataset, which comes with ggplot2 
# First plot 
p1 <- ggplot(ChickWeight, aes(x=Time, y=weight, colour=Diet, group=Chick)) + 
    geom_line() + 
    ggtitle("Growth curve for individual chicks") 

# Second plot 
p2 <- ggplot(ChickWeight, aes(x=Time, y=weight, colour=Diet)) + 
    geom_point(alpha=.3) + 
    geom_smooth(alpha=.2, size=1) + 
    ggtitle("Fitted growth curve per diet") 

# Third plot 
p3 <- ggplot(subset(ChickWeight, Time==21), aes(x=weight, colour=Diet)) + 
    geom_density() + 
    ggtitle("Final weight, by diet") 

# Fourth plot 
p4 <- ggplot(subset(ChickWeight, Time==21), aes(x=weight, fill=Diet)) + 
    geom_histogram(colour="black", binwidth=50) + 
    facet_grid(Diet ~ .) + 
    ggtitle("Final weight, by diet") + 
    theme(legend.position="none")  # No legend (redundant in this graph)  

require(gridExtra) 
grid.arrange(p1, p2, p3, p4, nrow = 2)