- 直方图
单个直方图:
mycol <- c("#377EB8","#FF7F00","#4DAF4A") #定义颜色变量
p0 <- ggplot(data=dt1,aes(x=index1))+
geom_histogram(fill = mycol[1],position = 'identity',colour = "black",binwidth = 8,alpha = .6) +#binwidth分组宽度
labs(
title = "总指数-直方图",
x = NULL,
y = NULL
)+
theme_economist();p0
分类直方图
p1 <- ggplot(data=dt1,aes(x=index1))+
geom_histogram(aes(fill = city) ,position = 'identity',colour = "black",binwidth = 8,alpha = .6) +#binwidth分组宽度
labs(
title = "总指数-直方图",
x = NULL,
y = NULL
)+
theme_economist();p1