如何使用R获取绘图中行和列的总和
阿本
我以以下方式绘制了csv文件的内容（具有0或1的元素）
mat <- read.csv("trial.csv", header=T, row.names=1)
vec <- as.vector(as.matrix(mat))
varieties = names(mat)
matVar = matrix(vec, ncol = length(varieties), nrow = length(attr(mat, "row.names")))
library(ggplot2)
require(reshape2)
mat$id <- rownames(mat)
gg <- melt(mat)
ggplot(gg, aes(x=id,y=variable,fill=value))+
geom_tile()+
scale_fill_gradient(low="red",high="white")+
theme(axis.text.x = element_text(angle=90))+
coord_flip()
我的数据如下所示，其中排除了row1和column1。现在，我想获取每一列和每一行中所有1或0的总和，并分别在列和行的末尾表示它。我真的很感谢有关此操作的任何建议。
h1, h2, h3, h4, h5, h6, h7, h8, h9
a, 1, 1, 1, 0, 1, 1, 0, 1
b, 0, 1, 1, 1, 0, 0, 0, 0
c, 1, 0, 0, 1, 1, 1, 1, 1
d, 1, 0, 1, 0, 0, 0, 1, 0
e, 1, 0, 0, 0, 0, 1, 0, 0
f, 1, 1, 0, 0, 0, 0, 0, 0
g, 0, 0, 0, 0, 0, 0, 0, 0
h, 0, 0, 0, 0, 0, 1, 1, 0
弗里克先生
如果要将实际总值添加到绘图中，则必须为它们腾出空间并自己计算。这是一种这样的策略。首先，确保“ id”是因子列
gg$id<-factor(gg$id)
然后
ggplot(gg, aes(x=id,y=variable))+
geom_tile(aes(fill=value))+
scale_fill_gradient(low="red",high="white")+
geom_text(aes(label=value), data=cbind(aggregate(value~id, gg, sum), variable="total")) +
geom_text(aes(label=value), data=cbind(aggregate(value~variable, gg, sum), id="total")) +
theme(axis.text.x = element_text(angle=90))+
scale_x_discrete(limits=c(levels(gg$id), "total"))+
scale_y_discrete(limits=c(levels(gg$variable), "total"))+
coord_flip()
将产生
如果您有其他想法，请更明确地说明所需的输出是什么。
本文收集自互联网，转载请注明来源。
如有侵权，请联系[email protected] 删除。
编辑于
相关文章
Related 相关文章
- 1
如何获取二维数组中行和列的长度？
- 2
如何获取二维数组中行和列的长度？
- 3
如何更改绘图中的颜色和绘图中的标签表？
- 4
如何使用Codeigniter查询获取列的总和
- 5
在R绘图图中组合颜色和形状
- 6
如何从strptime和绘图中删除日期
- 7
如何在绘图中获取生成的x轴和y轴范围？
- 8
使用R ifelse（）定义绘图中的颜色
- 9
使用R，Sweave和knitr在动态报表中使用的绘图中的Unicode字符
- 10
如何在R中使用`ggdraw`和`plot_grid（）`在一系列绘图中在X和Y轴上创建通用标题？
- 11
如何从R中的sqldf输出获取列总和？
- 12
如何在使用grid和gridExtra制作的绘图中添加图例？
- 13
如何使用 stdin 和 stdout 获取输入并显示它们的总和
- 14
Propel 如何获取列的总和
- 15
R中行的列值
- 16
使用Requests和lxml，获取表中行的href值
- 17
如何在 SQL 视图中将计数和总和组表示为列？
- 18
如何使用查询获取Yii中列数据的总和？
- 19
如何使用groupby对象获取其他列的总和？
- 20
如何获取所有选中行的列值？
- 21
如何在R中使用Mapply获取列表的总和
- 22
计算R中数据框中行和列的中位数
- 23
如何使用 Pandas 获取数据透视表中行标题的行号？
- 24
Matplotlib，如何更改绘图中标题和线条的颜色？
- 25
如何使用mysql和php计算列值的总和？
- 26
使用 javacsript 在网格视图中获取复选框选中行的相应行值
- 27
在创建多个绘图中使用波浪号、~ 和点
- 28
如何基于R中行值的组合创建新变量（列）？
- 29
如何在R中的绘图中的箭头上添加文本
我来说两句