p1<- ggplot(data=df, aes(x = dose, y = Avg_len, group = sex)) + geom_line(aes(color=sex),size=0.5,show.legend=T) + geom_point(aes(color=sex),shape=21,fill="white", size=2,show.legend=F) p1 #自定义颜色并修改坐标轴标题; mycolor<- c("#0077c1","#00a99e","#6bc72b",...
#> .y. group1 group2 p p.adj p.format p.signif method #> <chr> <chr> <chr> <dbl> <dbl> <chr> <chr> <chr> #> 1 len OJ VC 0.00431 0.0043 0.0043 ** Wilcoxon 使用ggpaired()函数可视化: ggpaired(ToothGrowth, x="supp", y="len", color="supp", line.color="gray", line.size...
ggplot(df, aes(x=dose, y=len, group=supp)) + geom_line(aes(linetype=supp))+ geom_point() 1. 2. 3. 修改线型、点的形状以及颜色 ggplot(df, aes(x=dose, y=len, group=supp)) + geom_line(aes(linetype=supp, color = supp))+ geom_point(aes(shape=supp, color = supp)) 1. 2....
ggplot(df, aes(x=dose, y=len, group=supp)) + geom_line(aes(linetype=supp))+ geom_point() 修改线型、点的形状以及颜色 ggplot(df, aes(x=dose, y=len, group=supp)) + geom_line(aes(linetype=supp, color = supp))+ geom_point(aes(shape=supp, color = supp)) 条形图 #构造数据集 d...
mutate(group=fct_rev(group)) -> dat 作图代码 ggplot(data = dat,aes(x=x,y=mean_value))+ geom_line(aes(color=group),size=1.5)+geom_ribbon(aes(ymin=lower95-1,ymax=upper95+1, fill=group), alpha=0.5, show.legend = FALSE)+
#Scatterplots(sp)sp<-ggscatter(mtcars,x="wt",y="mpg",add="reg.line",#Add regression line conf.int=TRUE,#Add confidence interval color="cyl",palette="jco",#Color by group cyl shape="cyl"#Change point shape by groups cyl)+stat_cor(aes(color=cyl),label.x=3)#Add correlation coeffici...
linetype = c(1, 1, 0, 0))) # prepare geoms gglines <- geom_line(aes(x = Date, y = Val1, color = ID, group = ID), na.rm = TRUE) ggpoints <- geom_point(aes(x = Date, y = Val2_scl, color = ID, group = ID), na.rm = TRUE) #...
ggplot(data=dat,aes(x=x,y=mean_value))+geom_line(aes(color=group),size=1.5)+geom_ribbon(aes(ymin=lower95-1,ymax=upper95+1,fill=group),alpha=0.5,show.legend=FALSE)+theme_minimal()+theme(panel.grid=element_blank(),axis.line=element_line(),axis.ticks=element_line(),legend.title=elem...
ggplot(data = diamond)+geom_point(aes(x=carat, y=price, colour=color)) ggplot(data = diamond) +geom_point(aes(x=carat, y=price, shape=cut)) ggplot(data = diamond) +geom_boxplot(aes(x=carat, y=price, group=factor(cut)))
ggplot(data=diamond)+geom_boxplot(aes(x=carat,y=price,group=factor(cut))) ggplot(data=diamond)+geom_point(aes(x=carat,y=price,colour=color,shape=cut)) 注:ggplot2支持图层,可以把不同的图层中共用的映射提供给ggplot函数,而某一几何对象才需要的映射参数提供给geom_xxx函数。