回帰直線のセグメントをプロットに追加します
MTT
4つの回帰直線があり、それらを1つのプロットに入れたいと思います。これが私の簡単なコードです：
data = read.csv("TEST.csv", header = FALSE)
plot(data$V1,data$V2)
fit <- lm(data$V2~data$V1)
abline(fit, col=1)
data1 = read.csv("TEST1.csv", header = FALSE)
fit1 <- lm(data1$V2~data1$V1)
abline(fit1, col=2)
data2 = read.csv("TEST2.csv", header = FALSE)
fit2 <- lm(data2$V2~data2$V1)
abline(fit2, col=3)
data3 = read.csv("TEST3.csv", header = FALSE)
fit3 <- lm(data3$V2~data3$V1)
abline(fit3, col=4)
そしてここにプロットがあります： 
しかし、それは私が望んでいるものではありません。黒の線は問題ありませんが、赤、青、緑の線の場合は、これらの線のセグメントをデータポイントの近くに配置したいだけです。たとえば、3と4の間の緑色の線のセグメントだけです。データセットは次の場所にあります。
TEST.csv：https：//www.dropbox.com/s/aphd5ts9hxlm2wj/TEST.csv？dl = 0
TEST1.csv：https：//www.dropbox.com/s/dp3diwu4tuynbjp/TEST1.csv？dl = 0
TEST2.csv：https：//www.dropbox.com/s/b6zr88ottf3wmjg/TEST2.csv？dl = 0
TEST3.csv：https：//www.dropbox.com/s/o0qc2987gb04g7m/TEST3.csv？dl = 0
B.シャンカール
それを行う1つの方法は、次を使用することclipです。
data = read.csv("TEST.csv", header = FALSE)
plot(data$V1,data$V2)
fit <- lm(data$V2~data$V1)
abline(fit, col=1)
data1 = read.csv("TEST1.csv", header = FALSE)
clip(min(data1$V1), max(data1$V1), min(data1$V2), max(data1$V2))
fit1 <- lm(data1$V2~data1$V1)
abline(fit1, col=2)
data2 = read.csv("TEST2.csv", header = FALSE)
clip(min(data2$V1), max(data2$V1), min(data2$V2), max(data2$V2))
fit2 <- lm(data2$V2~data2$V1)
abline(fit2, col=3)
data3 = read.csv("TEST3.csv", header = FALSE)
clip(min(data3$V1), max(data3$V1), min(data3$V2), max(data3$V2))
fit3 <- lm(data3$V2~data3$V1)
abline(fit3, col=4)
したがって、私が行っているのは、近似されたラインプロットをそれぞれのデータセット範囲に制限することです。制限は非常に厳しいですが、データセットの範囲から少し外れたフィットラインを取得するために再スケーリングすることができます。
この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。
侵害の場合は、連絡してください[email protected]
編集
関連記事
Related 関連記事
- 1
データセットからの20の100サンプルと、母集団回帰直線とともに回帰直線を描画します
- 2
Rの重回帰から「回帰直線」をプロットします
- 3
混合モデルの回帰直線でプロットを作成します
- 4
Rのggplot2ドットプロットに線形回帰直線を追加する
- 5
計算の線形回帰直線をプロットする
- 6
回帰係数から散布図に回帰直線をプロットします
- 7
プロットされた行列に回帰直線を追加する
- 8
散布図の各点のセットに線形回帰直線を追加するためにablineを使用する場合のコーディングエラー
- 9
散布図の各点のセットに線形回帰直線を追加するためにablineを使用する場合のコーディングエラー
- 10
ggplot2でgeom_smoothを使用して破線の回帰直線をプロットします
- 11
実際のデータを含むプロットに回帰直線を追加する
- 12
プロットの回帰直線を延長する方法は？
- 13
R plotrixパッケージを使用して、2つのy軸プロットに2つのポイントグループの回帰直線をそれぞれ追加する方法
- 14
geom_smoothを使用して回帰直線を追加し、Rの離散x軸を使用してプロットします
- 15
Seabornのペアプロットの回帰直線の色を変更します
- 16
Seabornを使用してヘクスビンに回帰直線をプロットする方法は？
- 17
ggplotで複数の線形回帰直線をプロットする
- 18
Python / Matplotlib：切片と傾きを指定してプロットに回帰直線を追加
- 19
GGPlotを使用して2つの破線の回帰直線をプロットする方法
- 20
「ペア」関数を使用して作成されたプロットの上に線形回帰直線をプロットする方法
- 21
TraMineRエントロピープロットに回帰直線を追加するにはどうすればよいですか？
- 22
R：プロットに複数の回帰直線とレスカーブを追加
- 23
各ファセットに2つの回帰直線方程式とR2を追加する方法は？
- 24
逆指数を使用して回帰直線をプロットする
- 25
Plotly：plotlyを使用して回帰直線をプロットする方法は？
- 26
式を指定して回帰直線をプロットする方法
- 27
ggplotで回帰直線をプロットする方法は？
- 28
回帰直線をプロットする方法は？
- 29
Pythonをプロットする回帰直線
コメントを追加