- 博客(13)
- 收藏
- 关注
原创 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
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人