zhangkx91-CSDN博客

原创一个EXCEL中若干相同格式的SHEET合并函数

此函数适用于一个EXCLE中多个sheet文件的合并，但前提是excel中的sheet 格式必须相同。**#FUNCTION : rbind_sheet( )#THIS FUNCTION CAN BE UESD FOR COMBINE ALL SHEETS IN ONE EXCEL FILE.#BY ZHANGKX , 2019.5.6rbind_sheet <- function(...

2019-05-06 20:50:36 876

原创 R语言密度曲线图

密度曲线图 ggplot(pp,aes(x=pp$FoldEnrichment,fill=new,alpha = 1/10))+geom_density()

2018-01-11 15:00:11 19094

原创 R语言分面条形图

作图library(ggplot2)pp$mod factor(pp$Term_description, levels=pp$Term_description, labels=pp$Term_description)ggplot(pp,aes(x=mod,y=p,fill=new))+ geom_bar(stat = "identity",width=0.4)+guides(fill=F

2018-01-11 14:47:28 3840

原创在地图上加入直方图

library(mapproj)library(ggplot2)library(readxl)library(plyr)#Reading boundary data from provinceschina_map <- readShapePoly("C:\\Users\\Administrator\\Desktop\\dt\\bou2_4p.shp")#Change projection m

2017-11-14 22:32:58 1510 1

原创 R语言：制作轴须图

基础包：代码如下：plot(cd_city$pm2.5,cd_city$jinniu,type="p",col=4)rug(jitter(cd_city$pm2.5))

2017-09-28 16:42:01 3363

转载 R 语言双坐标轴做法

library(plotrix) con <- file("lesson8.txt", "r", blocking = FALSE) df <- readLines(con) close(con) d <- matrix(df,ncol=3,byrow=T) Sys.setlocale("LC_TIME", "C") #参考同学的贴 d1 <- as.D

2017-09-20 19:40:22 1478

原创 R语言：批量导入文件夹中的文件

本文以csv格式为例，总结了以下几种方法：1、temp = list.files(pattern="*.csv")for (i in 1:length(temp)) assign(temp[i], read.csv(temp[i]))temp = list.files(pattern="*.csv")list2env(lapply(setNames(temp, make.names(gsub

2017-09-02 23:22:51 16812

原创 R语言：使用rvest包进行数据简单抓取

本文主要介绍用rvest包对天气后报网的空气数据进行简单的抓取。具体代码如下：library(rvest)html_session("http://www.tianqihoubao.com/aqi/chengdu-201612.html") url1 <-"http://www.tianqihoubao.com/aqi/chengdu-201601.html"url2 <-"http://

2017-09-02 23:19:32 1337

原创 R语言：ggplot做条形图和线图尝试

本文利用ggplot2包来绘制条形图和线图的一个简单体验。代码如下：qq <- factor(aa$level)ggplot(aa,aes(x=aa,y=value,fill=level,colour=qq))+geom_bar(stat="identity",width=0.5,position=position_dodge(0.6))+ geom_smooth(size=1) + g

2017-09-02 23:17:03 4559

原创 R语言:leaflet包做地图展示

leaflet包用来做地图简直太方便了，地图神器。下面介绍两个用leaflet做地图展示的方法： 1、按等级展示(按照数据的某个值的变化来控制颜色变化）library(leaflet)pal <- colorNumeric(palette = c("green","red","blue"),domain = x1_2006$X3)leaflet(xb)%>%addProviderTiles

2017-09-02 23:12:59 886

原创 R语言：leafletCN的应用

leafletCN 1、安装## 稳定版install.packages("leafletCN")## 开发版devtools::install_github("lchiffon/leafletCN")主函数介绍： regionNames：找地名函数，极其方便 demomap：有地名就给你输出一个交互、动态的区域图，真方便 geojsonMap：作用是分区块标色2、主函数介绍（1）

2017-09-02 22:27:56 2795

原创 R语言：ggplot2分类间隔作图

图形展示：其实现代码如下：library(ggplot2)x1 <- c(1.042,1.000,0.991,1.044,0.999,1.004,1.021,0.996,0.993,1.023,1.003,0.978)x2 <- c(0.995,0.996,0.979,0.994,0.993,0.985,0.971,0.989,0.975,0.968,0.996,0.954)x3 <-

2017-08-27 16:48:16 4704

原创 R语言：在同一张图作不同曲线

R语言将两条曲线作在同一张图的方法是：library(ggplot2)year<-c(1993,1998,2003,2008)Res<-c(0.0227,0.0198,0.0155,0.0147)COPD<-c(0.0138,0.0125,0.0075,0.0069)#R语言基础包作图plot(year,Res,col=2,type="b",ylim=c(0.005,0.035),xlab

2017-08-24 19:15:27 46528

zhangkx91的博客