1

我正在尝试使用循环生成图。

l1<-factor(rep(letters,4))
n1<-abs(rnorm(104))*10000
b1<-rep(c("1","2","3","4","5","6","7","8"),c(2,2,11,24,11,20,33,1))
k1<-rep((rep(c("A","B","C","D"),c(2,3,4,4))),8)
my.df<-data.frame(l1,b1,k1,n1)                            #make a dataframe

names(my.df)<-c("letter","branch","ltrtype","number")     #factor names
library(ggplot2)

branch.list<-unique(my.df$branch)
sayi<-length(branch.list)                                 # list of factor:letters

for (i in 1:sayi) {

branch.iter<-branch.list[i]
my.df.plot<-subset(my.df,my.df$branch==branch.iter,drop=T)

my.df.plot$branch<-factor(my.df.plot$branch)               #So that unused levels don't show up
my.df.plot$letter<-factor(my.df.plot$letter)               #So that unused levels don't show up
my.df.plot$ltrtype<-factor(my.df.plot$ltrtype)             #So that unused levels don't show up
my.df.plot$number<-as.numeric(as.character(my.df.plot$number))
my.df.plot<-data.frame(my.df.plot)

myfilename<-paste(branch.iter,".jpeg",sep="")
jpeg(file=myfilename)

cizim<-ggplot(my.df.plot,aes(letter,number,fill=ltrtype))
cizim<-cizim + geom_bar(width = 1, position = "fill", binwidth = 1) +     facet_grid(ltrtype~.)
cizim<-cizim + opts(title=branch.iter)

print(cizim)
dev.off()

}

（Q1）：当 x 轴上的级别数改变条形的宽度时，我如何防止这种情况并使每个图中的条形宽度相同？

替代文字 http://img411.imageshack.us/i/95325388.jpg/

替代文字 http://img411.imageshack.us/i/91510133.jpg/

(Q2)：当i=7R 给出以下警告时：

(data$ymin == 0)) 警告（“当 ymin != 0 时填充定义不明确”）：需要 TRUE/FALSE 的缺失值

我该怎么办？

（Q3）：在这种情况下有没有更简单的方法来降低未使用的级别，所以我不必使用

 my.df.plot$branch<-factor(my.df.plot$branch)

每次？

4

2 回答 2

2

你正在制作一些非常奇怪的情节。通过使用position="fill"，您将每个条形拉伸到高度 1（因为对应于字母的一个观察值是对应于面板中字母的所有观察值的 100%），完全失去了您试图绘制的任何信息。我的猜测是你的一些问题源于这个错误，但我不确定。

（Q1）您是否希望不同分支的图表中的条形宽度相同？由于您正在更改 x 变量的级别数，因此条形必须变宽才能填满绘图。一些解决方案选项：

  • 对绘图的宽度进行一些智能调整以解决该问题。
  • 保留所有 x 级别 - 我认为这是最干净的方式
  • 您可以使用 的expand选项使条形变窄并以图为中心scale_x_discrete。因此，如果您有 N 个总 x 值（这里 N=26 个字母），但特定的情节只使用其中的 k 个，那么添加+ scale_x_discrete(expand=c(0.05, (N-k)/2))到您的情节中。第一项是乘法扩展因子，这是默认值，第二项是加法因子。

(Q2) i=7 是唯一具有多个number值对应于相同字母/ltrgroup 组合的组。bar geom 不知道该怎么做。我同意错误信息真的很神秘。

（Q3）一种选择是避免使用因子 -data.frame(...,stringsAsFactors=FALSE)在组合字符向量时使用，然后子集不会保留未使用的级别。

于 2010-02-24T20:27:47.270 回答
1

(Q1) I don't think it is possible to fix bar width. Aniko's suggestion to keep all the levels makes most sense to me.

(Q2) replace binwidth = 1 with stat="identity", as I don't think you need stat="bin".

(Q3) Other options include drop.levels in gdata-package, and dropUnusedLevels in Hmisc-package.

于 2010-02-24T21:08:27.970 回答