实际工作中遇到的： RUS1m<- matrix(NA,187,36) for (i in 1:187) { for (j in 1:36) { if(is.na(io1m.m[i,j])==TRUE|is.na(io1m.m$US)==TRUE) {NA->RUS1m[i,j]} else if(io1m.m[i,j]-io1m.m$US<0) {((ebs.m[i
啊啊啊啊啊吖
2018-10-27
小师妹急匆匆的跑过来问我：txt中标题行有空值导致的标题与数据不对等，这种情况下怎么R读取呀？😅 实际上，标题行一般是不允许有空值的，因为第一行是变量行的话，就代表的一列数据的变量名，如果缺失的话，可以自己手工补上， 如果不想补上，就在read.table时，设置header=FALSE,再把第一行给去掉，就ok了😁，在学习R里的你get到了吗。
啊啊啊啊啊吖
2018-10-27
> ############################ > #1.生成数据 > set.seed(12345) > u1<-rnorm(500) > u2<-arima.sim(list(ar=0.6),n=500) #生成模拟的一阶自回归模型 > u3<-arima.sim(list(ar=.4),n=500) > y1<-cumsum(u1) #生成随机游走序列 y1 > y2<-0.4
啊啊啊啊啊吖
2018-10-27
在用latex做PPT的时候遇到一个奇葩的问题，section与subsection中不能写中文。 第一种解决问题参考： 第一，就是模板并不支持中文显示，需要CJK 或者xetex xeCJK等等来对中文支持做一些额外工作。以CJK为例：必须先引入一个 CJK 环境： \begin{CJK*}{GBK}{song} 中文 \end{CJK*} 第二，就是中文字体配置是否正确，比如CJK所指定的编
啊啊啊啊啊吖
2018-10-27
作为任何有多地区业务的公司，如果能在地图上展示业绩，是一件多么酷的事情，下面上图片。 a 这张图展现的是江苏某行的存款规模，越红说明越高，苏州是第一梯队，南京，无锡市第二梯队，徐州、南通、常州是第三梯队，其他惨白的都是苏北地区，是第四梯队。当然数据方面我进行了加工，与真实数据还是有出入的，只是做个范例。 R语言制作图表的步骤很简单，一般无非是以下流程，很多人想不明白为什么必须要用R语言来画图，有
啊啊啊啊啊吖
2018-10-27
有学妹问我，想把ggplot画的条形图4个分2*2显示 先par(mfrow=c(2,2)) 然后ggplot(q,x,y) geom_bar(stat = "identity");ggplot;g;g; 为什么只显示最后一个图，而且只有一个，而不是四个？ 这是因为：ggplot不能用par分图，可以先用ggplot包做出几张图，然后使用gridExtra包将几张图合并在一起。
啊啊啊啊啊吖
2018-10-27
（1）已知时间尺度为小时的一系列数据，现在想让小时尺度转化为半小时尺度，即已知t1,t2。现在想变为t1,t1.5,t2，并且是t1.5的值等于t1和t2的二分之一，该怎么处理? require('tidyr') full_seq(c(1, 2, 3, 4, 5), 0.5) （2）已知时间尺度为10 分钟尺度的一系列数据，现在想让10分钟尺度转化为半小时尺度，即在t0.1,t0.2,t0.
啊啊啊啊啊吖
2018-10-27
一、测试目的 1.测试R读取数据时，何种格式何种读取方式效率更高，资源占用更少。 2.为用R处理百万级数据以下人购“器”提供一点儿参考 二、测试平台： （一）硬件 电脑型号 戴尔 Inspiron5421 笔记本电脑 处理器 英特尔 第三代酷睿i5-3317U @ 1.70GHz 双核 超低电压处理器 显卡 NVID
啊啊啊啊啊吖
2018-10-26
写了一个下面的这个R指令，其中的bx1到bx10的值前面都计算出来了，然后想生成下面这个fbe的向量出来，fbe里面应该就有这十个数的。 fbe<-c(bx1,bx2,bx3,bx4,bx5,bx6,bx7,bx8,bx9,bx10) 但是当跑完了后，却出来了下面这个结果： > fbe [1] 0.10432 0.10432 0.10432 0.10432 0.10432 0.10432 0.10
啊啊啊啊啊吖
2018-10-26
我知道该用哪种统计学方法，如何找到相应的R包的名字？ 比如我想做calibration plot和decision-curve analysis (DCA)，在哪里能知道相应的R包名字？ 问题很简单，但可以让我们使用R的体验感得到很大的提升，目前我想到的解决办法是： 安装sos包，然后用sos包中的findFn（）函数查看，比如我要查boost相关的包有哪些，findFn(\"boost\")
啊啊啊啊啊吖
2018-10-26
发送图片 当您想让R生成一个绘图并将其发送到客户机浏览器时，renderPlot()函数在大多数情况下会完成这项工作。但是，当您需要更好地控制流程时，您可能需要使用renderImage()函数。 关于renderPlot() renderPlot()在R使用其正常的图形设备系统生成图像的任何时候都很有用。换句话说，任何通常介于png()和dev.off()之间的绘图生成代码都可以在rend
啊啊啊啊啊吖
2018-10-26
a Shiny也提供了下载计算结果文件的特性，这能可以很容易地构建报告系统。 要运行下面的例子，键入： > library(shiny) > runExample("10_download") 要定义文件下载的功能，在服务端用downloadHandler使用函数，在UI端使用downloadButton或 downloadLink。 shinyUI(pageWithSidebar( h
啊啊啊啊啊吖
2018-10-26
有时你希望用户能上传数据到你的应用程序里。shiny使得用户可以很容易地用浏览器上传数据，然后服务端的逻辑可以访问这些数据。 重要注解： 这一特性不支持IE9或更早版本（shiny server也同样不支持它们） 默认情况下，shiny上传的每个文件最大不能超过5MB。你可以通过shiny.maxRequestSize选项来修改这个限制。例如，在server.R的最前面加上 options(sh
啊啊啊啊啊吖
2018-10-26
a More widgets这个应用程序展示的是帮助文本和提交按钮，以及用嵌入HTML元素的方式来自定义格式。要运行例子，请键入： > library(shiny) > runExample("07_widgets") UI增强 在这个例子里，我们更新了Shiny Text程序，增加了控件，调整了格式，特别地： 增加了helpText控件，用以在输入控件旁边添加解释文本。 增加了 sub
啊啊啊啊啊吖
2018-10-26
a 示例程序Tabsets展示的是如何用选项卡（tabs）来组织输出。要运行这个例子，就执行下面的命令： > library(shiny) > runExample("06_tabsets") 选项卡面板（Tab Panels） 选项卡（tabsets）是由调用tabsetPanel函数创建的，在这函数中，又需要用tabPanel函数创建选项（tab）列表。每一个选项卡面板是由输出元素组
啊啊啊啊啊吖
2018-10-26
a sliders这个例子展示的是滑动条（slider）控件的功能，包括产生动画效果。要运行这个例子，只需键入： > library(shiny) > runExample("05_sliders") 定制化滑动条 slider控件功能非常强大，同时也可以定制化。它支持的特性有： 既可以输入单个的值，也可以输入一个范围。 自定义显示值的格式（比如，货币格式） 让滑动条在一定范围内自
啊啊啊啊啊吖
2018-10-26
在整个教程中，你会发现我们都是调用runApp来运行例子程序。 这个函数会启动shiny程序并打开浏览器以便查看程序。在shiny程序运行的过程中，R控制台的交互将被阻断，也就是说，不能在控制台运行命令。 要停止shiny程序，你只需中断R，有两种方式：（1）在R的任何前端里按下Escape键；（2）点击R环境里提供的停止按钮。 在独立进程里运行 如果你不想在运行shiny程序的时候阻断访问控制
啊啊啊啊啊吖
2018-10-26
输入和输出 在Sidebar上添加输入 我们要使用R内置的datasets包中的mtcars数据构建程序， 允许用户查看箱线图来研究英里每加仑（miles-per-gallon，简称MPG） 和其他三个变量（气缸，变速器，齿轮）之间的关系。 我们想提供一种方式来选择绘制MPG与哪个变量的图形，也提供了个选项，可选择绘图时包含或剔除异常值。为了完成这个目标，我们要往sidebar上加两个元素，一个是
啊啊啊啊啊吖
2018-10-25
Reactivity的示例程序与Hello Text很相似，但是用到了反应式编程里更多细节的概念，要运行该例子，请键入： > library(shiny) > runExample("03_reactivity") 前面几个例子给你了个初步印象——Shiny应用程序的代码长成什么样子。前面解释了反应式编程的一点概念，不过略过了大部分细节。 在本节，我们会更进一步讲解这些细节。如果你想更深入学习这
啊啊啊啊啊吖
2018-10-25
