R 从矩阵创建条形图

我有一个这样的矩阵：

> dput(tbl_sum_peaks[1:40])
structure(c(2, 8, 3, 4, 1, 2, 1, 3, 1, 3, 1, 4, 4, 2, 1, 1, 2, 
1, 1, 1, 1, 1, 1, 1, 1, 1, 3, 1, 1, 2, 1, 5, 4, 2, 1, 1, 2, 1, 
4, 2), .Names = c("AT1G01050", "AT1G01080", "AT1G01090", "AT1G01320", 
"AT1G01470", "AT1G01800", "AT1G01910", "AT1G01960", "AT1G01980", 
"AT1G02150", "AT1G02470", "AT1G02500", "AT1G02560", "AT1G02780", 
"AT1G02816", "AT1G02880", "AT1G02920", "AT1G02930", "AT1G03030", 
"AT1G03090", "AT1G03110", "AT1G03210", "AT1G03220", "AT1G03230", 
"AT1G03330", "AT1G03475", "AT1G03630", "AT1G03680", "AT1G03740", 
"AT1G03870", "AT1G04080", "AT1G04170", "AT1G04270", "AT1G04410", 
"AT1G04420", "AT1G04530", "AT1G04640", "AT1G04650", "AT1G04690", 
"AT1G04750"))

我想制作一个条形图，它将在

yaxis

上显示特定编号的行数。正如我们看到的，在给定的示例数据中，大多数行都有一个数字1，因此数字1的条形图将是最高的

这是一个基本的，但我不能打开我的大脑。。。因此，来自他人的帮助将得到回报

试试看

barplot(table(tbl_sum_peaks))

---

这很简单，效果也很好。如果我想用

xaxis

上的行数和

yaxis

@lukeA上的1到8的比例来代替它，我喜欢你的answer@Rechlay这可能是

plot（x=unclass（table（tbl\u sum\u peaks）），y=name（table（tbl\u sum\u peaks）），type=“b”）

。如果您使用的是

ggplot

库（ggplot2）；图书馆（dplyr）；as.data.frame（tbl_sum_peaks）%>%ggplot（，aes（factor（tbl_sum_peaks））+geom_bar（）+xlab（NULL）+ylab（NULL）

，效果也不错。如果我想用X轴上的行数和Y轴上的1到8的比例来代替它，如果是这样的话，为什么标题是

条形图

？事实并非如此。我需要两者，所以我决定在这里通过评论来提问，而不是提出新的问题。