ggplot2 -- geom_linerange 函数的简单使用

brief

需要三个参数确定一个直线，x轴位置，y轴起始位置，y轴结束位置。
有别于一些垂直辅助线，可以实现柱状图，瓷砖图等等。

example

实现柱状图

library(tidyverse)tibble(theta = seq(from = 0, to = 1, by = .1),prior = c(seq(from = 0, to = .2, length.out = 6),seq(from = .16, to = 0, length.out = 5))) %>%ggplot(aes(x = theta, ymin = -0.0005, ymax = prior)) +geom_linerange(linewidth = 4, color = "grey50") +scale_x_continuous(expression(theta), breaks = seq(from = 0, to = 1, by = .2)) +labs(title = "Prior",y = expression(p(theta))) +theme(panel.grid = element_blank())

在这里插入图片描述

实现一些线段

tibble(xstart = seq(from = 3,to = 20,by = 1),ymin = rep(0,18),ymax = seq(from = 8,to = 25,by = 1)) %>%ggplot(aes(x = xstart,ymin = ymin,ymax = ymax))+geom_linerange(aes(colour = xstart))+theme(legend.position = 0)

在这里插入图片描述

反转坐标轴

tibble(xstart = seq(from = 3,to = 20,by = 1),ymin = rep(0,18),ymax = seq(from = 8,to = 25,by = 1)) %>%ggplot(aes(x = xstart,ymin = ymin,ymax = ymax))+geom_linerange(aes(colour = xstart))+theme(legend.position = 0)+coord_flip()

在这里插入图片描述

极化坐标轴

tibble(xstart = seq(from = 3,to = 20,by = 1),ymin = rep(0,18),ymax = seq(from = 8,to = 25,by = 1)) %>%ggplot(aes(x = xstart,ymin = ymin,ymax = ymax))+geom_linerange(aes(colour = xstart))+theme(legend.position = 0)+coord_polar(theta = 'y')

在这里插入图片描述

实现瓷砖图

tibble(xstart = seq(from = 3,to = 20,by = 1),ymin = sample(seq(0,100),18),ymax = sample(seq(0,100),18)) %>%ggplot(aes(x = xstart,ymin = ymin,ymax = ymax))+geom_linerange(aes(colour = xstart))+theme(legend.position = 0)

在这里插入图片描述

tibble(xstart = seq(from = 3,to = 20,by = 1),ymin = sample(seq(0,100),18),ymax = sample(seq(0,100),18)) %>%ggplot(aes(x = xstart,ymin = ymin,ymax = ymax))+geom_linerange(aes(colour = xstart),linewidth=4)+theme(legend.position = 0)

在这里插入图片描述