专栏首页生信小驿站ggplot2设置legend顺序

ggplot2设置legend顺序

library(tidyverse)
library(patchwork)

dat_wide <- tibble(
  x = 1:3,
  top = c(4.5, 4, 5.5),
  middle = c(4, 4.75, 5),
  bottom = c(3.5, 3.75, 4.5)
)

dat <- dat_wide %>%
  pivot_longer(
    cols = c(top, middle, bottom),
    names_to = "region",
    values_to = "awfulness") %>%
  mutate(
    region_ABCD = factor(region),
    region_sane = fct_reorder2(region, x, awfulness)
  )

p_ABCD <- ggplot(dat, aes(x, awfulness, colour = region_ABCD)) +
  geom_line() + theme(legend.justification = c(1, 0.85))

p_sane <- ggplot(dat, aes(x, awfulness, colour = region_sane)) +
  geom_line() + theme(legend.justification = c(1, 0.85))

p <- p_ABCD + p_sane +
  plot_annotation(
    title = 'Make the legend order = data order, with forcats::fct_reorder2()')

p

本文参与腾讯云自媒体分享计划,欢迎正在阅读的你也加入,一起分享。

我来说两句

0 条评论
登录 后参与评论

相关文章

  • 一文解决ArrayExpress下载(网页版和R语言)

    GEO数据库类似,ArrayExpress是属于EBI旗下的公共数据库,用于存放芯片和高通量测序的相关数据。

    用户1359560
  • 腾讯云服务器安装R和Rstudio server

    用户1359560
  • 使用Tidyr重塑数据

    虽然R中存在许多基本的数据处理函数,但它们至今仍有一点混乱,并且缺乏一致的编码和容易地将流一起的能力。这导致很难记忆和操作。因此我们需要更有效的代码、更容易记住...

    用户1359560
  • 医疗AI机器人Woebot获800万美元融资,帮助人们应对抑郁等精神疾病

    【数据猿导读】 3月2日,医疗AI机器人Woebot宣布已经完成了800万美元的A轮融资。公司的这款AI机器人旨在通过认知行为疗法帮助人们应对抑郁等精神疾病 作...

    数据猿
  • Leetcode 147. Insertion Sort List

    版权声明:博客文章都是作者辛苦整理的,转载请注明出处,谢谢! https://blog.csdn....

    Tyan
  • 使用xshell连接服务器,数字键盘无法使用解决办法

    晓晨
  • PHP 判断页面请求是否为ajax

      jQuery 发出 ajax 请求时,会在请求头部添加一个名为 X-Requested-With 的信息,信息内容为:XMLHttpRequest

    Alone88
  • Java_脚本引擎_03_nashorn支持es6

    jdk默认是关闭了对es6的支持的,想要开启对es6的支持,需要设置一下jvm参数:

    shirayner
  • 手摸手教学之:梳理数据指标体系

    大家好,2020年开年就是一波疫情,就业和经济形势都很严峻。为了提升同学们的职场竞争力,为灾后重建做点贡献,陈老师特别推出一个系列教学。从数据分析的基础方法到具...

    接地气的陈老师
  • 视觉SLAM关键方法总结

    最近在做基于激光信息的机器人行人跟踪发现如果单独利用激光信息很难完成机器人对行人的识别、跟踪等功能,因此考虑与视觉融合的方法,这样便可以充分利用激光雷达提供的精...

    用户1150922

扫码关注云+社区

领取腾讯云代金券