zaza0_0的博客

ggplot合并两个facet, facet每个图调刻度

ggplot pie chart

由于有的表格比较复杂，直接用xtable不好输出，可以先生成csv文件，再用latextablegenerator之类的在线latex表格生成器生成。n_list = c(30, 90)method_list = c(1, 3, 7, 2, 4, 8, 5, 6)metric_list = c(1, 3, 4:(4+p.x-1), 10)weight=5m = 20gen.table <- function(n_list, method_list, metric_list){ tab

library(ggplot2)n_list = c(30, 60, 90)method_list = c(1, 3, 7, 2, 4, 8, 5, 6)metric_list = c(1, 3, 4:(4+2*p.x))weight=5m = 20for(n in n_list){ file_name = paste("results/p.x", p.x, "p.z",p.z, "n",n,"m",m, "sigma", sigma,"nrep",nrep, "weight", weig

lineplot.process=function(n_list, method_list, metric_list){ plot_meandat = NULL plot_sddat =NULL for(n in n_list) { file_name = paste("results/p.x", p.x, "p.z",p.z, "n",n,"m",m, "sigma", sigma,"nrep",nrep, "weight", weight,"one",onelevel, sep

把矩阵变为Data.frame形式就行了。

> tmp = strsplit(as.character(colname[i, ]),'[0-9]') # 先拆分出想要的子字符串> tmp[[1]][1] "" "" [3] " - " "" [5] "

library(ggpubr)p=ggarrange(p1, p2, labels = c("A", "B"), ncol = 1, common.legend = TRUE, legend = "none")p

x = model.matrix(~.,as.data.frame(x))[,-1]

group_size(group_by(df,a,b))

formatR::tidy_app()

参考自：https://stackoverflow.com/questions/32888757/how-can-i-read-multiple-excel-files-into-r数据在一个大的目录下有很多子目录，每个子目录里有很多excel文件。R语言读取setwd('C:/Users/test/Desktop/20200331 data')file.list <- list.files(pattern='*.xls', recursive = T)# recursive=T读取所有

newdata需要是data.frame

Sys.setenv(LANG = “en”)

figure_display_batch <- function(res) { res_tmp <- res size <- dim(res_tmp)[3] res_list <- list() for (i in 1:size) { res_list[[i]] <- res_tmp[, , i] } res_list <- do.call("rbind", res_list) col_name <- c("Prediction

1. 保留离群值将coef设置为5，如果没有fact，直接在 geom_boxplot(coef = 5)。 calc_stat <- function(x) { coef <- 5 n <- sum(!is.na(x)) # calculate quantiles stats <- quantile(x, probs = c(0.1, 0.25, 0.5, 0.75, 0.9)) names(stats) <- c("ymin", "lowe

假设我们有如下数据：希望用education_level作为横坐标，每一行作为一个分组，绘制折线图。这就需要将数据变为长数据格式，产生三列，一列是数据，一列是分组的标签（“Never”, “Once”,…），一列是教育水平，这是最终效果：实现方法：plot_dat = gather(dat, claim_amount, counts, -education_level)claim_amount：原来除去要用来做横坐标的education_level之外的列们统一叫这个 名字；counts：那些

pdf输出title: “HW 5”author: “Lian”date: “2020/9/3”output:pdf_document:latex_engine: xelatex中文输出title: “Wilcoxon rank sum 与 t test的功效比较”author: “Lian”date: “2020/9/22”output:pdf_document:includes:header-includes: \usepackage{xeCJK}keep_tex: y

Rcpp: error: ‘random_device’ is not a member of ‘std’ error: ‘mt19937’ is not a member of ‘std’需要支持c++11需要支持c++11需要在r里面执行下面这句：Sys.setenv(“PKG_CXXFLAGS”="-std=c++11")

前一篇介绍了查找某元素是否在vector,matrix中https://blog.csdn.net/zaza0_0/article/details/104581400这一篇写逐元素比较。//[[Rcpp::depends(RcppEigen)]]#include<RcppEigen.h>#include<Rcpp.h>using namespace std;us...

//[[Rcpp::depends(RcppEigen)]]#include<RcppEigen.h>#include<Rcpp.h>using namespace std;using namespace Eigen;// [[Rcpp::export]]double testcwiseEqual(VectorXd x,double y){ //说明：A....