ความยืดหยุ่นของธีม
การแสดงผลข้อมูลด้วย ggplot2 เบื้องต้น
Rick Scavetta
Founder, Scavetta Academy
การกำหนดอ็อบเจกต์ธีม
z <- ggplot(iris, aes(x = Sepal.Length, y = Sepal.Width, color = Species)) +
geom_jitter(alpha = 0.6) +
scale_x_continuous("Sepal Length (cm)", limits = c(4,8), expand = c(0,0)) +
scale_y_continuous("Sepal Width (cm)", limits = c(1.5,5), expand = c(0,0)) +
scale_color_brewer("Species", palette = "Dark2", labels = c("Setosa", "Versicolor", "Virginica"))
การกำหนดอ็อบเจกต์ธีม
z + theme(text = element_text(family = "serif", size = 14),
rect = element_blank(),
panel.grid = element_blank(),
title = element_text(color = "#8b0000"),
axis.line = element_line(color = "black"))
การนำอ็อบเจกต์ธีมกลับมาใช้ซ้ำ
z + theme_iris
การนำอ็อบเจกต์ธีมกลับมาใช้ซ้ำ
m <- ggplot(iris, aes(x = Sepal.Width)) +
geom_histogram(binwidth = 0.1,
center = 0.05)
m
การนำอ็อบเจกต์ธีมกลับมาใช้ซ้ำ
m +
theme_iris
การนำอ็อบเจกต์ธีมกลับมาใช้ซ้ำ
m +
theme_iris +
theme(axis.line.x = element_blank())
การใช้ธีมในตัว
ใช้ฟังก์ชัน theme_*() เพื่อเข้าถึงธีมในตัว
z +
theme_classic()
การใช้ธีมในตัว
ใช้ฟังก์ชัน theme_*() เพื่อเข้าถึงธีมในตัว
z +
theme_classic() +
theme(text = element_text(family = "serif"))
แพ็กเกจ ggthemes
ใช้แพ็กเกจ ggthemes สำหรับฟังก์ชันเพิ่มเติม
library(ggthemes)
z +
theme_tufte()
การอัปเดตธีม
z
การกำหนดธีม
theme_set(original)
# Alternatively
# theme_set(theme_grey())
