R-可视化
obwte
善假于物
展开
-
R-可视化(一):条形图
library(ggplot2)library(ggpubr)1.简单条形图df <- data.frame(dose=c("D0.5", "D1", "D2"), len=c(4.2, 10, 29.5))条形图基本格式ggbarplot(df,x = 'dose',y = 'len', color = 'black'...原创 2019-07-06 01:02:30 · 5331 阅读 · 0 评论 -
R-可视化(二):直方图
基本图像# 添加均值线和边缘线gghistogram(mtcars, x = "mpg", fill = '#E7B800', add = "mean", rug = TRUE) 分组绘制直方图mtcars$vs = as.factor(mtcars$vs)gghistogram(mtcars, x...原创 2019-07-06 09:59:41 · 851 阅读 · 0 评论 -
R-可视化(七):密度图、箱线图、小提琴图
1.密度图library(ggpubr)df <- ToothGrowthdf$dose <- as.factor(df$dose)p <- ggdensity(df, x = "len", fill = "dose", palette = "jco", ggtheme = ...原创 2019-07-15 21:46:06 · 4536 阅读 · 0 评论 -
R-可视化(三):散点图
1.基本图形library(ggpubr)ggscatter(mtcars, x = "wt", y = "mpg", ggtheme = theme_bw())2.添加点的标签分组添加点的标签mtcars$name <- rownames(mtcars)ggscatter(mtcars, x = "wt", y = "mpg", ...原创 2019-07-06 17:06:14 · 9083 阅读 · 0 评论 -
R-可视化(四):添加误差棒
1.添加均值和误差棒library(tidyr)library(ggplot2)library(ggpubr)长型数据框-线图ggline(ToothGrowth, x = "dose", y = "len", add = c("mean_se"), color = "supp", palette = "jco")长型数据框-条形图ggb...原创 2019-06-26 12:59:21 · 5320 阅读 · 0 评论 -
R-可视化(五):饼图/圆环图
# 准备数据df <- data.frame( group = c("Male", "Female", "Child"), value = c(10, 20, 30))基本图片ggpie(df, "value", label = "group", # 标签 fill = "group", ...原创 2019-07-06 21:24:47 · 11963 阅读 · 2 评论 -
R-可视化(六):折线图
x = 1:10df = data.frame(x = x,y1 = x,y2 = x^2, y3 = 2*x,y4 = log2(x))ggline(df,x = 'x',y = c('y1','y2','y3','y4'), merge = T, palette = 'jco')原创 2019-07-06 23:43:03 · 530 阅读 · 0 评论 -
R-可视化(八):韦恩图
生成随机数据A <- sample(1:1000, 400, replace = F )B <- sample(1:1000, 600, replace = F )C <- sample(1:1000, 350, replace = F )D <- sample(1:1000, 550, replace = F )E <- sample(1:1000, ...原创 2019-07-16 09:58:30 · 9923 阅读 · 5 评论 -
R-可视化(九):简单热图
创建数据test = scale(mtcars[,3:7])绘制热图pheatmap(test)修改颜色pheatmap(test, color = colorRampPalette(c("#00AFBB", "#FC4E07", "#E7B800"))(50))取消行列聚类pheatmap(test, cluster_row = FALSE, cluste...原创 2019-07-19 15:27:58 · 1718 阅读 · 2 评论