我正在尝试使用以下数据框制作堆积条形图：
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)) 第二个 40% 是另一种颜色 (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# http://docs.ggplot2.org/0.9.3.1/geom_bar.html#
所以你需要重塑数据。 您想要一个堆叠条形图，因此您需要告诉 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")
You will notice the order of the plots are different.
We will need to reorder your variable:
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")
我刚刚意识到你想要这个
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))
Note how I switched x and fill