随笔分类 - R语言
摘要：001、 is.finite(Inf) ## 判断是否为有穷大的数 is.infinite(Inf) ## 判断是否为无穷大的数 is.nan(NaN) ## 判断是否为非数 002、 1.无穷大 R中的无穷大用Inf表示（即Infinity，无穷大），负无穷表示为-Inf。要检查一个数是否为无穷，
阅读全文
摘要：001、 a <- c(8, 2, 3, 7, 6, 1, 2, 4) b <- c(2, 3, 6, 2, 6, 9, 3, 7) c <- c(9, 2, 7, 1, 4, 2, 8, 4) dat <- data.frame(a, b, c) ## 测试数据框 dat dat2 <- scal
阅读全文
摘要：001、 使用methods函数 methods("prcomp") ## moethods函数返回的带*号的函数不能通过直接输入函数名获取函数的源代码，需要使用getAnywhere函数 002、使用getAnywhere函数 getAnywhere(prcomp.default) 参考：http
阅读全文
摘要：001、 a <- c(0, 0, 0, 0) b <- c(9, -8, -15, 54) c <- c(8, 2, 8, 9) d <- c(0, 0, 0, 0) dat <- data.frame(a, b, c, d) ## 测试数据框 dat result <- vector() for
阅读全文
摘要：001、 a <- c(-8, 10, 7, -5) b <- c(9, -8, -15, 54) dat <- data.frame(a, b) ## 测试数据框 dat -dat ## 直接加负号 -a
阅读全文
摘要：z - score： 观测值减去平均值，然后再除以标准差，得到均值为0， 标准差为1的数据，且数据符合正太分布。 001、 dat <- c(10, 8, 2, 6) ## 测试数据 dat scale(dat) ## scale函数实现z-score 002、利用函数进行验证 dat <- c(1
阅读全文
摘要：R语言中diag函数用于获取矩阵的对角线元素 001、 dat <- matrix(1:9, nrow = 3) ## 生成矩阵（方阵，行列相等） dat diag(dat) ## 取对角线元素 002、非方阵情况 dat <- matrix(1:15, nrow = 3) ## 生成3行5列矩阵
阅读全文
摘要：R语言中set.seed()函数的作用是保证前后生成的随机数保持一致。 001、首先查看不使用set.seed函数的情况 x=rnorm(10) ## 生成10个平均值为0， 标准差为1的符合正太分布的随机数 x plot(x) 再次运行以上代码（可以发现生成的随机数发生了编号）： x=rnorm(
阅读全文
摘要：001、 dat <- rbind(a = 1:5, b = letters[1:5], c = LETTERS[1:5], d = 10:6) ## 测试数据框 dat idx <- order(c(t(row(dat))), runif(length(dat))) idx dat2 <- mat
阅读全文
摘要：001、 dat <- rbind(a = 1:5, b = letters[1:5], c = LETTERS[1:5], d = 10:6) ## 测试数据框 dat idx <- order(c(col(dat)), runif(length(dat))) ## 生成排序的索引 idx dat
阅读全文
摘要：001、R语言中row函数生成行号作为矩阵元素的矩阵 dat <- rbind(a = 1:5, b = letters[1:5], c = LETTERS[1:5]) ## 测试数据框 dat row(dat) ## row函数 002、程序实现 dat <- rbind(a = 1:5, b =
阅读全文
摘要：001、 order(c(1,1,1,2,2,2,3,3,3), c(7, 5, 2, 1, 4, 8, 9, 3, 6)) ## 首先对最小的三个参数排序， 也就是对7、5、2进行排序，结果为3， 2， 1## 然后对1、4、8进行排序及1、2、3（分别加3得： 4、5、6）## 最后对9， 3，
阅读全文
摘要：001、R 语言中的 col() 函数用于获取一个矩阵，该矩阵包含作为参数传递给它的矩阵的列数。 dat <- rbind(a = 1:5, b = letters[1:5], c = LETTERS[1:5]) dat col(dat) ## 列的序号作为矩阵每一列的元素 002、程序实现 dat
阅读全文
摘要：001、rnorm 用于生成符合正态分布的随机数 a <- rnorm(10) ## 生成10个均值为为0， 标准差为1的符合正太分布随机数 a mean(a) sd(a) a <- rnorm(10, 3, 5) ## 生成10个均值为3，标准差为5的符合正太分布随机数 a mean(a) sd(
阅读全文
摘要：001、 dat <- data.frame(a = 4:1, b = 1:4, c = 11:14) ## 测试数据框 dat <- as.matrix(dat) ## 将数据框转换为矩阵 dat c(dat) ## 按列将矩阵转换为一行数据 c(t(dat)) ## 按行将矩阵转换为一行数据
阅读全文
摘要：001、 a <- 4:1 b <- 1:4 c <- letters[1:4] d <- LETTERS[1:4] dat <- rbind(a, b, c, d) dat ## 测试数据框 idx <- c("c", "b") ## 行名索引 idx dat[idx,] ## 根据行名提取数据
阅读全文
摘要：001、 选中需要注释的代码； 按ctrl + shift + c。 取消注释， 按ctrl + shift + c。
阅读全文
摘要：001、问题 nbrOfWorkers() 002、解决方法 install.packages("future") library(future)
阅读全文
摘要：par(mar = ...)、par(mar = ...）均为调整绘图区域与边框之间的距离。 001、 par(mfrow = c(2, 2)) plot(1:10, cex = 3, col = "red", pch = 19) par(mar = c(7, 7, 7, 7)) plot(1:10
阅读全文
摘要：001、grep a <- c("cc", "ee", "ff", "gg", "aa", "bb", "dd") grep("aa", a) ## 返回匹配字符的位置索引 grep("aa", a, value = T) ## 直接返回值 002、grepl a <- c("cc", "ee",
阅读全文
浙公网安备 33010602011771号