Penggunaan Ggplot2 untuk Membuat Grafik Scatter dan Density

Penggunaan Ggplot2 untuk Membuat Grafik Scatter dan Density

Langkah-Langkah Membuat Grafik Scatter dan Density

Step 1/3. Load Library and Create Data Frame

Sebelum membuat grafik, kita perlu load library ggplot2 dan create data frame. Berikut adalah contoh data frame yang digunakan dalam analisis ini:

install.packages("ggplot2")
library(ggplot2)
df <- read.csv("data.csv") # replace with your own data file

Step 2/3. Create the Plots

Dalam langkah ini, kita akan membuat beberapa plot menggunakan library ggplot2. Berikut adalah contoh plot yang dibuat:

# Scatter plot of x and y variables
scatterPlot <- ggplot(df,aes(x, y, color=group)) + 
 geom_point() + 
 scale_color_manual(values = c('#999999','#E69F00')) + 
 theme(legend.position=c(0,1), legend.justification=c(0,1))
scatterPlot

# Marginal density plot of x (top panel)
xdensity <- ggplot(df, aes(x, fill=group)) + 
 geom_density(alpha=.5) + 
 scale_fill_manual(values = c('#999999','#E69F00')) + 
 theme(legend.position = "none")
xdensity

# Marginal density plot of y (right panel)
ydensity <- ggplot(df, aes(y, fill=group)) + 
 geom_density(alpha=.5) + 
 scale_fill_manual(values = c('#999999','#E69F00')) + 
 theme(legend.position = "none")
ydensity

Step 3/3. Put the Plots Together

Dalam langkah ini, kita akan menggabungkan beberapa plot yang dibuat sebelumnya menggunakan library gridExtra. Berikut adalah contoh bagaimana kita dapat menggabungkan beberapa plot pada halaman yang sama:

library("gridExtra")
grid.arrange(xdensity, blankPlot, scatterPlot, ydensity, 
 ncol=2, nrow=2, widths=c(4, 1.4), heights=c(1.4, 4))

Customized Scatter Plots

Basic Scatter Plot

ggplot(mtcars, aes(x=wt, y=mpg)) + 
 geom_point()+
 geom_smooth(method=lm, color="black")+
 labs(title="Miles per gallon \n according to the weight",
 x="Weight (lb/1000)", y = "Miles/(US) gallon")+
 theme_classic()

Change Color/Shape by Groups

p <- ggplot(mtcars, aes(x=wt, y=mpg, color=cyl, shape=cyl)) + 
 geom_point()+
 geom_smooth(method=lm, se=FALSE, fullrange=TRUE)+
 labs(title="Miles per gallon \n according to the weight",
 x="Weight (lb/1000)", y = "Miles/(US) gallon")
p + theme_classic()

Change Colors Manually

Kita dapat mengubah warna secara manual menggunakan library ggplot2. Berikut adalah contoh bagaimana kita dapat mengubah warna:

# Continuous colors
p + scale_color_brewer(palette="Paired") + theme_classic()

# Discrete colors
p + scale_color_brewer(palette="Dark2") + theme_minimal()

# Gradient colors
p + scale_color_brewer(palette="Accent") + theme_minimal()

Informasi

Analisis ini telah dilakukan menggunakan software R (ver. 3.2.4) dan ggplot2 (ver. 2.1.0).