上一页 1 ··· 172 173 174 175 176 177 178 179 180 ··· 367 下一页
摘要: 001、 test <- "jjUUaaBiJJ" ## 测试字符串 newstr <- "" for (i in 1:nchar(test)) { if (substr(test, i, i) %in% letters) { newstr <- paste0(newstr, toupper(sub 阅读全文
posted @ 2022-07-07 12:22 小鲨鱼2018 阅读(523) 评论(0) 推荐(0) 编辑
摘要: 001、 test <- "xx aa yy zz" ## 测试字符串 strsplit(test, split = " ") ## split = 用于指定分割的依据, 此处设定为空格 strsplit(test, split = "") ## 指定分割依据为空白 strsplit(test, N 阅读全文
posted @ 2022-07-07 11:22 小鲨鱼2018 阅读(981) 评论(0) 推荐(0) 编辑
摘要: 001、 test <- "jknmq" ## 测试字符串 test temp <- rev(unlist(strsplit(test, NULL))) ## 逆向输出为字符 temp paste(temp, collapse = "") ## 合并为字符串 002、 test <- "jknmq" 阅读全文
posted @ 2022-07-07 10:36 小鲨鱼2018 阅读(179) 评论(0) 推荐(0) 编辑
摘要: 001、 test <- c("i", "j", "a", "k", "q") ## 测试字符向量 test paste(test, collapse = "") ## 利用paste合并为一个完整的字符串 阅读全文
posted @ 2022-07-07 10:31 小鲨鱼2018 阅读(774) 评论(0) 推荐(0) 编辑
摘要: 001、 test <- "dsrrf" nchar(test) ## 统计字符串test的长度 002、应用于字符串向量 test <- c("ewr", "e", "ew", "werer") nchar(test) 阅读全文
posted @ 2022-07-07 09:41 小鲨鱼2018 阅读(509) 评论(0) 推荐(0) 编辑
摘要: 001、rev函数逆向输出向量 test <- c("ewsf", "dsrfe", "iuuyy") test class(test) rev(test) ## 逆向输出 test2 <- 1:5 test2 rev(test2) ## 逆向输出 002、应用数数据框 a <- c(3, 5, 2 阅读全文
posted @ 2022-07-07 09:33 小鲨鱼2018 阅读(1231) 评论(0) 推荐(0) 编辑
摘要: 001、 阅读全文
posted @ 2022-07-06 22:07 小鲨鱼2018 阅读(18) 评论(0) 推荐(0) 编辑
摘要: 001、问题,计算机没有声音 002、声卡驱动 003、解决方法 004、 005、 006、 007、 008、 009、 阅读全文
posted @ 2022-07-05 17:21 小鲨鱼2018 阅读(1016) 评论(0) 推荐(0) 编辑
摘要: 001、尺寸: 002、分辨率:决定图像的清晰度 003、刷新率:决定图像的流畅度 004、面板: 阅读全文
posted @ 2022-07-05 10:32 小鲨鱼2018 阅读(292) 评论(0) 推荐(0) 编辑
摘要: 001、 pbmc <- NormalizeData(pbmc) 002、实现过程 dat <- pbmc[["RNA"]]@counts dat <- as.data.frame(dat) for (i in 1:ncol(dat)) { dat[,i] <- log1p(dat[,i]/sum( 阅读全文
posted @ 2022-06-30 20:01 小鲨鱼2018 阅读(138) 评论(0) 推荐(0) 编辑
上一页 1 ··· 172 173 174 175 176 177 178 179 180 ··· 367 下一页