你也可以使用ggplot2。它給了你更多的控制,儘管我不確定這是否是你要找的眼睛。我不確定你是否要求完全不同類型的可視化,或者如果你正在尋找繪製條形圖(這適用於@Didzis
顯示)和更多的控制。對於第二種情況,ggplot2
可能是有用的:
require(ggplot2)
df <- structure(list(chr01 = c(2L, 0L, 0L), chr02 = c(5L, 0L, 5L),
chr03 = c(3L, 1L, 0L), chr04 = c(0L, 5L, 0L), chr05 = c(0L,
2L, 4L), chr06 = c(0L, 0L, 0L), chr07 = c(9L, 3L, 0L), chr08 = c(2L,
0L, 3L), chr09 = c(3L, 4L, 1L)), .Names = c("chr01", "chr02",
"chr03", "chr04", "chr05", "chr06", "chr07", "chr08", "chr09"
), class = "data.frame", row.names = c("T10", "T11", "T65"))
gg.df <- data.frame(chr.id = names(df))
gg.df$cnt <- sapply(df, function(x) sum(x==0)/length(x) * 100)
qplot(factor(chr.id), weight=cnt, data=gg.df, geom="bar", fill=factor(chr.id))
這給你:。
當然,您可以更改此圖的每個元素(查看本文開頭的鏈接)。
謝謝..這是非常有益的.. – PoisonAlien