Добавление надлежащего титул ggplot

Question

Я пытался все это утро и до сих пор не может найти решение после прочтения связанных с пост на StackOverflow

У меня есть следующий код:

names <- colnames(df[17:length(df)]) 

counter = 17L 

for (i in 1:length(names)) { 
    df.tax <- subset(df, df[,c(counter)] != 0) 
    counter = counter + 1L 
    meta <- subset(df.tax, select=c(1:16)) 
    meltmeta <- melt(meta, id=c("Collector", "Year","Week","Cities","Provinces")) 
    ppv <- ggplot(meltmeta, aes(title = paste(names[i]), factor(Provinces), value)) 
    ppv + geom_boxplot() + geom_boxplot(aes(fill=Collector), alpha=I(0.5)) + geom_point(aes(color=Collector), size=1) +facet_wrap(~variable, scale="free") 
    ggsave(file = paste(names[i], sep=".","provinces_vs_climate.pdf"), width=16, height=8) 
} 

Мой выпуск Я не могу добавить правильный заголовок для ggplot. На каждой итерации цикла for я создаю новый dataframe, называемый df.tax, путем подмножества частей df. Я расплавляю df, а затем пытаюсь сгенерировать график с использованием ggplot.

Мне удалось сохранить каждый сюжет с другим именем файла (на основе массива имен) на каждой итерации на ggsave, но ggplot просто продолжает генерировать заголовок «paste (names [i])» для каждого сюжета.

Я пытался, получить(), паста(), лаборатории() ... и т.д., но ни одна работа

Любой знает, как я могу решить эту проблему?

Answer 1

Как уже упоминалось, joran, начиная с версии 0.9.2 ggplot2, самый простой способ установить заголовок для вашего участка - использовать ggtitle. Используя ggtitle, ваш код будет выглядеть примерно так:

for (i in 1:length(names)) { 
    df.tax <- subset(df, df[,c(counter)] != 0) 
    counter = counter + 1L 
    meta <- subset(df.tax, select=c(1:16)) 
    meltmeta <- melt(meta, id=c("Collector", "Year","Week","Cities","Provinces")) 
    ppv <- ggplot(meltmeta, aes(factor(Provinces), value)) 
    ppv <- ppv + geom_boxplot() 
    ppv <- ppv + geom_boxplot(aes(fill=Collector), alpha=I(0.5)) 
    ppv <- ppv + geom_point(aes(color=Collector), size=1) 
    ppv <- ppv + facet_wrap(~variable, scale="free") 
    ppv <- ppv + ggtitle(paste(names[i])) 
    ggsave(file = paste(names[i], sep=".","provinces_vs_climate.pdf"), width=16, height=8) 
}