2

ggplot2(外挿の危険性を視覚化するために) そのデータの領域を超えて、データのサブセットにわたってデータに線形適合を外挿したいと思います。次のコードでは、1980 ～ 1990 年のフレームで生成された線形フィットを 1990 ～ 2000 年に拡張して、期間全体の完全なフィットを追加し、違いを視覚化できるようにします。

set.seed(123)           
frame <- data.frame(year = rep(1980:2000, 10), y = sample(1:1000, 210))
head(frame)

frame1 <- frame[frame$year %in% c(1980:1990),]
frame2 <- frame[frame$year %in% c(1980:2000),]

ggplot(frame1, aes(x = year, y = y)) + geom_point(shape = 1) + geom_smooth(method = lm) + xlim(1980, 2000)
ggplot(frame2, aes(x = year, y = y)) + geom_point(shape = 1) + geom_smooth(method = lm) + xlim(1980, 2000)

私は初めてなggplot2ので、最初のフレームから線形フィットを拡張する方法について考えてから、データを追加すると、別の色の新しいフィットが素晴らしいでしょう。ありがとう。

4

1 に答える 1

6

あなたは試すことができます

ggplot(frame2, aes(x = year, y = y)) + 
  geom_point(shape = 1) + 
  geom_smooth(method = lm, se=FALSE) + 
  geom_smooth(data=frame1, method = lm, fullrange=TRUE, se=FALSE, colour="red") + 
  xlim(1980, 2000)

ここに画像の説明を入力

于 2015-11-11T17:54:02.617 に答える