ggplot2 画分面的柱状图

2023-11-02

ggplot2 画分面的柱状图
直接上代码:

df=read.table("class.txt",header=TRUE)
ggplot(data = df, mapping = aes(x = factor(samples), y = y, fill = class)) + geom_bar(stat= 'identity', position =
 'fill',size=6)+facet_grid(rows = vars(z))+theme(legend.text = element_text(size = 7))+scale_fill_manual(values = 
 c("#C71585","#FFB6C1","#800080","#9932CC","#A0522D","#FF8C00","#FFFF00","#00BFFF","#008080","#00F
 FFF","#000000","#808080","#0000CD","#FF1493","#7CFC00","#FF0000","#00CED1","#ADD8E6","#C0C0C0","
 #90EE90","#00FF00","#800000","#A52A2A","#DC143C","#D87093","#4B0082","#6A5ACD","#EE82EE","#D8BF
 D8","#8B4513","#D2691E","#CD5C5C","#BC8F8F","#228B22","#F08080",))+xl
 ab('Treatment')+ylab('relative abundance')+theme(panel.grid.major =element_blank(), panel.grid.minor = 
 element_blank(),panel.background = element_blank(),axis.line = element_line(colour = 
 "black"))+theme(strip.background = element_rect(fill="NA"))

输入文件格式:
在这里插入图片描述

本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)

ggplot2 画分面的柱状图 的相关文章

  • 如何按时间间隔匹配数据帧?

    这是我从数据记录器导入原始数据时经常出现的问题 温度记录仪设置为每十分钟记录一次温度 单独的气体记录仪设置为记录最后十分钟间隔内使用的气体 我想将这两个记录器的数据合并到一个数据框中进行绘图和分析 但时间并不完全一致 我希望每十分钟的时间段
  • 如何纠正 data.frame 上的字符编码

    我有一个像这样的数据框 data names lt data frame DATA c 1 5 rownames data names lt c IV xc1N JOS xc9 LUC xcdA RAM xd3N TO xd1O data
  • 在 R 的 for 循环中创建动态命名对象并分配动态值

    我正在尝试创建一套动态命名的新对象 例如 temp2015 使用 for 循环 并存储动态值 具体来说 其他对象的名称 例如 Y2015 和 for 循环中使用的值 例如 2015 在动态命名的新对象中 我不确定为什么下面的代码不起作用 Y
  • 闪亮的应用程序包:css 和所有 www/ 目录内容

    我正在尝试将 Shiny 应用程序转换为 R 包 但我在处理有关 www 目录以及 松散 文件的所有问题时遇到了问题 我闪亮的应用程序运行得很好 但是当我尝试 打包它 时 它不起作用 我闪亮的应用程序目录 my shiny app R ut
  • 如何按定义的顺序将图像合并到一个文件中

    我有大约 100 张图像 png 我不想手动执行此操作 而是希望将它们按照定义的顺序 基于文件名 并排放置在一个 pdf 中 每行 12 个图像 有人有什么建议吗 我按照下面托马斯告诉我的方法尝试了 它把它们贴在旁边有一个黑边 我怎样才能去
  • R在Windows平台Rstudio上打印data.frames中的UTF-8代码

    当数据框中存在UTF 8字符时 将无法正常显示 例如 以下内容是正确的 gt U6731 1 朱 但是当我将其放入数据框中并打印出来时 它是 gt data frame x U6731 x 1
  • 在ggplot中设置y轴中断

    我在代码中设置中断时遇到困难 我尝试添加breaks seq 0 100 by 20 但似乎无法让它正常工作 本质上我希望 Y 轴从 0 到 100 每 20 个刻度一次 YearlyCI lt read table header T te
  • 如何为自定义 S3 类实现提取/取子集 ([ [<-, [[ [[<-)] 函数?

    我有一个自定义的 S3 类foo 它在正常的基础上添加了一些自定义行为data frame foo object lt data frame class foo object lt c foo data frame 对于这个类 还应该有一个
  • 当将遗传算法与 lme4 一起使用时,glmulti 无限期运行

    我在 R 中使用 glmulti 进行模型平均 我的模型中有大约 10 个变量 使得详尽的筛选不切实际 因此我需要使用遗传算法 GA 调用 method g 我需要包含随机效应 因此我使用 glmulti 作为 lme4 的包装器 此处提供
  • ggplot:如何限制条形图中的输出,以便仅显示最频繁出现的情况?

    我几个小时以来一直在寻找这个简单的东西 但没有结果 我有一个数据框 其中一列为变量 国家 地区 我想要两件事以下 绘制最常见的国家 地区 最常见的位于顶部 找到部分解决方案EDIT找到完整的解决方案 gt gt 重点问题是根据频率限制条形图
  • case_when 与部分字符串匹配和 contains()

    我正在使用一个数据集 其中有许多名为 status1 status2 等的列 在这些列中 它表示某人是否豁免 完整 注册等 不幸的是 豁免投入并不一致 这是一个示例 library dplyr problem lt tibble perso
  • 如何动态地将 sliderInput 添加到闪亮的应用程序中?

    使用闪亮 我上传一个 csv 文件 并根据列名称 我需要向 ui 添加滑块 sidebarPanel fileInput file1 Upload CSV File to Create a Model accept c text csv t
  • R 改变构面的顺序

    我正在尝试将方面的顺序从 BA SLG 更改为 SLG BA 我发现了与此类似的问题 但我认为我的解决方案可能不起作用 因为我已经在Excel中汇总了数据 因此 我的数据框可能会有所不同 无论如何 我尝试实现这个但无济于事 df2 lt f
  • StatET调试工具

    我想我只是很密集 但我似乎无法弄清楚如何在 Eclipse 中的 R 中使用调试工具 StatET 插件 有人有关于这个主题的任何提示或教程吗 StatET 2 00 现在对高级 可视化调试提供实验性支持 需要 Eclipse 3 6 或
  • 在 Google Colab 上的 R 笔记本中安装 python 库

    我正在尝试在 Google Colab 上的 R 笔记本中安装 python 库 为此我使用 reticulate 包 library reticulate py install pandas 但我得到的结果是这个错误 Error coul
  • R 数据结构的运算效率

    我想知道是否有任何关于操作效率的文档R 特别是那些与数据操作相关的 例如 我认为向数据框添加列是有效的 因为我猜您只是向链接列表添加一个元素 我想添加行会更慢 因为向量保存在数组中C level你必须分配一个新的长度数组n 1并将所有元素复
  • 条件和分组 mutate dplyr

    假设我有以下每个抽屉库存增加的数据 gt socks year drawer nbr sock total 1990 1 2 1991 1 2 1990 2 3 1991 2 4 1990 3 2 1991 3 1 我想要一个二进制变量来标
  • ggplot2:带有 geom_line 的 x 轴因子不起作用

    我想要一个线图 其中value绘制为函数expt每级一行var 这是我的数据 lines lt expt var value 1 none p 0 183065327746799 2 none p 0 254234138384241 3 n
  • R:改变堆积条形图的颜色

    library ggplot2 df2 lt data frame supp rep c VC OJ each 3 dose rep c D0 5 D1 D2 2 len c 6 8 15 33 4 2 10 29 5 head df2 g
  • 使用“assign()”为列表项分配值

    首先了解一些背景 我写了一个中缀函数 本质上取代了这个习惯用法 x length x 1 lt y 或者简单地说x lt append x y 对于向量 这里是 lt function x y xcall lt substitute x x

随机推荐

  • 人声频率范围及各频段音色效果

    国际制定的数字电话机的通信标准是300 3400Hz这是 3db标准 也就是说300HZ和3400HZ的传输电压幅度降低到正常的0 707倍 并不是一过这两个频率电压就完全消失了 现实中也做不到如此精确的滤波电路 人讲话的频率主要集中在1
  • 项目实战----基于协同过滤的电影推荐系统

    文章目录 一 数据整理 二 观察用户 电影矩阵 三 协同过滤推荐 3 1 基于电影的协同过滤 3 2 基于用户的协同过滤推荐 网页版 点击这里 一 数据整理 数据及介绍 MovieLens是推荐系统常用的数据集 MovieLens数据集中
  • 【registry】javax ValidationException: HV000183: Unable to load ‘javax.el.ExpressionFactory‘

    1 案例1 在 registries registrie rest service idea 无法引入的背景下 以及 registry NoSuchFieldError INCLUDE ALL 以及 解决依赖问题报错 相同错误 regist
  • gzip压缩

    1 开GZIP有什么好处 答 Gzip开启以后会将输出到用户浏览器的数据进行压缩的处理 这样就会减小通过网络传输的数据量 提高浏览的速度 2 如何启用IIS的Gzip压缩功能 答 首先 如果你需要压缩静态文件 HTML 需要在硬盘上建一个目
  • vue中el-select选择器实现触底加载,通过自定义指令(directives)实现

    vue中el select选择器实现触底加载 通过自定义指令 directives 实现 1 使用自定义指令 v XXXX 初始化我是默认展示20条数据
  • C 语言判断回文数

    判断一个数是否为回文数 设n是一任意自然数 若将n的各位数字反向排列所得自然数n1与n相等 则称n为一回文数 例如 若n 1234321 则称n为一回文数 但若n 1234567 则n不是回文数 include
  • 操作系统sp1、sp2、sp3是什么意思

    电脑系统的sp1 sp2 sp3的意思分别是 第一版补丁包 第二版补丁包 第三版补丁包 SP1是系统发布后第一个SP包 Win7的SP1主要包含自Win7正式发布至SP1编译完成的几乎所有补丁和少量功能更新 SP2增设众多功能来为用户提供安
  • 关于scp上传文件到远程服务器失败问题的解决

  • 一篇文章带你登顶 MacBook 高效工作环境配置

    工欲善其事 必先利其器 工具永远都是用来解决问题的 没必要为了工具而工具 一切工具都是为了能快速准确的完成工作和学习任务而服务 本文记录 MacBook 整个配置过程 供新入手 MacBook 和觉得 MacBook 比较难用的同学参考 转
  • 解决各大航空公司空运轨迹查询网站访问无响应或轨迹查询不了问题

    一 解决访问不了网站问题 情况描述 这种情况也不是一直访问不了 时好时坏的 员工上班高峰期使用的时候访问不了就很烦 走代理访问是正常的 排除是公司网络的问题 在家里测试也是同样的情况 深圳地区 其它地区不知道有无此情况 公司有开海外专线 防
  • armbian 斐讯n1_斐讯N1刷Armbian Linux做服务器

    N1上了不到两个月 斐讯就翻车了 现在N1也挖不了矿 作为NAS又太鸡肋 看到可以刷Armbian系统还是很激动的 可以作为服务器折腾一下 这里记录一下刷机的过程 工具准备DiskImager 降img文件写入U盘的工具 降级分区 boot
  • ESP32+INMP441+DHT11+OLED+网页+Arduino——“智能”语音天气站(2):INMP441录音生成wav文件

    参考视频 Recording using INMP441 参考代码 学会了代码复用 Recording using INMP441 知识 什么是wav文件 可以在维基百科找到wav文件的历史渊源 这个网站有一个详尽的wav格式说明 wav格
  • PyTorch基础系列(三)——深入理解autograd:Variable属性方法【最新已经和tensor合并为一类】

    torch autograd backward variables grad variables retain variables False 当前Variable对leaf variable求偏导 计算图可以通过链式法则求导 如果Vari
  • 高德地图:缺少定位权限(实际上权限已经打开)

    使用高德地图 获取定位的过程中 出现以下问题 ErrorCode 12 errorInfo 缺少定位权限 请到http lbs amap com api android location sdk guide utilities errorc
  • idea远程调试

    一 业务 服务器与本地环境不一样 二 需求 如果服务器报错 使用本地idea进行远程debug调试 三 解决方案 本地idea远程debug调试 四 具体操作 1 第一步 IDEA打开远程启动的springboot应用程序所对应的本地spr
  • 剑指Offer - 面试题10:斐波那契数列

    题目一 求斐波那契数列的第n项 写一个函数 输入n 求斐波那契 Fibonacci 数列的第n项 斐波那契数列的定义如下 分析 递归法 给出的公式用递归是最简单的 但是也是效率很低的 C include
  • 电磁波的发射和接收

    电磁波的发射和接收 作者 佚名 教案来源 网络 点击数 2628 电磁波的发射和接收 本资料为WORD文档 请点击下载地址下载 全文下载地址 文章 来源莲山 课 件 w w w 5y K J Co m 14 3 电磁波的发射和接收 教学目标
  • 计算机网络-15 网络测量

    第十五讲 网络测量 概述 定义 按照一定方法和技术 使用硬件或软件来量度网络运行状态 表征网络特性的一系列活动的总和 应用 监测网络故障 测试协议行为 刻画流量特征 评估网络性能 几个重大发现 协议方面 TCP协议占了大部分网络流量 流量方
  • AVL 平衡二叉搜索树 支持键值 简介+实现

    为什么要平衡 什么是平衡 平衡因子 不平衡的情况和平衡的方法 LL RR LR RL 删除操作 实现 AVL是发明这个算法的两个大神 Adelson Velsky and Landis 的名字首字母 为什么要平衡 一般的搜索树 如果元素是顺
  • ggplot2 画分面的柱状图

    ggplot2 画分面的柱状图 直接上代码 df read table class txt header TRUE ggplot data df mapping aes x factor samples y y fill class geo