R
R语言笔记
amVVZ
所有博客均为个人学习笔记,故不对评论进行回复。有任何问题请查阅官方文档,见谅。
展开
-
R Shiny
目录App StructureOfficial DemosBasic LayoutsSidebar LayoutGrid LayoutTabsetsNavlistsNavbar PagesText FormatFunctionsExamplesControl WidgetsFunctionsExamplesOutputsStepsOutput functionsRender functionsEx...原创 2019-08-03 23:31:45 · 754 阅读 · 0 评论 -
R Keras
目录MNIST代码IMDB代码TipsReuters代码TipsBoston代码TipsMNIST代码library(keras)#loading the keras inbuilt mnist datasetdata<-dataset_mnist()#separating train and test filetrain_x<-data$train$xtrain_...原创 2019-08-02 22:38:58 · 526 阅读 · 0 评论 -
R Heatmap
绘图数据data = (scale(mtcars))简单热图heatmap(data, scale = "none")调色板library("RColorBrewer")col <- colorRampPalette(brewer.pal(10, "RdYlBu"))(256)heatmap(data, scale = "none", col = col, RowSide...原创 2019-08-02 22:14:51 · 604 阅读 · 0 评论 -
R PCA
导入数据data(decathlon2)data <- decathlon2[1:23, 1:10]#PCAres.pca <- PCA(data, graph = FALSE)数据分析#特征值 可解释变异比例 累计可解释变异比例eig.val <- get_eigenvalue(res.pca)fviz_eig(res.pca, addlabels = TR...原创 2019-08-02 22:07:09 · 410 阅读 · 0 评论 -
R Cluster
代码datar1 <- c("index1", "index2", "index3", "index4")r2 <- c(1, 7, 2, 4)data <- cbind(r1, r2)row.names(data) <- data[, 1]data <- data[, -1]#distdistance <- dist(data, metho...原创 2019-08-02 21:55:17 · 564 阅读 · 0 评论 -
R ggplot2
数据library(ggplot2)data <- diamonds[sample(nrow(diamonds), 1000), ]各种图散点图#defaultggplot(mtcars, aes(x = mpg, y = wt, colour = cyl)) + geom_point()#multidataggplot()+ geom_point(mtcars,...原创 2019-08-02 16:16:13 · 349 阅读 · 0 评论 -
R plot
绘图数据x1 = round(runif(100,80,100))x2 = round(rnorm(100,80,7))x3 = round(rnorm(100,83,18))x3[which(x3>100)] = 100num = seq(1,100)x = data.frame(num,x1,x2,x3)多图#parpar(mfrow = c(2,...原创 2019-08-02 15:48:08 · 441 阅读 · 0 评论 -
R Notes [2]
自定义函数myfunction = function(x,a,b){ return(x+a*b)}myfunction(1,2,3)curve(myfunction(x,3,2),xlim=c(1,20))排序a = c(1,2,3,4,5,3,5,4,2,3,5,6)sort(a)rev(sort(a))索引a = c(1,2,3,4,5,3,5,4,2,3,5,6)...原创 2019-08-02 15:23:01 · 297 阅读 · 0 评论 -
R Notes [1]
变量#vectorv1 = c(1,2,3,4,5)v2 = 1:5v3 = seq(1,30,2)v4 = rbind(v1,v2)v5 = cbind(v1,v2)#matrixm = matrix(1:20,nrow=5,ncol=4,byrow=TRUE)m[1,]m[,1]m[2,3]m[2,c(1,3,4)]rownames(m) = c('1','1','...原创 2019-08-02 14:49:20 · 173 阅读 · 0 评论