学习R语言已经整整一年光景了， 是时候整理一下自己学习以来的收获和成就。...以下是我学习以来自己练习过程中的一些案例，包括给别人定做的报告、高仿的商务图表、以及我尝试着创新出的一些好玩的创意图表，集中分享给大家。...以上所有图表（不含文字云）都是基于R语言ggplot2包绘制； 回首学习的过程，虽然很痛苦但也都挺过来了，没有专门学习R语言的相关课程（几乎也不存在这种可能，因为我在案例中融入的元素并不是来自于R语言本身...，而是以前积淀的可视化基础），也几乎没有正儿八经的看完一本R语言可视化的参考书。...也许学习技能的最好方式，就是立马用起来，做一些有趣的事情，时刻保持着热情，那么总能有所收获！
在10月CRAN更新的R包中，发现了一个挺有意思的R包——customLayout，听名字就很神奇。...这个包不仅支持数字拼图，还支持R内置的base绘图对象、grid绘图对象等（也就是支持ggplot2对象）。...： 通过设置简单的数字矩阵以及对应的宽高比，可以非常方便的设置出来数字拼图： library(customLayout)library(magrittr) lay <- lay_new( mat...这里就将lay2嵌入到lay模块的第四个区域，但may2内部的布局结构任然不变。...customLayout包的版式布局思想非常简单，就是基于数值矩阵的模块化分割，同时不同层级的模块也可相互拼接，这样就可以像拼七巧板一样拼出很多奇形怪状的版式出来，甚至你使用这种版式来设计一个富有美感的超照片拼图或者海报都有可能
图片以下是一个使用R语言和httrOAuth库的下载器程序，用于下载的内容。程序使用以下代码。...# 安装和加载必要的库install.packages("httr")install.packages("httrOAuth")library(httr)library(httrOAuth)# 设置http_proxy...<- "duoip/get_proxy"# 获取网站的HTML内容html <- GET("", httr::set_proxy(http_proxy))# 将HTML...接下来，使用GET函数获取网站的HTML内容，并设置服务器。最后，将获取到的HTML内容保存为一个名为html的文件。在运行程序之前，请确保网络环境允许访问。
如果关注的是变量的相对大小对样品分类的贡献，则应SCALE，以防数值高的变量导入的大方差引入的偏见。但是定标(scale)可能会有一些负面效果，因为定标后变量之间的权重就是变得相同。...特征向量主要起转换作用，其数值不能说明什么问题，解释力更强的是载荷loadings，但很多R输出中经常混用，egien vector与loadings。...列上看，不同变量对某一PC的loadings的平方和等于其征值，因此每个变量的loadings值可表征其对PC的贡献。...这两个信息可以判断主成分分析的质量： 成功的降维需要保证在前几个为数不多的主成分对数据差异的解释可以达到80-90%。 指导选择主成分的数目： 1....选择的主成分足以解释的总方差大于80% (方差比例碎石图) 2. 从前面的协方差矩阵可以看到，自动定标(scale)的变量的方差为1 (协方差矩阵对角线的值)。
"b","c","d") colnames(m)[1] 0;kdf1[k,]#写函数的函数
###常规技巧#可以直接运行(x <- c(1:21))#同一行两个代码——"；"(a <- c(1:21));b <- "ds"###对单个向量进行操作#长度: 两种类似的函数month.namenchar...duplicated(x)#排序sort(x,decreasing = T)###对两个向量的操作#paste()、paste0()两者的区别x <- 1:21y <- !...c==d#循环补齐可以简化代码paste0(rep("x",times=5),seq(from=2,to=32,by=3))paste0("x",seq(2,32,3))#交集、并集intersect(...c,d)union(c,d)#重点内容——%in%（a向量中的每个值是否再b向量中存在）c%in%xx%in%c###向量筛选等#取子集中的反选“-”x <- 1:21x[c(-4:-20)]#修改向量...x[4] <- 333x#省略参数的前提——写的参数中间没有未写出来的参数#比如下面忽略了each参数，就把“2”给了未写出来的length out参数了rep(c("x","y"),times=4,each
#清空环境rn(list=ls())#逻辑运算 (与& 或|)3>2|2>930### 数据类型的判定和转换# is族函数——判断is.numeric("23")is.logical("T")...##三类相似的函数rep(c("x","d","s"),times=4,each=3)seq(from=1,to=13,by=2)x <- rnorm(n=5)round(x)##通过组合产生更加复杂的向量
今天给大家简单的介绍经典的聚类学习算法，K均值算法。...K均值算法的R语言代码 # 加载R包 library(tidyverse) # data manipulation library(cluster) # clustering algorithms...clustering algorithms & visualization # 数据准备 df <- USArrests # 数据缺失值处理 df % summarise_all("mean") # 参考资料： # https://uc-r.github.io/kmeans_clustering 最佳K=4后，重新执行...各个聚类的中心点坐标结果。 ?
, "您刚才的点击使黄石超级火山爆发了", "您刚才的点击使罗辑又换了一个女朋友", "您刚才的点击使小米公司收购了高通公司..."您刚才的点击使您的波函数坍塌了", "您刚才的点击使您的银行卡被盗刷了", "您刚才的点击使普朗克常数扩大了十倍",..."您刚才的点击熄灭了蓝色空间号二号主引擎", "您刚才的点击创造了一个小宇宙", "您刚才的点击使宇宙由开放转为闭合",..."您刚才的点击导致三体行星撞上他的主星", "您刚才的点击令人类文明将在"+(new Date()).getFullYear()+"年"+((new Date()).getMonth..."您刚才的点击使宇宙中产生了一些暗物质", "您刚才的点击引起了所有行星上的地震", "您刚才的点击使一台诺基亚摔碎了",
到处闲逛时经常能发现一些有趣的代码段，于是干脆来个大杂烩吧~ 狡猾的标题栏 这个效果很多博客都使用了，看gif图： 很有趣是不是？...实现的代码也很简单，在网页的任意地方加入即可： // 浏览器标题切换 var OriginTitile = document.title; // 保存之前页面标题...这个也可以说是烂大街了……具体效果可以直接看本页面的左下角…… 实现代码如下： <span class="smalldan...，还是老套路，在页面的任意位置加入如下<em>代码</em>即可（需要引入 jQuery） jQuery(document).ready(function($) { $("...()*10000+"光年外的一颗恒星", "您刚才的点击使头发变得乌黑浓密了", "您刚才的点击使您的波函数坍塌了", "您刚才的点击使您的银行卡被盗刷了",
有趣温馨的时间提示代码 代码如下： 在不同的时间显示不同的提示信息 <script language...; if (hours == 2) msg = "该休息了，身体可是革命<em>的</em>本钱！"; if (hours == 3) msg = "夜深人静，只有你敲击键盘<em>的</em>声音......; if (hours == 5) msg = "哇，早上的阳光不错，该去晨练了！！"...; if (hours == 6) msg = "你知道吗，此时是国内网络速度最快的时候！"...; if (hours == 7) msg = "新的一天开始了，祝你过的快乐！"
关于如何提问，如何高效沟通，其实我们讲解了非常多了，比如我一直推崇的邮件交流：如果你希望我回答你的问题 ，然后也会随机抽取粉丝提问进行解答：答读者问第一弹:R里面差异分析的limma包用法细节 。...也高度赞扬郭一些提问交流的模式，比如：求助：Zotero中添加Markdown插件失败 还亲自写了一个提问参考范文：如果这样问问题，大家可能会更趋向于帮助我 ，都是非常值得大家学习的，不过对于简单的R...如果是提问热图 好久之前的学徒问的，他绘制的热图，两个问题，首先颜色不明显，其次分组那个图例看不到了，溢出。 ? 我就建议他把数据代码打包一份，如下： ?...然后发给我，我解压后，就可以直接打开Rproj文件，使用那个 run.R 代码根据他的数据进行图表复现，如下： load(file = 'for_cor.Rdata') library(pheatmap...就是提问者想要的，一模一样的！ 这样的沟通就非常高效率，把数据代码打包一份，我里面可以重复出来他们的问题所在，根据自己的经验来帮助提问者。
可以让R不修改行列名字，PS：R语言中行列名字中不能有特殊字符； 2）row.names = 1”这个参数意思时不能把第一列作为行名；PS：R语言中行名不能重复，如果将有重复的A列设为行名，需要先不将...形式参数和实际参数 三、R包安装 1、一个未知的包，如果不知道怎么安装。...用三种方法都蒙一次，然后安装；R语言的工作路径设置在C盘也没关系，因为R包占用的空间不多。...limma") install.packages('devtools') devtools::install_github("jmzeng1314/idmap1") #括号里写作者用户名加包名 2、在R语言中...，安装R包的命令中可以加update=N，ask=N，省事。
文章目录 实例分析 步骤 数据 效果图 代码 实例分析 步骤 1.安装依赖包，导入包 2.读取数据 3.数据的预处理：空缺值处理、变量转化 4.选择模型和方法 4.1 定义X与Y 4.2 筛选变量...代码 rm(list = ls()) ## 1.安装依赖包 install.packages('glmnet') install.packages('MASS') install.packages...lambda.min) ### 增加lambda以进一步收缩 cv.model$lambda.1se coef(cv.model, s=cv.model$lambda.1se) ### 如果最终的变量数为...cox", nlambda=50, alpha=1, standardize=TRUE) plot(model.lasso,xvar="lambda",label=TRUE) # 通过正交实验找最优的模型...lambda.min) ### 增加lambda以进一步收缩 cv.model$lambda.1se coef(cv.model, s=cv.model$lambda.1se) ### 加入最终的模型由
library(qpdf) # Merge multiple PDF files into one ## 一行代码搞定 pdf_combine(c("test1.pdf","test2.pdf"),...(tidyr) options(stringsAsFactors = F) rm(list=ls()) # source("http://bioconductor.org/biocLite.R"
是什么单词的缩写，那么回答就是“‘npm是不是一个缩写’的缩写”。...还有一些有趣的例子： Linux：Linux Is Not UniX，这就有点像GNU了，但是是否属实就有待考证了。...关于Wine的真正含义，有人对“Wine Is Not an Emulator”的说法表示质疑，认为”非模拟器“的解释不过是一种娱乐性的说法，Wine的真实意思应当是是Windows Environment...，大概也是对自己集成的强大的功能洋洋得意吧。...了解这些东西，一方面在学习困倦的时候稍稍调节一下，另一方面也是体会计算机大牛们那种geek幽默，枯燥的计算机世界需要程序员们去创造快乐。 原文链接：编程语言中那些有趣的命名
R语言结合统计学方法画图实现 例如： 提示：写完文章后，目录可以自动生成，如何生成可参考右边的帮助文档 文章目录 R语言结合统计学方法画图实现 前言 一、ggplot2是什么？...二、使用步骤 1.加载我们数据分析及画图所需要的的包 2.读入数据 箱线图 增加显著性标志，加星星 双因素方差分析 总结 前言 加载我们常用的包，如ggplot2 ， 在这里我只使用R的可视化功能，前期的数据清洗及处理...，将数据转化为R可识别的数据格式， 我均是通过Python的pandas包来实现的，强烈推荐使用python清洗数据！！！！...示例：ggplot2 是R语言可视化的一个包，可视化功能非常强大。...二、使用步骤 1.加载我们数据分析及画图所需要的的包 代码如下（示例）： library(xlsx) library("Hmisc") ## to use "rcorr" library(psych)
分享5个有趣的 JavaScript 代码 作者：matrix 被围观: 1,377 次 发布时间：2011-08-13 分类：Wordpress 兼容并蓄 | 无评论 » 这是一个创建于...很多人认为编程语言只是用于工作，没有什么乐趣，其实，只要我们发挥奇思妙想，再死板的东西也有有趣的一面。这篇文章告诉大家：使用JavaScript，可以做很多很多有趣的事情。...让图片飞起来 只要把下面的代码贴到浏览器的地址栏里然后按Enter键，当前网页的所有图片都将动起来。...让网页可编辑 此JavaScript代码，可以让你实时修改任何的网页，在Firefox中，你甚至可以把修改的网页保存到起来，对于网页设计者来说，这个功能可以辅助完善页面效果。...让浏览器抖起来 改变浏览器窗口尺寸到普通模式，可能半屏的效果是最好的。把下面的代码贴到地址栏，按Enter键（貌似只有IE有效果）。
一、手动设置和映射以及区别1、手动设置：需要设置有意义的值#1）设置颜色ggplot(data = iris) + geom_point(mapping = aes(x = Sepal.Length...3、映射：按照数据框的某一列来定义图的某个属性；此外有两种方法可以自行设置颜色#1）方法一ggplot(data = iris)+ geom_point(mapping = aes(x = Sepal.Length...fill = Species)) + geom_boxplot()+ geom_jitter() #geom_point(position = "jitter")也可以 #3）图层的顺序以及如何对多个图层中的单个进行修改...")2、随机取样的函数；随机种子#随机抽样sample(1:24,3,replace=T)#该参数可以将取的元素放回整体中#将每次抽样结果固定set.seed(12)#随便一个数sample(1:24,3...,replace=T)3、拼图包4、代码可以运行但是不出图的原因5、找现成的代码：画图合辑（小洁老师/其他）；学习资料工作目录中6、画图的正确思维生信技能树：小洁老师
出版社送了一本书（R语言）给我，就是这个《R语言实战》第三版，它已经是R语言领域的“老兵”了，几乎是人手一本。 新鲜出炉的第三版，更新也很大，全面拥抱了ggplot体系。...R语言里面的某个对象不存在可能的原因有哪些呢 在R语言中，如果你试图访问一个不存在的对象，你会收到一个错误消息，比如 "object 'x' not found"。...R语言是区分大小写的，所以mydata和MyData是两个不同的对象。 对象未创建：你可能还没有创建你试图访问的对象。例如，如果你试图访问一个你还没有赋值的变量，你会收到一个错误消息。...尽可能使用更具描述性的名称。 以上这些策略可以帮助你更有效地管理你的R代码中的命名，并减少因为命名错误导致的问题。...更多的其实是R对象格式不匹配的报错 在R语言中，如果你尝试对不兼容的对象类型执行某些操作，你可能会遇到格式不匹配的错误。
领取专属 10元无门槛券
手把手带您无忧上云
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频
