1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
| rm(list = ls())
library(tidyverse)
library(ggplot2)
library(ggsci)
library(reshape2)
data = melt(iris, id.vars = ncol(iris))
p0 = ggplot(data, aes(Species, value)) +
geom_bar(aes(fill = variable),
stat = 'identity',
position = 'dodge') +
scale_y_continuous(expand = c(0,0)) +
scale_fill_aaas() +
theme_bw()
ggsave(p0, filename = '普通柱状图.pdf',width = 5, height = 5)
p1 = ggplot(data, aes(Species, value)) +
geom_bar(aes(fill = variable),
stat = 'identity') +
scale_y_continuous(expand = c(0,0)) +
scale_fill_aaas() +
theme_bw()
ggsave(p1, filename = '堆叠柱状图.pdf',width = 5, height = 5)
p2 = ggplot(data, aes(Species, value)) +
geom_bar(aes(fill = variable),
stat = 'identity',
position = 'fill') +
scale_y_continuous(labels = scales::percent) +
scale_fill_aaas() +
theme_bw()
ggsave(p2, filename = '百分比柱状图.pdf',width = 5, height = 5)
data.2 = data %>%
mutate(cat = paste(data$variable, data$Species, sep = '_'))
data.2 = aggregate(data.2$value, by = list(as.character(data.2$Species),
as.character(data.2$variable)), FUN = sum)
colnames(data.2) = c('Species', 'variable','value')
sum.temp = aggregate(data.2$value, by = list(data.2$Species), FUN = sum)
data.2$per = ifelse(data.2$Species == 'setosa',
data.2$value / sum.temp[1,2],
ifelse(data.2$Species == 'versicolor',
data.2$value / sum.temp[2,2],
data.2$value / sum.temp[3,2]))
data.2$per2 = paste(round(data.2$per *100, 2), '%', sep = '')
data.2$variable = factor(data.2$variable, levels = unique(data.2$variable))
p3 = ggplot(data.2, aes(Species, per,
fill = variable,
label = per2)) +
geom_col(position = position_stack()) +
geom_text(position = position_stack(vjust = .5),
size = 2.5, color = 'white') +
scale_y_continuous(labels = scales::percent) +
theme_bw() +
scale_fill_aaas() +
theme(axis.text = element_text(color = 'black'))
ggsave(p3, filename = '带百分比标签的堆积柱状图.pdf',width = 5, height = 5)
|