随便画一个百分比堆积柱状图
活不多说直接上代码:
library('ggplot2') #加载所需的包
data.diet <- data.frame(fre = c(7,71,33,45), diet = c('Omnivore', 'PlantSeed', 'Omnivore', 'PlantSeed'), beh = c('L', 'L', 'S', 'S')) #创建数据,这是某一物种的食性数据
ggplot(data.diet, aes(diet, fre, fill = beh))+
geom_bar(stat = 'identity', position = 'fill', width = 0.7)+
labs(x = 'Diet', y = 'Frequency (%)', fill = 'Food Hoarding Behavior')+
theme(legend.position = 'right',
panel.grid = element_blank(),
panel.background = element_blank(),
panel.border = element_rect(fill = NA, size = 1),
axis.title = element_text(size = 14),
axis.text = element_text(size = 12))+
scale_fill_manual(values = c('#003371', '#f35336'),
labels = c('Larder hoarding', 'Scatter hoarding'))
最后得到的图是这样的: