绘图导航
  • 基础绘图
  • 高级绘图
  • 微生物
  • 转录组

R语言|绘制Streamgraph

 二维码 2

ggplot2绘制Streamgraph


代码如下

# install.packages("ggstream") 安装包

library(ggstream)

library(ggplot2)

colors <- c("#6181BD4E","#F348004E","#64A10E4E","#9300264E","#464E044E")

#绘图

ggplot(blockbusters, aes(x = year, y = box_office, fill = genre)) +

  geom_stream() +

  scale_fill_manual(values = colors)




###使用geom_stream_label()函数添加标签

ggplot(blockbusters, aes(x = year, y = box_office, fill = genre)) +

  geom_stream() +

  scale_fill_manual(values = colors)+

  geom_stream_label(aes(label = genre))



##图形类型"mirror"(默认类型)、“ridge""Proportional"

ggplot(blockbusters, aes(x = year, y = box_office, fill = genre)) +

  geom_stream() +

  scale_fill_manual(values = colors)+

  geom_stream_label(aes(label = genre))+

  geom_stream(type = "ridge")  


#更改边界颜色

ggplot(blockbusters, aes(x = year, y = box_office, fill = genre)) +

  geom_stream() +

  geom_stream(color = 1, lwd = 0.25) +

  scale_fill_manual(values = colors)+

  geom_stream_label(aes(label = genre))+

  geom_stream(type = "ridge") +

  theme_minimal()#变更主题



“作图帮”微信公众号同步更新

作图帮二维码.jpg


可添加下方微信进入【生信作图交流群】,群内免费分享绘图代码与示例数据

公司二维码.png







推荐使用谷歌浏览器点击下载