加载中…
博文
博文
标签:

r语言

excel

经纬度

百度

rcurl

分类: R语言

很多人问我怎么用R语言抓取经纬度数据,这里举一个小小的例子抛砖引玉:

​上图是摘取部分代码,首先,我们需要加载RCurl包,用来通过URL获取数据,然后加载rjson,因为返回的数据是json格式。最后我们加载了WriteXLS包,这是一个我用的比较顺手的直接生成excel文件的包,非常好用。但是在windows平台需要安装和配置perl环境。

 

标签:

社交网络图

r

shiny

shinyapps

igraph

分类: R语言

@conda  

   

rstudio推出了shiny和shinyapps,shiny可以帮助我们更快更好的开发一些app,然后shinyapps可以提供了一个免费的云服务器,供我们发布app。今天跟大家介绍一下具体怎么使用这些工具来开发app。我也只是抛砖引玉,更多技巧还需要大家积累和挖掘学习。

 

在之前我们也聊过如何构建一些服务器架构来发布我们的R代码,比如之前说的PHP-MySQL-Rserve方式,虽然我们现在可以使用shiny,但是我还是觉得PHP-MySQL-Rserve还是会有他的用武之地。废话不多说,我们先来看看shiny和shinyapps。

 

shinyapps网址:https://www.shinyapps.io

1、安装shiny包和shinyapps包

首先我们先使用以下命令安装shiny包和shinyapps包:

install.packages('shiny')

install.packages('devtools')

devtools::install_github('rstudio/shinyapps')

 

2、新建一个shiny项目

标签:

r语言

pm2.5

中国地图

作图

rworldmap

分类: R语言

@Conda  

这其实是一段欠了很久代码了,很多人都在以前那篇文章下面留言,说运行不了,确实会运行不了,因为我少交代了一个数据。

 

标签:

it

分类: Shell

用sed替换分隔符,将不规则的空格、逗号以及制表符统一替换为制表符:

 sed -i 's/\s+/\t/g' file

上一条执行有误,查原因:+需要转义

 sed -i 's/\s\+/\t/g' file

(2014-02-17 15:35)
标签:

it

分类: R语言

R语言用了这么久,经常在使用过程中使用rbind,觉得rbind这个函数挺好的,可以直接将数据框上下拼接。从来没有考虑过其效率问题。年前写了一个脚本,数据达到了千万行。习惯性的使用rbind来收集数据,这个脚本从年前到年后都没运行完,让我大伤脑筋,到底是R效率低下还是我的算法拙劣呢?

http://s7/mw690/001aVrkety6GEUHoa1g66&690

在多次修改算法后,我开始怀疑rbind函数的效率了。

脚本的主要意思比较两种方法的运行时间:

方法1:直接生成data.frame,然后再用rbind拼接data.frame

方法2:先生成向量,再在循环最后使用data.frame生成数据框

结果显示,当数据量增大时,rbind会耗费大量时间,而data.frame可以节约大量时间。

脚本如下:

m = seq(from=1000,to=10000,by=1000)
rb = d = NULL

for (n in m){
start = Sys.time()
a = b = c =NULL

标签:

matrix

data.frame

list

数据结构

conda

@Conda

要毕业了,怕毕业后再也没有机会拾起R语言,所以趁早把这些写下来。

一般来讲,R语言中有三种数据结构,第一种是数组,第二种是列表,第三种是数据框。

 

第一种: 数组(包括向量和矩阵)。

数组可以用来储存数值型(numeric)、逻辑型(logical)和字符型(character)三种类型的数据。

例如:

  储存字符型数据  

(2014-01-07 16:10)
标签:

去极值

conda

grubber

文化

分类: R语言

@Conda  好久好久没有碰过R语言了,正巧赶着今天要汇报,休息了一周后感觉没东西汇报,赶紧看了点文献,编了个proposal应付下。言出必行,既然做了计划,那就得完成。赶巧这事需要去极值。其实老早就打算写个R脚本自动去极值,但是人毕竟还是懒的,今天没办法了,于是自己写一个吧,写的挺简单的,也算是抛砖引个玉,这个脚本最主要是用了while函数,其实在写R脚本里面,while函数用得很少。这里将while函数拿出来,用一下,大伙有更好修改意见的,可以提出来,咱一起改进。

library(outliers)

####Set parameters######
######set input file name
file = 'CHI/pheno.txt'
######set which column will be used
index = 3
######set threshold
threshold = 0.05


outfile = paste(file,'remove.outliers',sep='.')
x = read.table(file,header=T)

p=0
while(p < threshold)
{
  est = grubbs.test(x[,index])
  p = est$p.value
  if(p < threshold)
  {
    x = x[abs(x[,index]) != max(abs(x[

(2013-06-13 13:24)
标签:

r语言

conda

bioagct

it

R语言的逻辑操作包括以下几项:

 

    取非

如:

> x <- TRUE

> !x

输出结果为: FALSE

如:

> x <- c(T,T,F,T,F)

> !x

输出结果为:F,F,T,F,T

 

和 &&

这两者都是逻辑与,操作都是x&y和x&&y

如:

 
						
标签:

r语言

rstudio

it

分类: R语言











控制台


功能 Windows & Linux Mac
移动鼠标到控制台
Ctrl+2 Ctrl+2
控制台清屏
Ctrl+L Command+L
移动鼠标至第一行
Home Command+Left
移动鼠标至最后一行
End Command+Right
历史记录翻滚
Up/Down Up/Down
弹出历史记录栏
Ctrl+Up Command+Up
终止目前命令
Esc Esc
改变工作路径 Ctrl+Shift+K Ctrl+Shift+K
标签:

r语言

it

分类: R语言
转换后可直接用于levelplot等函数

matrix.grid<-function(matrix)
{
    data.<-numeric()
    x<-numeric()
    y<-numeric()
    
    for(i in 1:dim(matrix)[1])
    {
        for(j in 1:dim(matrix)[2])
        {
            x<-c(x,i)
            y<-c(y,j)
            data.<-c(data.,matrix[i,j])
        }
    }
    data.frame(x,y,z=data.)
}

  

新浪BLOG意见反馈留言板 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 产品答疑

新浪公司 版权所有