Question

使用包ggplot2和iris，我想用擬合迴歸線繪製散點圖。

library(ggplot2) 
ggplot(data=iris, aes(x = Petal.Width, y = Petal.Length,color=Species)) + 
    geom_point(shape=1) + 
    stat_smooth(method = "lm",formula= 'Petal.Length ~ Petal.Width+I(Petal.Width^2)+SaleType+Petal.Width*Species', data=iris, 
       aes(x = Petal.Width, y = Petal.Length,color=Species)) 

**Warning message: 
Computation failed in `stat_smooth()`: 
variable lengths differ (found for '(weights)')** 

我想到的理由得到這個警告，我有兩個獨立的變量，但現在R可以不讀物種在stat_smooth劈裂增長的顏色。我如何繪製兩條與plot(Petal.Width,fitted(fit))相同的線。另外，如果我有另一個迴歸模型擬合相同的數據組，但是log（y），我可以將兩個迴歸模型的繪製放入同一個圖中嗎？

Answer 1

我不認爲將變換後的迴歸與原始值在同一比例上結合是合適的。相反，這些應該繪製在不同的數字上。使用iris數據集，你可以畫出了這樣的原始數據：

ggplot(data=iris, aes(color=Species)) + 
    geom_point(aes(x = Petal.Width, y = Sepal.Width)) + 
    stat_smooth(method = "lm", aes(x = Petal.Width, y = Sepal.Width,color=Species)) 

然後登錄變換Sepal.Width到另一個變量：

iris$LogSepal.Width <- log(iris$Sepal.Width) 

然後劇情有轉換變量。我希望這有幫助。

ggplot(data=iris, aes(color=Species)) + 
    geom_point(aes(x = Petal.Width, y = LogSepal.Width)) + 
    stat_smooth(method = "lm", aes(x = Petal.Width, y = LogSepal.Width,color=Species))