ggplot

Question

içinde birden çok yönü ile bir gerileme 20 faset içeren bir şekil üzerinden doğrusal bir gerileme (aslında 9'u) sığdırmaya çalışıyorum. Her seferinde regresyona uyuyorum (geom_smooth kullanarak method = lm kullanarak), her faset üzerinden bir tane olmak üzere 20 satıra uyuyor, ancak her ReefSpecies kombinasyonunun tek bir satırını 20 yüzeye yaymak istiyorum. , Sen (Yapabileceğiniz hangi place an identical smooth on each facet of a ggplot istemiyorum

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

açıklamalara dayanarak:

İşte Similar Figure

Bugüne kadar ne var: Burada

benim rakamdır setting the faceting variable to NULL in the smooth tarafından

Ne yapıyorsunuz do, tüm yönleriyle tek bir gerileme elde etmektir. Bazıları like that shown here'u hacklemeden bunun mümkün olmadığını düşünüyorum. Bunu deneyebilirsin.

Fakat bunun yerine, neden bunu yapmak istediğinizi ve ne anlama geldiğini düşünmek için geri adım atmanızı öneririm. Belki de fasetlerin doğru seçim olmadığı anlamına mı geliyor? Bu durumda, yıl boyunca mevsimler için hesaplar ve (gerçi olmadan) o regresse bir Time değişkenini tanımlamayı düşünebilirsiniz.

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")