Chinaunix首页 | 论坛 | 博客
  • 博客访问: 583739
  • 博文数量: 69
  • 博客积分: 2204
  • 博客等级: 大尉
  • 技术积分: 808
  • 用 户 组: 普通用户
  • 注册时间: 2009-10-11 22:37
个人简介

..微笑着看着杯中的花茶一片片撑开.. ..透明的花瓣里水破开的声音很轻微..

文章分类

全部博文(69)

文章存档

2018年(1)

2017年(2)

2016年(10)

2015年(8)

2014年(6)

2013年(6)

2012年(4)

2011年(8)

2010年(12)

2009年(12)

分类: 大数据

2015-05-14 20:09:52


  1. 降序排列的条形图

点击(此处)折叠或打开

  1. library("ggplot2")

  2. p <- ggplot(mtcars, aes(reorder(row.names(mtcars), -qsec), qsec)) # 载入数据;用reorder按qsec的值对车辆的名字进行排序,-qsec表示降序排列;
  3. p <- p + geom_bar(stat = "identity", fill = "steelblue") # 指定条形图并设定颜色;
  4. p <- p + labs(x = "Cars", y = "Q seconds") # 指定横纵坐标名称;
  5. p <- p + theme(text=element_text(family = "serif", size = 24)) # 指定图片中的字体及大小;
  6. p <- p + theme(axis.text.x=element_text(angle = 90, size = 12, colour = "black"), axis.text.y=element_text(size = 16, colour = "black")) # 设定x、y轴,将x轴的文字旋转90度;
  7. p
阅读(2260) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~