colours <- scales::viridis_pal()(10) grad_ungroup <- linearGradient(colours, group = FALSE) grad_grouped <- linearGradient(colours, group = TRUE) ungroup <- ggplot(mpg, aes(factor(cyl))) + geom_bar(fill = grad_ungroup) + labs(title = "Ungrouped gradient") grouped <- ggplot(mpg, ...
>ggplot(df, aes(x=type, y=number)) + geom_bar(stat="identity", color="#FF9999") ②fill:改变一些作为填充对象的颜色。 eg:黑色外框、红色填充的条形图 >ggplot(df, aes(x=type, y=number)) + geom_bar(stat="identity", fill="#FF9999", colour="black") 2.用不同颜色来表示不同变量 除...
geom_point() + scale_x_binned() + scale_colour_fermenter(palette = "Spectral") 获取更多的配色方案,可以访问ColorBrewer的网页: http://colorbrewer2.org 配色好看,获取简单,推荐使用 还有一个网站https://www.webdesignrankings.com/resources/lolcolors/ 配色也还可以,只是都是4种颜色的。 10.2 渐变色 ...
ggplot(df, aes(x=x, y=y, fill=z)) + geom_bar(stat="identity") + labs(x="x axis", y="y axis", fill="legend") 六、渐变色:色1-色2,取色 colors <- colorRampPalette(c("red", "orange"))(10) ggplot(df, aes(x=x, y=y)) + geom_bar(stat="identity", fill=colors[rank(10...
我使用的是使用scale_color_fermenter函数的渐变色条,我认为这样做有点棘手。下面是一个示例代码 library('ggplot2') ggplot(mtcars, aes(x=mpg, y=carb, color=disp)) + geom_point(size=3)+ scale_color_fermenter(breaks = c(100,300,400), palette = "Blues") #graduate colorbar 得到的数字如下...
ggplot(df, aes(x=type, y=number)) + geom_bar(stat="identity", fill="#FF9999", colour="black") 2 将变量值映射为颜色 除了对颜色进行全局性的修改,也可以将变量值映射为颜色,就是用颜色来表示某个变量,需要将它置于aes 命令之中。同时在对图形属性进行映射之后,使用标尺控制这些属性的显示方式,其显...
ggplot(df, aes(x=type, y=number)) + geom_bar(stat="identity", colour="#FF9999") # 红色填充,黑色外框 ggplot(df, aes(x=type, y=number)) + geom_bar(stat="identity", fill="#FF9999", colour="black") 2 将变量值映射为颜色
color和fill可更改的颜色参数，一般柱状图，fill是柱子的填充颜色，这时就使用scale_fill系列函数来更改颜色。点图使用color分组，则使用scale_color_系列函数来更改颜色。library(ggplot2)b<- ggplot(mpg, aes(fl))+ geom_bar(aes(fill = fl))b scale_fill_brewer函数调用调色板中的配色方案 b + scale_fill_...
pointplot + geom_point(color = 4) # 蓝色 柱状图 # 柱状图,很难看 barplot + geom_bar(fill = 1) barplot + geom_bar(fill = 2) barplot + geom_bar(fill = 3) barplot + geom_bar(fill = 4) 箱线图 # 箱线图,不好看 boxplot + geom_boxplot(color = 2, width = 0.6) + coord_flip(...
# Figure C plot_c<- ggplot(disease_group, aes(x = disease, fill = group)) + geom_ba...