上一页 1 ··· 138 139 140 141 142 143 144 145 146 ··· 367 下一页
摘要: R语言中unname函数用去去除数据框或者矩阵的列名及行名 001、 应用于数据框 dat <- data.frame(a = c(3, 7, 6), b = c(6, 1, 7), c = c(1, 6, 4)) ## 测试数据框 rownames(dat) <- LETTERS[1:3] ## 阅读全文
posted @ 2022-08-27 21:56 小鲨鱼2018 阅读(635) 评论(0) 推荐(0) 编辑
摘要: 001、 a = 10 b = 5 ifelse(test = a > b, yes = a - b, no = b - a) ## 如果test为真, 则表达式返回yes的值, 否则返回no的值 002、 a = 10 b = 50 ifelse(test = a > b, yes = a - b 阅读全文
posted @ 2022-08-27 21:01 小鲨鱼2018 阅读(182) 评论(0) 推荐(0) 编辑
摘要: 001、 dat <- data.frame(a = c(666, 333, 555, 777)) ## 测试数据框, 只有一列 dat x <- dat[c(3,1),] ## 提取第3行和第1行 x class(x) ## 提取数据后, 数据变为数值型 002、增加drop = FALSE参数, 阅读全文
posted @ 2022-08-27 19:09 小鲨鱼2018 阅读(1214) 评论(2) 推荐(1) 编辑
摘要: 相对于apply, lapply主要应用于list ?? 返回list?? 001、应用于数据框 dat <- data.frame(a = c(6, 3, 5), b = c(2, 6, 8), c = c(5, 2, 1)) ## 测试数据框 dat lapply(dat, min) ## 返回 阅读全文
posted @ 2022-08-27 18:20 小鲨鱼2018 阅读(492) 评论(0) 推荐(0) 编辑
摘要: 前期处理:https://www.jianshu.com/p/fef17a1babc2 #可视化对每个主成分影响比较大的基因集 001、 dat <- pbmc[["pca"]]@feature.loadings ## 绘图数据 dat[1:3, 1:3] par(mai = c(1, 1, 1, 阅读全文
posted @ 2022-08-27 17:54 小鲨鱼2018 阅读(643) 评论(0) 推荐(0) 编辑
摘要: 前期处理参考:https://www.jianshu.com/p/fef17a1babc2 001、 dat <- pbmc[["pca"]]@cell.embeddings ## 绘图数据 dat[1:3, 1:3] plot(dat[,1], dat[,2]) ## 绘图 标准结果: 阅读全文
posted @ 2022-08-27 16:48 小鲨鱼2018 阅读(183) 评论(0) 推荐(0) 编辑
摘要: 001、 dat <- pbmc[["RNA"]]@meta.features ## 绘图数据 plot(log10(dat$vst.mean), dat$vst.variance.standardized) ## 绘图使用数据 为什么和log10函数和 ggplot2中scale_x_log10( 阅读全文
posted @ 2022-08-27 14:58 小鲨鱼2018 阅读(346) 评论(0) 推荐(0) 编辑
摘要: R中any运算符用于判断逻辑向量中是否至少有一个是TRUE。 001、 any(c(FALSE, FALSE, FALSE)) ## 用于判断逻辑向量中是否至少一个为TRUE any(c(FALSE, FALSE, TRUE)) any(c(TRUE, TRUE, TRUE)) 阅读全文
posted @ 2022-08-27 14:23 小鲨鱼2018 阅读(433) 评论(0) 推荐(1) 编辑
摘要: 001、 %||% 函数用于判断 左侧变量是否为NULL, 如果左侧为NULL, 则返回右侧的变量; 否则,返回左侧的变量 library(rlang) x = NULL y = 10 x %||% y ## 左侧变量x为NULL, 则返回右侧变量y的值 x = 888 x %||% y ## 左侧 阅读全文
posted @ 2022-08-27 14:20 小鲨鱼2018 阅读(625) 评论(0) 推荐(0) 编辑
摘要: 001、 feelings <- c("sad", "afraid") for (i in feelings) { print( switch (i, ## 依次匹配i happy = "a am glad you are haay", afraid = "there is nothing to f 阅读全文
posted @ 2022-08-27 14:03 小鲨鱼2018 阅读(141) 评论(0) 推荐(0) 编辑
上一页 1 ··· 138 139 140 141 142 143 144 145 146 ··· 367 下一页