1.准备工作
library(ggplot2)
library(tidyverse)
##另外两个扩展包用显式引用，不加载了
2. 标签
也就是label 可以实行的修改有：
（1）标题类
标题title、副标题subtitle、右下角caption
#书上的代码有误,paste没加逗号而且少一个括号
ggplot(mpg, aes(displ, hwy)) +
geom_point(aes(color = class)) +
geom_smooth(se = FALSE) +
labs(title ="Fuel efficiency generally decreases withengine size")
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
加上副标题和右下角：
#书上的代码又是多处错误
ggplot(mpg, aes(displ, hwy)) +
geom_point(aes(color = class)) +
geom_smooth(se = FALSE) +
labs(title = "Fuel efficiency generally decreases with engine size",
subtitle =
"Two seaters (sports cars) are an exception because of their light weight",
caption = "Data from fueleconomy.gov"
)
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
（2） 坐标轴和图例标题
默认的坐标轴、图例标题都是变量名
ggplot(mpg, aes(displ, hwy)) +
geom_point(aes(color = class)) +
geom_smooth(se = FALSE) +
labs(
x = "Engine displacement (L)",
y = "Highway fuel economy (mpg)",
colour = "Car type"
)
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
坐标轴标题用数学公式替代
df <- tibble(
x = runif(10),
y = runif(10)
)
ggplot(df, aes(x, y)) +
geom_point() +
labs(
x = quote(sum(x[i] ^ 2, i == 1, n)),
y = quote(alpha + beta + frac(delta, theta))
)
3. 注释
文字注解，geom_text() 结合label
跳过有问题的 直接看比较好的啦
亮点：圈出了想要标记的点，自动调整标签位置以免重叠
best_in_class <- mpg %>%
group_by(class) %>%
filter(row_number(desc(hwy)) == 1)
ggplot(mpg, aes(displ, hwy)) +
geom_point(aes(color = class)) +
geom_point(size = 3, shape = 1, data = best_in_class) +
ggrepel::geom_label_repel(
aes(label = model),
data = best_in_class
)
不显示图例，直接把颜色分类依据覆盖在原图上
class_avg <- mpg %>%
group_by(class) %>%
summarize(
displ = median(displ),
hwy = median(hwy)
)
ggplot(mpg, aes(displ, hwy, colour = class)) +
ggrepel::geom_text_repel(aes(label = class),
data = class_avg,
size = 6,
label.size = 0,
segment.color = "blue"
) +
geom_point() +
theme(legend.position = "none")
## Warning: Ignoring unknown parameters: label.size
我发现我运行出的结果和中文书英文书结果都不一样，这就比较怀疑人生。然后简单研究了一下ggrepel这个包，发现中文书的代码应该是把geom_label_repel改成了geom_text_repel,而segment.color指的是引导线的颜色，根本没必要设置，因为设置的点比较少，并不会出现引导线。（后来又感觉毫无意义）
关于引导线的理解运行下面代码即可,改动下面的颜色就可以知道设置的是哪里啦。
ggplot(mtcars,
aes(wt, mpg, label = rownames(mtcars), colour = factor(cyl))) +
geom_point()+
geom_label_repel(aes(fill=factor(cyl)), colour="white", segment.colour="blue")
(label <- mpg %>%
summarize(
displ = max(displ),
hwy = max(hwy), #这个是最右上角那个点的坐标
label =
"Increasing engine size is \nrelated to decreasing fuel economy."
))
## # A tibble: 1 x 3
## displ hwy label
## <dbl> <dbl> <chr>
## 1 7 44 "Increasing engine size is \nrelated to decreasing fuel eco…
ggplot(mpg, aes(displ, hwy)) +
geom_point() +
geom_text(
aes(label = label), #label那一列赋值给label参数
data = label, #label数据框
vjust = "top",
hjust = "right" #这是让点位于label的右上角
)
让label紧贴右上角
#又是一段paste错代码
label <- tibble(
displ = Inf,
hwy = Inf,
label =
"Increasing engine size is \nrelated todecreasing fuel economy."
)
ggplot(mpg, aes(displ, hwy)) +
geom_point() +
geom_text(
aes(label = label),
data = label,
vjust = "top",
hjust = "right"
)
4.标度
指的是坐标轴上的刻度、名称和图例单行的名称
图例布局：整体位置通过theme(legend.position)来设置,left、right、top、botttom和none可选。
颜色映射可用scale_color_brewer(palette = "")调整， http://colorbrew2.org 给出了很多分类标度使用的配色， 使红绿对比更强烈，即使患有红绿色盲症也可区分。 scale_color_viridis()则给出了连续模拟（成为渐变色）
形状映射则可以在黑白图中发挥作用。
5.缩放
coord_cartesian()可设置 xlim 和 ylim 参数值，以确定缩放范围。这是局部放大，模拟曲线还是按照所有数据来做的，不同于取子集。
同一张图拆分（缩放）为系列图形，使用同样的标度：
先将标度设置好并赋值，后添加。
suv <- mpg %>% filter(class == "suv")
compact <- mpg %>% filter(class == "compact")
x_scale <- scale_x_continuous(limits = range(mpg$displ))
y_scale <- scale_y_continuous(limits = range(mpg$hwy))
col_scale <- scale_color_discrete(limits = unique(mpg$drv))
ggplot(suv, aes(displ, hwy, color = drv)) +
geom_point() +
x_scale +
y_scale +
col_scale
ggplot(compact, aes(displ, hwy, color = drv)) +
geom_point() +
x_scale +
y_scale +
col_scale
6.主题theme
默认的主题是灰色背景白线格子，可通过theme修改
ggplot(mpg, aes(displ, hwy)) +
geom_point(aes(color = class)) +
geom_smooth(se = FALSE) +
theme_bw()
## `geom_smooth()` using method = 'loess' and formula 'y ~ x'
7.保存图形-ggsave()
ggplot我写了详细的一个系列，应该也很好理解_
网友评论