r - 为平铺图重塑表格
问题描述
我有一个看起来像这样的数据框(我已经简化了它,实际上它很长)。
data <- structure(list(miRs = structure(c(10L, 11L, 12L, 3L, 4L, 5L,
6L, 1L, 2L, 7L, 9L, 8L), .Label = c("bantam", "miR-1", "miR-184|example1",
"miR-184|example2", "miR-184|example3", "miR-184|example4", "miR-3",
"miR-7", "miR-9", "miR-92|example1", "miR-92|example2", "miR-92|example3"
), class = "factor"), Apis.mellifera = structure(c(8L, 9L, 10L,
4L, 5L, 6L, 7L, 2L, 3L, 1L, 1L, 1L), .Label = c("", "bantam",
"miR-1", "miR-184|example1", "miR-184|example2", "miR-184|example3",
"miR-184|example4", "miR-92|example1", "miR-92|example2", "miR-92|example3"
), class = "factor"), B..morix = structure(c(9L, 10L, 5L, 6L,
7L, 8L, 2L, 3L, 4L, 1L, 1L, 1L), .Label = c("", "bantam", "miR-1",
"miR-10", "miR-184|example1", "miR-184|example2", "miR-184|example3",
"miR-184|example4", "miR-92|example1", "miR-92|example2"), class = "factor"),
D..mel = structure(c(8L, 9L, 10L, 4L, 5L, 6L, 7L, 2L, 3L,
1L, 1L, 1L), .Label = c("", "bantam", "miR-1", "miR-184|example1",
"miR-184|example2", "miR-184|example3", "miR-184|example4",
"miR-92|example1", "miR-92|example2", "miR-92|example3"), class = "factor"),
N..vitripennis = structure(c(8L, 9L, 10L, 4L, 5L, 6L, 7L,
2L, 3L, 1L, 1L, 1L), .Label = c("", "bantam", "miR-1", "miR-184|example1",
"miR-184|example2", "miR-184|example3", "miR-184|example4",
"miR-92|example1", "miR-92|example2", "miR-92|example3"), class = "factor"),
P..tepidariorum = structure(c(9L, 10L, 5L, 6L, 7L, 8L, 2L,
3L, 4L, 1L, 1L, 1L), .Label = c("", "bantam", "miR-1", "miR-10",
"miR-184|example1", "miR-184|example2", "miR-184|example3",
"miR-184|example4", "miR-92|example1", "miR-92|example2"), class = "factor"),
T..castaneum = structure(c(8L, 9L, 10L, 6L, 7L, 4L, 5L, 2L,
3L, 1L, 1L, 1L), .Label = c("", "bantam|LQNS02278082.1_33125",
"miR-1", "miR-184|LQNS02000211.1_1795", "miR-184|LQNS02000211.1_1950",
"miR-184|LQNS02000211.1_1952", "miR-184|LQNS02000211.1_1954",
"miR-92|example1", "miR-92|example2", "miR-92|example3"), class = "factor"),
S..maritima = structure(c(2L, 4L, 3L, 1L, 1L, 1L, 1L, 1L,
1L, 1L, 1L, 1L), .Label = c("", "miR-3", "miR-7", "miR-9"
), class = "factor")), class = "data.frame", row.names = c(NA,
-12L))
理想情况下,我想制作一个平铺图,其中仅显示每个 miR 的缺失/存在。但是,我要花很多时间在 R 上重塑这张桌子,甚至绘制它。所需的输出将是:
我想绘制它。对此问题的任何帮助将不胜感激。谢谢
解决方案
推荐阅读
- swift - 将前导零添加到将与文本一起打印在字符串中的数字
- java - 使用@JsonFormat 时如何配置自定义错误消息?
- msbuild - MSBuild:如何将生成的类包含到编译中?
- postgresql - 如何在 Laravel 中获取日期列与当前日期的日期差异?
- python - Python/Kivy 中的 __init__ 参数
- sql - 如何在sql中的所有客户的单独列中查找最后一个和倒数第二个记录
- linux - “service apache2 reload”和“sudo systemctl restart apache2”有什么区别?
- batch-file - 如何仅复制文件夹中的目录及其内容并使用批处理排除 0 级文件?
- python - 子函数的 Python 装饰器
- routes - 环回应用程序无法验证链路