小编use*_*124的帖子

所以我设法做到这一点......

ggplot(init, aes(x=factor(ANGLE), fill=NETWORK)) +
geom_bar(aes(y = (..count..)/sum(..count..))) +
facet_wrap(~SHOW) + opts(legend.position = "top") +
scale_y_continuous(labels = percent_format())

我的问题是,下面的彩色条代表了我研究中所有电视节目的所有相机角度测量值的百分比.例如,对于ANGLE 2,OREILLY图表的条形值接近15%,对于图表中的所有ANGLE测量值均为15%,而不仅仅是OREILLY方面的测量值.我希望每个图表显示的是相对于一个电视节目(只有一个方面)的计数百分比,而不是所有这些.

这个想法是比较按比例使用不同的节目间的拍摄角度,但与图是现在的样子,它是偏向于让更多的拍摄角度的变化显示看起来好像他们花的方式更多的时间在相机角度2比实际上相对于其他人.

令人沮丧的部分是我花了一个小时让它看起来像我想要的方式,然后我犯了更新R的错误.包随着它更新,这发生了.

此处提供缩小尺寸的数据表.

编辑:这也不起作用.我尝试将"group = NETWORK"放在aes(......,)两个(和两个)术语中,但没有任何改变.我也用"group = SHOW"尝试了同样的事情,我认为可能有更多的机会,因为我想在每个方面只获得一个SHOW的百分比(因此,每个方面的比例应该高达80左右) %,因为很多节目主要是摄像机角度2).我错过了什么吗？

ggplot(init, aes(x=factor(ANGLE), fill=NETWORK), group=SHOW)
+ geom_bar(aes(y = (..count..)/sum(..count..), group=NETWORK)) +
+ facet_wrap(~SHOW) + opts(legend.position = "top") +
+ scale_y_continuous(labels = percent_format())

所以,

我正在尝试导出我的线性模型的图.当我以PDF格式化时,PDF有四页和四个不同的图表.当我作为PNG导出时,我只获得第一张图表.如何导出以便将所有四个图形作为单独的PNG文件？

什么适用于PDF:

lrfitX11SUMS <- glm(X11SUMS ~ POLITA + CIRCULATION + COMPAPER + TrafficRankUS, data=NewspTest)

    summary(lrfitOTONE)
    pdf("/Users/william/Desktop/output/lmfitOTONE1.pdf")
    plot(lrfitOTONE)
    dev.off()

什么不适用于PNG(并花了两个小时在互联网和情节文件挖掘无济于事):

lrfitX11SUMS <- glm(X11SUMS ~ POLITA + CIRCULATION + COMPAPER + TrafficRankUS, data=NewspTest)

summary(lrfitOTONE)
png("/Users/william/Desktop/output/lmfitOTONE1.png", width=720, height=720, pointsize=16)
png("/Users/william/Desktop/output/lmfitOTONE2.png", width=720, height=720, pointsize=16)
png("/Users/william/Desktop/output/lmfitOTONE3.png", width=720, height=720, pointsize=16)
png("/Users/william/Desktop/output/lmfitOTONE4.png", width=720, height=720, pointsize=16)
plot(lrfitOTONE)
dev.off()

我如何获取图像？

谢谢,

-wm