搜索
查看: 753|回复: 0

[R] 啃书团-R-第一章-ggplot2(新人)

[复制链接]

2

主题

3

帖子

47

积分

新手上路

Rank: 1

积分
47
发表于 2018-9-29 20:04:35 | 显示全部楼层 |阅读模式
根据第一章的学习
自己设计了一个ggplot2有关的程序。
library(ggplot2)

#read in data
data = read.table("area_plot2.txt", sep="\t", header=T)
levels(data$AgeGroup)
#relevel the factor
data$AgeGroup = factor(as.character(data$AgeGroup), levels = c("<5", "5-14", "15-24", "25-34", "35-44", "45-54", "55-64", ">64"))

#draw area plot, amazing things will happen.
ggplot(data, aes(Year, Thousands, fill=AgeGroup)) +
  geom_area()

#change another colorpanel and reorder the agegroup
ggplot(data, aes(Year, Thousands, fill=AgeGroup)) +
  geom_area(color="black", size=0.2, alpha=0.4) +
  scale_fill_brewer(palette="Blues", breaks=rev(levels(data$AgeGroup)))

area_plot2.zip

4.01 KB, 下载次数: 6




上一篇:0928 chapter8
下一篇:热图
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|手机版|小黑屋|生信技能树 ( 粤ICP备15016384号  

GMT+8, 2019-12-12 17:47 , Processed in 0.022507 second(s), 30 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.