ggplotの複数のファセットを使った1回の回帰

Question

私は20のファセットを持つ図形に線形回帰（実際には9つ）を当てようとしています。回帰に合うたびに（method = lmを使ってgeom_smoothを使うと）、それは20行、各面に1つずつフィットしますが、各ReefSpeciesの組み合わせごとに1つの行を20個のファセットすべてに渡します。ここで

は私の図である。ここでは

Similar Figure

は、私がこれまで持っているものである：コメントに基づいて

Biomass <- c(20, 10, 5, 4, 5, 7, 8, 22, 13, 13, 15, 18, 2, 5, 7, 10) 
Season <- c("Winter", "Spring", "Summer", "Fall") 
Year <- c("1", "2", "3", "4") 
ReefSpecies <- c("Admiral Ma", "Jaap Mf", "Grecian Ma", "Alligator Mf", "Jaap Mf", "Grecian Ma", "Alligator Mf", "Admiral Ma", "Grecian Ma", "Alligator Mf", "Admiral Ma", "Jaap Mf", "Alligator Mf", "Admiral Ma", "Jaap Mf","Grecian Ma") 
Seasonal <- data.frame(Biomass, Season, Year, ReefSpecies) 

testp <- ggplot(data = Seasonal, aes(x = Season, y = Biomass, group =  ReefSpecies, fill = ReefSpecies, colour = ReefSpecies)) 
testp <- testp + geom_point(stat = "identity", position="identity", inherit.aes = TRUE) 
testp <- testp + facet_grid(. ~ Year, scales="fixed") 
testp <- testp + theme(axis.text.x = element_text(angle = 90)) 
testp <- testp + theme(panel.margin.x = unit(0, "lines")) 
testp <- testp + theme(legend.position = "top") 
testp 

Answer 1

、あなたはありませんは、あなたが行うことができます（place an identical smooth on each facet of a ggplotにをしたいですかby setting the faceting variable to NULL in the smooth

あなたは何ですかdoが必要なのは、すべてのファセットにわたって単一の回帰を持つことです。私は、これはいくつかのハッキングなしでは不可能だと思う。like that shown here。あなたはそれを試すことができます。

代わりに、私はなぜそれをやりたいのか、それとも滑らかなものなのかを検討することをお勧めします。おそらくそれはファセットが正しい選択ではないことを意味しますか？その場合、年を越えて季節を考慮に入れて、ファセットなしで回帰する変数を定義することを検討することもできます。 （微調整したデータと、あなたの例のデータは年ごとに複数の観測を持っていないため）

例：

Year <- sort(rep(Year, 4)) 
Seasonal <- data.frame(Biomass, Season, Year, ReefSpecies) 
Seasonal$Time <- interaction(Season, Year) 

ggplot(Seasonal, aes(Time, Biomass, color=ReefSpecies)) + 
    geom_point() + 
    geom_smooth(aes(group=ReefSpecies), method="lm")