![](https://img-blog.csdnimg.cn/20201014180756927.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
R
lalalalayahuhei
这个作者很懒,什么都没留下…
展开
-
【w3】split()、interaction()
split()按因子分组> str(split)function (x, f, drop = FALSE, ...X: 向量、列表、dataframef:因子drop:去除 empty factors levelsplit a dataframe> library(datasets)> head(airquality) Ozone Solar.R Wind ...原创 2020-03-31 10:12:02 · 105 阅读 · 0 评论 -
【w3】tapply
tapply处理分组数据> str(tapply)function (X, INDEX, FUN = NULL, ..., simplify = TRUE)X is a vectorINDEX is a factor or a list of factors (or else they are coerced to factors)> x <- c(rnorm(...原创 2020-03-30 11:22:07 · 117 阅读 · 0 评论 -
【w3】mapply
mapply( )可以同时对多个list进行运算> str(mapply)function (FUN, ..., MoreArgs = NULL, SIMPLIFY = TRUE, USE.NAMES = TRUE)list(rep(1, 4), rep(2, 3), rep(3, 2), rep(4, 1)) // rep(1,4)-> 将1重复4遍> ma...原创 2020-03-30 10:46:09 · 190 阅读 · 0 评论 -
【w3】apply
> str(apply)function (X, MARGIN, FUN, ...)MARGIN: 整数向量,指定哪个维度应该被保留> x <- matrix(rnorm(200), 20, 10) // 随机200个数,行20,列10> apply(x, 2, mean) // 保留第二个(也就是列)取平均值,也就是对每列求平均值 [1] 0.04868...原创 2020-03-30 10:31:43 · 103 阅读 · 0 评论 -
【w3】匿名函数 lapply、sapply
lapply( )对列表X里的每个元素,都函数FUN## function (X, FUN, ...)## {## FUN <- match.fun(FUN)## if (!is.vector(X) || is.object(X))## X <- as.list(X)## .Internal(lapply(X, FUN))## }## <bytecode: 0x...原创 2020-03-30 10:12:24 · 319 阅读 · 0 评论 -
【w2】Data、Time
类型日期:Data时间:POSIXct、POSIXlt(列表)as.POSIXlt()格式转换as.Date()as.POSIXlt()as.POSIXct()x <- Sys.time()x## [1] "2013-01-24 22:04:14 EST"p <- as.POSIXlt(x) //POSIXlt以列表储存names(unclass(p)) ...原创 2020-03-27 10:58:57 · 81 阅读 · 0 评论 -
【w2】function、作用域
" …"参数一旦使用“…”,“…”后面的参数必须以指定名称的形式给出,不能隐式给出改造已有函数时用,"…"代表剩下的不变my <- function(x, y, type = "1", ...){ plot(x, y, type = type, ...) // my与plot,除了x、y、type以外其他的参数不变}泛型函数> mean funct...原创 2020-03-27 10:28:12 · 76 阅读 · 0 评论 -
【w2】repeat、next、return
repeatx0 <- 1tol <- 1e-8repeat { x1 <- computeEstimate() if(abs(x1 - x0) < tol) { break } else { x0 <- x1 }}next/returnfor(i in 1:100) { if(i <= 20) ...原创 2020-03-26 09:42:30 · 128 阅读 · 0 评论 -
【w2】while 循环
count <- 0while(count < 10) { print(count) count <- count + 1}z <- 5while(z >= 3 && z <= 10) { print(z) coin <- rbinom(1, 1, 0.5) //均匀抛硬币 if(coin == 1) { #...原创 2020-03-26 09:32:35 · 176 阅读 · 0 评论 -
【w2】for 循环
以下三个for循环有相同结果x <- c("a", "b", "c", "d")for(i in 1:4) { print(x[i])}for(i in seq_along(x)) { print(x[i])}> seq_along(x)[1] 1 2 3 4for(letter in x) { print(letter)}for 语句嵌套x <...原创 2020-03-26 09:26:39 · 110 阅读 · 0 评论 -
【w2】if 语句
if(x > 3) { y <- 10} else { y <- 0}也可以y <- if(x > 3) { 10} else { 0}else不是必须,如if(<condition1>) {}if(<condition2>) {}原创 2020-03-26 08:54:05 · 77 阅读 · 0 评论 -
【w1】【swirl】矩阵matrices、 数据框dataframe
矩阵:只能存储一种数据dataframe:可存储多种数据>patients <- c("Bill","Gina","Kelly","Sean") >cbind(patients, my_matrix) //因为矩阵只能存储一种数据,char + int => char patients [1,] "Bill"...原创 2020-03-25 15:38:55 · 118 阅读 · 0 评论 -
【w1】【swirl】子集
> x [1] -0.2371400 NA 0.5923221 1.9437247 0.3403599 -1.4196407 -1.5748373 NA [9] NA NA 1.3831167 -0.1410241 NA NA -1.7172346 -0.1557368[17] -0...原创 2020-03-25 14:57:11 · 94 阅读 · 0 评论 -
【w1】【swirl】 NA 、 NAN
NANA: “not available” or “missing”NAN: “not a number” (e.g: 88/0)原创 2020-03-25 14:30:22 · 97 阅读 · 0 评论 -
【w1】【swirl】向量逻辑判断、paste( )
向量逻辑判断> num_vect <- c(0.5, 55, -10, 6)> tf <- num_vect < 1> tf[1] TRUE FALSE TRUE FALSE字符向量paste(xx, collapse=" " )> my_char <- c("My", "name", "is")> paste(my_ch...原创 2020-03-25 14:19:53 · 96 阅读 · 0 评论 -
【w1】【swirl】生成序列seq() 复制rep()
seq()生成规律的序列> seq(0,10,by=0.5) [1] 0.0 0.5 1.0 1.5 2.0 2.5 3.0 3.5 4.0 4.5 5.0 5.5 6.0 6.5 7.0 7.5 8.0 8.5 9.0[20] 9.5 10.0> my_seq <- seq(5,10,length=30)> seq(a...原创 2020-03-25 13:59:42 · 6388 阅读 · 0 评论 -
【w1】【swirl】文件路径
设置嵌套文件夹Create a directory in the current working directory called “testdir2” and a subdirectory for it called “testdir3”, all in one command by using dir.create() and file.path()dir.create(file.path...原创 2020-03-25 13:42:40 · 147 阅读 · 0 评论 -
【W1】子集subsetting
基本类型{ : 返回类型与原集合一样,可以提取多个元素[[ : list 或者 Dataframe,只能选提取一个元素$ : 提取list中的一个元素,且该元素必须有name,返回的类型可能和和原来的不同> x <- c("a", "b", "c", "c", "d", "a")> x[1][1] "a"> x[2][1] "b"> x[1:4...原创 2020-03-24 11:00:13 · 71 阅读 · 0 评论 -
【w1】读取文件
读取文件读取行时读取网页时file:open a connection to a filegzfile: “.gz” 压缩文件bzfile: ".bz"压缩文件url:网页链接con <- file("foo.txt", "r")data <- read.csv(con)close(con)等同于data <- read.csv("foo.txt")因...原创 2020-03-24 10:01:04 · 196 阅读 · 0 评论 -
【w1】向量、矩阵运算
向量> x <- 1:4; y <- 6:9> x + y[1] 7 9 11 13> x > 2[1] FALSE FALSE TRUE TRUE> x >= 2[1] FALSE TRUE TRUE TRUE> y == 8[1] FALSE FALSE TRUE FALSE> x * y[1] 6 14 24 ...原创 2020-03-24 11:06:13 · 168 阅读 · 0 评论