首页 文章

堆积条形图与ggplot

提问于
浏览 次
0

我正在尝试使用以下数据框制作堆积条形图：

totalleft
        1S 2S 3S 4S 12S 25S      tests
A-000   5  0 10 10   0  NA       A-000
A-001  10  8 10 NA  NA  NA       A-001
A-002   5  3 10 10  10  NA       A-002
A-003   2  0 10  9   0  10       A-003
A-004   5  4 10 10  10  NA       A-004
A-005   5  3 10 10  10  NA       A-005
A-006   8  7 NA 10  10  NA       A-006
A-009   9 10 NA NA  10  10       A-009
A-015  NA  1 NA NA  NA  NA       A-015
A-016  NA  0 10 NA   6   9       A-016
A-017  NA  0 NA NA   4  NA       A-017
A-020  NA  1 NA NA  NA  NA       A-020
A-025  NA  0 NA NA   0  NA       A-025
A-025a NA  0 NA NA  10  NA      A-025a
A-026  NA  9 10 NA   9   9       A-026
A-027  NA  0 10 NA   2   9       A-027
A-028  NA  0 NA NA   1  NA       A-028
A-030  NA  7 NA NA   8   8       A-030
B-000     0  0  7  8   0   0     B-000
B-056     4  0  9 NA   0   5     B-056
B-076     9  9 NA NA  10  10     B-076
B-099     6  5 10 NA   5   9     B-099
B-102     7  0 NA NA   0  10     B-102
B-105    NA  6 NA NA  NA   6     B-105
B-119     7  8 10 10  NA  NA     B-119

但是，大多数文档涉及两个因素的绘图：一个用于沿X轴分割条形，另一个用于分割每个条形 . 我的问题是如何通过因子测试将X轴分开，然后将每个条形除以相应的行（即 1S,2S,3S,4S,12,25S ） .

因此，第一个条形将是 A-000 的条形图，其中20％将是一种颜色（对于 1S ，5 /（5 10 10））而第二个条纹将是另一种颜色（ 3S ，10 /（ 5 10 10））和最后的40％将是另一种颜色（ 4S ，10 /（5 10 10））

我正在使用此命令作为参考：

ggplot(diamonds, aes(clarity, fill=cut)) + geom_bar()

来自这个网站：http://docs.ggplot2.org/0.9.3.1/geom_bar.html#

r plot ggplot2

2 回答

  • 2

    所以你需要重塑数据 . 你想要一个堆积的条形图，所以你需要告诉ggplot关于变量1S，2S ......和测试 .

    #let's melt the data
#library(reshape2)
data.plot.m <-melt(data.plot, id.vars = "tests") #I stored your data in data.plot
data.plot.m$variable <-gsub("X","",data.plot.m$variable) 
#as R doesn't like variable names beginning with numbers,
#it adds an 'X' automatically when
#we load the data with read.table so we remove this from melted data

#now we plot the data
ggplot(data.plot.m,aes(y = value,x = variable,fill = tests)) +
geom_bar(stat = "identity")

    enter image description here
    您会注意到图表的顺序不同 . 我们需要重新排序您的变量：

    data.plot.m$variable <- factor(data.plot.m$variable, levels = unique(data.plot.m$variable))
#now plot again
ggplot(data.plot.m,aes(y = value,x = variable,fill = tests))+
geom_bar(stat = "identity")

    enter image description here

    我只是意识到你想要这个

    ggplot(data.plot.m,aes(y=value,x=tests,fill=variable))+geom_bar(stat="identity")

    并旋转x轴刻度标签

    ggplot(data.plot.m,aes(y=value,x=tests,fill=variable))+geom_bar(stat="identity") + theme(axis.text.x = element_text(angle=90))

    enter image description here
    注意我是如何切换x和填充的

    回复于
  • 2

    这看起来像你想要的？

    library(reshape2)
library(ggplot2)

gg <- melt(totalleft,id="tests")
ggplot(gg) +
  geom_bar(aes(x=tests, y=value, fill=variable), stat="identity")+
  theme(axis.text.x=element_text(angle=-90, vjust=.2, hjust=0))

    melt(...) 将您的数据框从"wide"格式（不同列中的组）转换为"long"格式（一列中的所有值（称为 value ））和由单独列（称为 variable ）区分的组 .

    回复于

相关问题