datanewlook-CSDN博客

原创 rmarkdown文件出现Unicode Character不能knit PDF？

更换pdf latex engine为xelatex，一般问题得以解决。---title: "TEST"output: pdf_document: latex_engine: xelatex---

2020-10-26 18:19:43 2902

原创 rmarkdown文件的运行环境(runtime): shiny和shiny_prerendered

runtime: shiny和shiny_prerenderedrmarkdown文件可以在shiny下运行，此时，rmarkdown可以设计交互式的，在YAML文件头设置runtime为shiny就可以了。runtime有两种模式：shiny和shiny_prerendered。shiny runtime每次用户访问这个文件的时候的时候，都需要从都生成一遍，shiny server费时费力。而另一种runtime模式：shiny_prerendered，预渲染模式，可以显著缩短html页面生成时间。执

2020-10-16 19:07:01 565

原创 R语言if(){}else{}语句和ifelse()函数的区别

首先看看定义：# if statementif(cond) exprif(cond) cons.expr else alt.expr# ifelse functionifelse(test, yes, no)这个两个函数（R语言中都是函数）相同的地方都是根据条件返回对应的值。区别在于：if语句的条件是个TRUE/FALSE值，如果是个长度>1的逻辑向量，只判断第一个TRUE/FALSE值；而ifelse是长度任意的逻辑向量，返回根据逻辑向量对应对的yes/no值组合的新向量

2020-10-14 17:57:03 4900 1

原创 R Shiny Input控件右对齐的方法

可以使用fluidrow - column 的结构，定义对应的column的align方式为right：fluidRow ( column(10, align = "left", flowLayout(selectInput("Input1", NULL, input1_strings), actionBttn("Input2", "

2020-10-09 23:21:18 613

原创 R语言缺失数据可视化

Data以mlbench的Soybean数据集为例：# load packageslibrary(mlbench)# load datasetdata(Soybean)Amelia包的missmaplibrary(Amelia)# create a missing mapmissmap(Soybean)mice包的md.patternlibrary(mice)md.pattern(Soybean, rotate.names = TRUE) 从行和列两个维度描述缺失数据

2020-10-08 11:16:57 1816

原创 R Shiny datatable列右对齐方法

在renderDataTable的时候设置对应列的class为“dt-right”： server = function(input, output) { output$mytable = renderDataTable({ mtcars }, option=list( columnDefs=list( list(targets=1:ncol(mtcars), class

2020-10-07 22:12:30 748

原创 R语言科学计数法详解：digits和scipen设置

控制R语言科学计算法显示有两个option： digitis和scipen。介绍的资料很少，而且有些是错误的。经过翻看R语言的帮助和做例子仔细琢磨，总结如下：默认的设置是：getOption("digits")[1] 7getOption("scipen")[1] 0digits: 有效数字字符的个数，默认是7，范围是[1,22]scipen：科学计数显示的penalty，可以为正为负，默认是0R输出数字时，使用普通数字表示的长度 <= 科学计数法表示的字符长度 + s

2020-10-07 10:42:41 18118

原创一种R语言ggplot2代码编写风格

ggplot2对+号进行了重载，用于连接图形的各个组成部分。但是由于R语言的特性，运算符放在语句的末尾，不然一个表达式就结束了。举个栗子：library(tidyverse)data <- data.frame(value = rnorm(1000))ggplot(data, aes(x = value)) + geom_histogram(aes(y = ..density..), bins = 20, fill = "#69b3a2", color = "#e9ecef", alpha

2020-08-08 22:32:18 239

原创 ggplot2设置箱线图boxplot异常值outlier的填充色outlier.fill

ggplot2绘制线形图的时候，异常值是黑点，设置outlier.fill并不能奏效。library(tidyverse)x1 <- rlnorm(200)x2 <- rlnorm(300)df1 <- data.frame(type = 'A', value = x1)df2 <- data.frame(type = "B", value = x2)df <- rbind(df1, df2)ggplot(data = df, aes(x = type, y

2020-08-04 01:03:36 6558

原创 R base graphics图形加tag的方法

可以使用mtext给R的基础图形加标签。mtext的意思在plot’绘图区域外的margin出输出text。请看示例：line = 2cex = 1.2side = 3adj=-0.1par(mfrow = c(1,2))hist(rnorm(1000),col="lightblue")mtext("A.", side=side, line=line, cex=cex, adj=adj)hist(rlnorm(1000),col="lightgray")mtext("B.", sid

2020-08-04 00:41:04 351

原创巧用geom_blank()避开ggplot2代码注释+号问题

ggplot2使用 +号连接各个图层/设置函数，这样在注释最后一行代码的时候，需要把上一行的 +也注释掉，这样非常不方便。ggplot2提供一个空图层，geom_blank()，把这个放在最后，注释就方便了。举个栗子：ggplot(data = df, aes(x = x)) + geom_histogram(aes(fill=factor(type)), alpha = 0.8 ) + # coord_cartesian(ylim = c(0,1000)) + geom_blank()最

2020-07-30 23:03:33 1054

原创 R shiny datatable行数大时如何实现自动滚动条？

shiny的DT datatable非常方便展示数据，可是要是选择的行数大时，往往显示区域不能够显示所有行，如何设置纵向滚动条呢？在Rmd文件前面插入datatable的样式，比如是datatable1，可以简单设置这样的样式：<style type="text/css">#datatable1 {overflow-y:auto;}</style>实际效果可以参考：https://datanewlook.com/shiny/vis/dt/dt-expand.rmd

2020-07-18 17:10:43 971 1

原创 R shiny datatable隐藏部分列作为子行展开显示

源代码请参考：https://datatables.net/examples/api/row_details.html类似这种效果：参考：[1] https://github.com/rstudio/shiny-examples/issues/9[2] https://rstudio.github.io/DT/002-rowdetails.html[3] shiny datatable child row：shiny表格二级子行的展开与折叠 https://blog.csdn.n.

2020-07-18 12:29:32 733

datanewlook的博客