如果遇到没有xx包的情况使用下面命令安装对应的包(绿色字体为对应包名称)
install.packages('tidyverse')
首先数据要整理成如下的excel表(模板如下)
绘制代码如下:
library(tidyverse)
library(readxl)
data <- read_xlsx('C:/Users/86150/Desktop/11right.xlsx',1)
data
p1 <- ggplot(data,aes(x=Team,y=Val,fill=Type,order=desc(Type)))+
geom_bar(stat='identity',
width=0.5,
colour='black',
position='dodge')+
scale_fill_manual(values = c("#9AC6D9","#FF847B","#FAECBC"))
p1
绿色字体按照自己实际情况更改。
输出如下: