关注公众号“R医学”获取更多图形绘制代码教程
晓晓
2023-07-17
##直方图
#加载ggplot2函数包
#install.packages("ggplot2")
library(ggplot2)
#创建一个数据
data <- data.frame(
name=c("A","B","C","D","E") ,
value=c(3,12,5,18,45)
)
#数据格式
data
## name value
## 1 A 3
## 2 B 12
## 3 C 5
## 4 D 18
## 5 E 45
#基本画图(最基本的条形图geom_bar)
ggplot(data, aes(x=name, y=value)) +
geom_bar(stat = "identity")
![](https://i-blog.csdnimg.cn/blog_migrate/44c63296585d7629e8a570b6e87a5deb.png)
#图形水平
ggplot(data, aes(x=name, y=value)) +
geom_bar(stat = "identity") +
coord_flip()
![](https://i-blog.csdnimg.cn/blog_migrate/31d80bf414f567da5e5cc369d14b883b.png)
#图形宽度
ggplot(data, aes(x=name, y=value)) +
geom_bar(stat = "identity", width=0.2)
![](https://i-blog.csdnimg.cn/blog_migrate/28528a3f744af30d89ce7e52acd0e5f4.png)
#控制颜色
ggplot(data, aes(x=name, y=value, fill=name )) +
geom_bar(stat = "identity") +
scale_fill_hue(c = 40) +
theme(legend.position="none")
![](https://i-blog.csdnimg.cn/blog_migrate/27cc7f33c44366855ef1621ad173a4e1.png)
#如果每一类没有直接计数好,去掉stat = "identity"即可
mtcars <- as.data.frame(factor(mtcars$cyl,labels=c("A","B","C")))
colnames(mtcars) <- "cyl"
mtcars
## cyl
## 1 B
## 2 B
## 3 A
## 4 B
## 5 C
## 6 B
## 7 C
## 8 A
## 9 A
## 10 B
## 11 B
## 12 C
## 13 C
## 14 C
## 15 C
## 16 C
## 17 C
## 18 A
## 19 A
## 20 A
## 21 A
## 22 C
## 23 C
## 24 C
## 25 C
## 26 A
## 27 A
## 28 A
## 29 C
## 30 B
## 31 C
## 32 A
# 1
ggplot(mtcars, aes(x=as.factor(cyl))) +
geom_bar(color="blue", fill=rgb(0.1,0.4,0.5,0.7) )
![](https://i-blog.csdnimg.cn/blog_migrate/bc191dc3a127c7e38f1e02c2a4facac2.png)
# 2-使用色相调整填充颜色,`c`参数指定色相的起始值,取值范围为0到360。
ggplot(mtcars, aes(x=as.factor(cyl), fill=as.factor(cyl) )) +
geom_bar( ) +
scale_fill_hue(c = 40) +
theme(legend.position="none")
![](https://i-blog.csdnimg.cn/blog_migrate/5d83c5d1792f0369b8d87ec6fce11aa5.png)
# 3-使用Brewer调色板填充颜色,`palette`参数指定调色板的名称,可以是"Set1"、"Set2"、"Set3"等
ggplot(mtcars, aes(x=as.factor(cyl), fill=as.factor(cyl) )) +
geom_bar( ) +
scale_fill_brewer(palette = "Set3") +
theme(legend.position="none")
![](https://i-blog.csdnimg.cn/blog_migrate/8b03b6153efa63ccbae86896cf103c2a.png)
# 4-使用灰度调整填充颜色,`start`参数指定灰度的起始值,取值范围为0到1,`end`参数指定灰度的结束值,取值范围为0到1
ggplot(mtcars, aes(x=as.factor(cyl), fill=as.factor(cyl) )) +
geom_bar( ) +
scale_fill_grey(start = 0.25, end = 0.75) +
theme(legend.position="none")
![](https://i-blog.csdnimg.cn/blog_migrate/4ee96ea4b840403af7f9bdae49463a06.png)
# 5-手动指定填充颜色,`values`参数指定颜色向量,可以是颜色名称或十六进制颜色代码。在这个例子中,使用了红、绿、蓝三种颜色
ggplot(mtcars, aes(x=as.factor(cyl), fill=as.factor(cyl) )) +
geom_bar( ) +
scale_fill_manual(values = c("red", "green", "blue") ) +
theme(legend.position="none")
![](https://i-blog.csdnimg.cn/blog_migrate/51146056d1a193750a4366eef51a7c0e.png)