R语言可视化——直方图及其美化技巧！

data(diamonds)

set.seed(42)

small <- diamonds[sample(nrow(diamonds), 1000), ]

ggplot(small)+geom_histogram(aes(x=price))

ggplot(small,aes(price))+geom_histogram()

ggplot(small,aes(price,fill=cut))+geom_histogram()

ggplot(small,aes(price,fill=cut))+geom_histogram(position="stack")

ggplot(small,aes(price,fill=cut,alpha = 1/10))+geom_histogram(position="identity") #position=identity,即不对直方图位置作任何变换。

ggplot(small,aes(price,fill=cut,alpha = 1/10))+geom_histogram(position="dodge") #position=dodge,将各系列位置错开成簇状直方图。

ggplot(small,aes(price,fill=cut,alpha = 1/10))+geom_histogram(position="fill") #position=fill,将各系列位置错开成堆积百分比直方图。

ggplot(diamonds, aes(carat))+geom_histogram(binwidth = 0.01)

ggplot(diamonds, aes(carat))+geom_histogram(binwidth = 0.2)

ggplot(diamonds, aes(carat))+geom_histogram(binwidth = 0.1,fill="steelblue")

ggplot(diamonds, aes(carat))+geom_histogram(binwidth = 0.1)+theme_stata()+scale_fill_stata() #以上使用了stata的主题及配色模板

ggplot(diamonds, aes(carat))+geom_histogram(binwidth = 0.1)+theme_solarized()+scale_fill_solarized() #以上使用了solarized主题及配色模板

ggplot(diamonds, aes(carat,fill="steelblue"))+geom_histogram(binwidth = 0.1)+theme_few()+scale_fill_manual(values="#FB882C")+ theme(strip.background=element_blank(),legend.position="none")

ggplot(small,aes(price,fill=cut))+geom_histogram(position="fill") +theme_wsj()+scale_fill_wsj()+theme(strip.background=element_blank(),legend.position="none")

ggplot(small,aes(price,fill=cut))+geom_histogram(position="fill") +theme_economist(base_size=14)+scale_fill_economist()+theme(strip.background=element_blank(),legend.position="none")

ggplot(small,aes(price,fill=cut))+geom_histogram()+facet_wrap(~cut)

ggplot(small,aes(price,fill=cut))+geom_histogram()+facet_wrap(~cut)+theme_wsj()+scale_fill_wsj()+guides(fill=guide_legend(title=NULL)) #关于直方图的封面技巧

ggplot(small,aes(price,fill=cut))+geom_histogram()+facet_wrap(~cut)+theme_economist(base_size=14)+scale_fill_economist()+guides(fill=guide_legend(title=NULL))

0 条评论

相关文章

2.9K8

决策树告诉你Hello Kitty到底是人是猫

Hello Kitty，一只以无嘴造型40年来风靡全球的萌萌猫，在其40岁生日时，居然被其形象拥有者宣称：HelloKitty不是猫！ 2014年八月，研究 H...

3647

3118

1254

1452

4035

SparkML模型选择（超参数调整）与调优

Spark ML模型选择与调优 本文主要讲解如何使用Spark MLlib的工具去调优ML算法和Pipelines。内置的交叉验证和其他工具允许用户优化算法和管...

4245

5036

4455

2002