Konfidenzintervall zu Ggplot2 in R hinzufügen

Die Bibliothek ggplot2 wird verwendet, um verschiedene Graphen zu zeichnen. Wir können die Methode geom_smooth() oder geom_ribbon() verwenden, um dem Diagramm Konfidenzintervalllinien oder -bänder hinzuzufügen.

Dieses Tutorial demonstriert das Hinzufügen eines Konfidenzintervalls zu ggplot2 in R.

Konfidenzintervall zu ggplot2 in R hinzufügen

Zuerst müssen wir den Datenrahmen erstellen, auf dem wir das ggplot2 zeichnen werden.

Beispielcode:

x <- 1:80
y <- rnorm(80) + x / 8
low <- y + rnorm(80, - 2, 0.1)
high <- y + rnorm(80, + 2, 0.1)
data_frame <- data.frame(x, y, low, high)
head(data_frame)

Der obige Code erstellt einen Beispieldatenrahmen mit 80 Zeilen und vier Spalten; x und y sind die Werte, die geplottet werden, und die Werte hoch und niedrig sind die Konfidenzintervalle für diese Werte.

Siehe Ausgabe für den Code, der der Kopf des Datenrahmens ist:

  x          y         low     high
1 1  0.7819640 -1.29439898 2.719669
2 2  0.8893052 -1.09524369 2.885744
3 3  1.8762126  0.03061524 3.910596
4 4 -0.3713966 -2.34534103 1.683949
5 5  1.9099850 -0.04985367 4.026922
6 6  1.2793110 -0.82542732 3.199673

Der nächste Schritt ist das Plotten des ggplot2. Aber zuerst müssen wir das Paket ggplot2 installieren und laden:

install.packages("ggplot2")
library("ggplot2")

Sobald das Paket geladen ist, können wir jetzt den ggplot plotten:

gg_plot <- ggplot(data_frame, aes(x, y)) +
  geom_point()
gg_plot

Der obige Code zeichnet das Diagramm:

Mit den Methoden geom_smooth() oder geom_ribbon() können wir endlich das Konfidenzintervall zu ggplot2 hinzufügen.

Konfidenzintervalllinien mit der Methode geom_smooth() hinzufügen:

## Add confidence interval lines
gg_plot + geom_smooth(aes(ymin = low, ymax = high), alpha = 0.2)

Fügen Sie Konfidenzintervallbänder mit der Methode geom_ribbon() hinzu:

Vollständiger Beispielcode

Hier ist der vollständige Beispielcode, der in diesem Tutorial verwendet wird.

x <- 1:80
y <- rnorm(80) + x / 8
low <- y + rnorm(80, - 2, 0.1)
high <- y + rnorm(80, + 2, 0.1)
data_frame <- data.frame(x, y, low, high)
head(data_frame)

install.packages("ggplot2")
library("ggplot2")

gg_plot <- ggplot(data_frame, aes(x, y)) +
  geom_point()
gg_plot

## Add confidence interval lines
gg_plot + geom_smooth(aes(ymin = low, ymax = high), alpha = 0.2)

## Add confidence interval bands
gg_plot + geom_ribbon(aes(ymin = low, ymax = high), alpha = 0.2)