折线图上色

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

大家谁能给我看看，怎么才能做成这样的图，谢谢啦，因论坛币不足，大家帮帮我吧，谢谢啦~

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏1 回帖

关键词：折线图 帮帮我吧 论坛币

用R语言做，各位指点下吧！

这样可以吗？

1. library(XML)
   
2. u = 'http://www.aqistudy.cn/historydata/daydata.php?city=%E5%8C%97%E4%BA%AC&month=201603'
   
3. tables <- readHTMLTable(u,stringsAsFactors = FALSE)
   
4. AQI = as.numeric(tables[[1]][,2])
   
5. E = as.factor(tables[[1]][,4])
   
6. day=c(1:length(AQI))
   
7. AQI_data = data.frame(day=c(1:length(AQI)),AQI=AQI,E=E)
   
8. library(ggplot2)
   
9. ggplot(AQI_data, aes(x=day, y =AQI,group=factor(1)))+
   
10. geom_point(shape=21,size=2)+
    
11. geom_line(aes(colour =as.character(E)),size=1)+
    
12. labs(colour = 'AQI')+
    
13. theme(legend.position ='bottom')+
    
14. theme(legend.title=element_blank())+
    
15. scale_colour_discrete(limits =
    
16.                 c('优','良','轻度污染','中度污染','重度污染','严重污染'))+
    
17. scale_x_continuous(breaks=seq(1,31,length=31),labels=c(1:31))+
    
18. ggtitle('北京市2016年3月份AQI折线图')

复制代码

zhou1_20 发表于 2016-8-3 10:07
这样可以吗？

太感谢了~

zhou1_20 发表于 2016-8-3 10:07
这样可以吗？

我用segments函数也做出来了，我对ggplot2这个包不是很熟悉，请问要想显示具体的数值，怎么办？

1. ggplot(AQI_data, aes(x=day, y =AQI,group=factor(1)))+
   
2. geom_point(shape=21,size=2)+
   
3. geom_line(aes(colour =as.character(E)),size=1)+
   
4. labs(colour = 'AQI')+
   
5. theme(legend.position ='bottom')+
   
6. theme(legend.title=element_blank())+
   
7. scale_colour_discrete(limits =
   
8.                 c('优','良','轻度污染','中度污染','重度污染','严重污染'))+
   
9. scale_x_continuous(breaks=seq(1,31,length=31),labels=c(1:31))+
   
10. ggtitle('北京市2016年3月份AQI折线图')+
    
11. geom_text(aes(label =as.character(AQI),y=AQI+15),size=3)

复制代码

zhou1_20 发表于 2016-8-3 11:33

日历图

请问下，为什么我的日历图每周的第一天是在周日开始的呢？我已经Sys.setlocale('LC_TIME', "C")##将汉字周六日改为英文周六日，还要做哪些改动呢？请教下

zhou1_20 发表于 2016-8-3 11:33

http://cos.name/2012/05/calendarheatmap/
最上面这个图