自定义博客皮肤VIP专享

*博客头图:

格式为PNG、JPG,宽度*高度大于1920*100像素,不超过2MB,主视觉建议放在右侧,请参照线上博客头图

请上传大于1920*100像素的图片!

博客底图:

图片格式为PNG、JPG,不超过1MB,可上下左右平铺至整个背景

栏目图:

图片格式为PNG、JPG,图片宽度*高度为300*38像素,不超过0.5MB

主标题颜色:

RGB颜色,例如:#AFAFAF

Hover:

RGB颜色,例如:#AFAFAF

副标题颜色:

RGB颜色,例如:#AFAFAF

自定义博客皮肤

-+
  • 博客(11)
  • 收藏
  • 关注

原创 解决Error in file(con, “w“) : cannot open the connection问题

临时文件缺失相关错误:Error in file(con, "w") : cannot open the connection

2022-09-17 17:58:03 6288

原创 ggplot 绘制四宫格散点图

利用ggplot绘制多个散点图在一个画布上

2022-07-22 17:37:18 393

原创 memory内存管理系列函数咋不能用了

这是怎么情况?函数不能用了?>memory.limitfunction (size = NA) { warning("'memory.limit()' is no longer supported", call. = FALSE) Inf}<bytecode: 0x000001f7bba294a8><environment: namespace:utils>

2022-05-21 16:40:25 7680 31

原创 如何做到循环画图

循环画图实例展示m(list = ls())data = read.delim("E:\\Rwork\\0228.txt",skip = 3,header = T)cancer.types = c("BLCA","KIRC","LUSC","PRAD")pdf("E:\\Rwork\\5.12.pdf",width = 2.5*2,height = 2.5*2)par(mfrow = c(2,2),mgp = c(2,1,1),mar=c(2,3,2,2))for(c in cancer.typ

2022-03-29 11:35:08 704

转载 推荐不保存不必要的对象的操作符:%>%

a <- filter(mtcars, carb > 1)b <- group_by(a, cyl)c <- summarise(b, Avg_mpg = mean(mpg))d <- arrange(c, desc(Avg_mpg))print(d)# A tibble: 3 x 2 cyl Avg_mpg 1 4 25.92 6 19.73 8 15.1以这种方式对多个函数排序,您可能会保存多个

2022-03-27 21:54:12 125

原创 获取函数源代码及明确函数所处包的位置,达到调用函数目的

获取函数源代码1、最简单粗暴的一种方式就是直接输入函数名2、当涉及函数存在多种计算方法时,则可以用methods(),明确具体使用函数,确定函数后,直接输入函数名即可。3、可以通过getAnywhere()明确函数所处包的名称以及函数具体源代码要是还找不到,就在安装包里看看有没有,没有的话,基本上就是看不到了。另外,*getAnywhere()*明确函数所处包的位置还是很日常可用的,当你直接调用某函数时,你会发现用不了,但是明确了包名,通过安装包名称+:::+函数名,就可调用该函数,希望对

2021-10-27 12:28:10 268

原创 常见的五种分类算法

k-近邻、决策树、朴素贝叶斯、神经网络、支持向量机分类算法(以iris为例)所需安装包:ibrary(class)##knnlibrary(C50)##决策树library(e1071)##朴素贝叶斯and支持向量机library(neuralnet)##神经网络构造算法精度函数##knn_acc functionknn_acc <- function(train.data,test.data,k){ pre_knn = knn(train.data[,1:4],test.dat

2021-06-16 23:31:28 14709 2

原创 根据k-近邻定义构建K近邻函数

利用knn定义构造函数,并通过十折交叉检验获取最优K值,最后计算算法精度(以iris数据为例)1、利用k近邻定义,构造knn函数knn_define <- function(train.data,test.data,k1){ train.len = nrow(train.data) test.len = nrow(test.data) ## calculate distances between samples dist = as.matrix(dist(rbind(test.da

2021-06-16 23:15:56 147

原创 解决Rstudio打开空白

近期更新了下Rstudio,突然出现打不开的情况,看了两天,终于让我解决了,解决方法如下:首先检查:1、R语言安装指定为64位(其实安装时按默认方式就行,现在电脑大多数都是64的);2、R语言和Rstudio的安装父目录要为同一个,你可以选择一个盘直接在里面创建一个R文件夹,把R语言和Rstudio两个安装路径选择我们创建的R文件夹就可以了;3、R语言和Rstudio的安装路径不要有汉字,这个是必须知道的。4、有些人还是会显示空白,就可以选择右键选择以管理员身份运行,如果可以进了,可以用以下方式

2021-04-25 23:55:34 21949 9

原创 放大你的Rstudio窗口字体

放大你的Rstudio窗口字体近期一直在跑代码,原本的字体真的眯眼看,十分难受,有同感的可以参考我的办法。打开tool,进入Global option,找到下面这个你就可以更改你的窗口外貌!比例自己选,我觉得130%就足够大了,然后点击????就好了。...

2021-04-08 16:48:03 8053 2

原创 R语言——矩阵中删除缺省值可用的函数

矩阵中删除缺省值可用的函数(na.omit、 subsets、 complete.cases、 which)1、创建数据data = matrix(rexp(100,rate = 2),25,4)data[1,2] = NAdata[10,2] = NAdata[10,3] = NA2、删除整个矩阵中含缺省值的行##最常用且简单粗暴的方法data.na = na.omit(data)##利用subset函数删除矩阵中指定列(以第二列为例)中有缺省值的行data.row.na

2021-03-15 10:13:37 1729

空空如也

空空如也

TA创建的收藏夹 TA关注的收藏夹

TA关注的人

提示
确定要删除当前文章?
取消 删除