您可以通过使用guide_legend的override.aes参数设置图例的颜色来解决问题：
Lambertian objects模型是说物体表面的颜色是与法线和光源方向的余弦是成正比的：
huron <- data.frame(year = 1875:1972, level = as.vector(LakeHuron)) h <- ggplot(huron, aes(year)) h+geom_ribbon(aes(ymin = level - 1, ymax = level + 1), fill = "skyblue") + geom_line(aes(y=level - 1),color="red")+ geom_line(aes(y= level + 1),color="blue")...
p1<-p+geom_hline(yintercept =0.989,color="#44758E",linetype="dashed",size=1)+geom_hline(yintercept =0.804,color="#44758E",linetype="dashed",size=1)+annotate('text',x=25,y=1,label="SNP Mean Concordance:0.989",size=3)+annotate('text',x=25,y=0.815,label="INDEL Mean Concordance...
...如上图所示,使用grid.arrange函数将两张图组合在一个图框内,其中左图是使用geom_bar函数直接生成的原始图形,右图则是在左图的基础上添加了三项功能,分别是条形图的排序(代码中reorder...函数实现重排序)、数值标签的添加(代码中的geom_text函数)以及平均水平参考线的添加(代码中的geom_hline)。...
geom_hline:用于绘制水平线。 geom_vline:用于绘制垂直线。 geom_segment:用于绘制线段。 geom_spoke:用于绘制指向某一方向的线段。 geom_area:用于绘制面积图。 geom_density:用于绘制密度图。 geom_dotplot:用于绘制点图。 geom_freqpoly:用于绘制频数多边形图。
() + geom_hline(yintercept = c(8.5, 6.5), linetype = "solid", color = "black", size = 0.7) + scale_color_viridis( discrete = TRUE, name = NULL, guide = guide_legend(order = 1) ) + ggnewscale::new_scale_color() + scale_color_viridis( discrete = TRUE, name = NULL, ...
当绘制了两条折线图时,可以尝试在两者之间填充一定的颜色,这样会使得图像更加的美化,如下图 image.png 代码如下: huron<-data.frame(year=1875:1972,level=as.vector(LakeHuron))h<-ggplot(huron,aes(year))h+geom_ribbon(aes(ymin=level-1,ymax=level+1),fill="skyblue")+geom_line(aes(y=level-1),...
library(ggplot2)h<-ggplot(huron,aes(year))h+geom_ribbon(aes(ymin=level,ymax=level2,fill=level>level2))+geom_line(aes(y=level))+geom_line(aes(y=level2))+scale_fill_manual(values=c("red","green"),name="fill") 问题在于颜色填充中有未被填充的区域,下面进行改进 ...
library("RColorBrewer") display.brewer.pal(7, "PuRd") # 抽取PuRd色条7种颜色,其颜色色值范围没有变,只是色值间隔增大了 display.brewer.pal(9, "PuRd")[11] # 抽取PuRd色条11种颜色,其颜色色值范围没有变,指定色值间隔减小了 4.1.2linetype 线型 ...