how to reduce space gap between multiple graphs in R - 


var8    p_1 p_2 p_3 1   6617    6635    6739 2   6563    6668    6699 3   6711    6695    6782 4   6807    6863    6753 5   6996    7035    7044 6   7221    7336    7201 7   7236    7198    7224 8   7307    7475    7357 9   7230    7281    7165 10  7152    7162    6935 11  7295    7116    6805 12  6923    6852    6565 1   6854    6705    6537 2   6724    6685    6589 3   6815    6715    6656 4   6933    6876    6805 5   7183    7104    7042 6   7361    7302    7402 7   7383    7401    7388 8   7389    7377    7377 9   7315    7346    7375 10  7287    7249    7337 11  6923    7059    7238 12  6884    6862    6958 1   6711    6728    6829 2   6680    6724     3   6806    6774    6696 4   6756    6831    6943 5   7091    7074    7108 6   7364    7326    7147 7   7314    7390    7214 8   7326    7379    7262 9   7278    7316    7201 10  7283    7350    7240 11  7133    7160    7102 12  6916    6879    6971 1   6727    6673    6826 2   6662    6683    6793 3   6701    6713    6884 4   6923    6812    7042 5   7075    7056    7189 6   7183    7269    7324 7   7324        7450 8   7361    7353    7464 9   7392    7253    7326 10  7264    7171    7315 11  7108    7017    7244 12  6750    6949    6985 1   6640    6843    6859 2   6724    6728    6854 3   6642    6797    6877 4   6800    6895    6921 5   6991    7002    7232 6   7288    7211    7389 7   7371    7272    7468 8   7333    7270    7618 9   7230    7125    7443 10  7147    6973    7510 11  7203    6840    7396 12  7013    6758    7144   d = read.table() lmts <- range(d) par(mfrow=c(1,3)) colors = c(rep("skyblue",1), rep("skyblue1",1), rep("skyblue2", 1), rep("skyblue3", 1), rep("mediumpurple1", 1), rep("mediumpurple", 1), rep("mediumpurple3", 1), rep("royalblue1",1), rep("slateblue1", 1), rep("slateblue3", 1), rep("slategray3",1), rep("slategray1",1)) boxplot(p_1~var8, ylim=c(6500,7650), col=colors, outline = false,          lty=1, las=2, ylab = "mean(mm)", cex.lab=1, cex.axis=1, boxwex=0.65, xaxt='n') axis(1, at=c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12), labels=c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"), cex.axis=1, las=1)   boxplot(p_3~var8, boxcol= false, col=colors,           lty=1, las=2, xlab="months of year", cex.lab=1, cex.axis=1, outline = false, boxwex=0.65, xaxt='n', yaxt='n') axis(1, at=c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12), labels=c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"), cex.axis=1, las=1)   boxplot(p_2~var8, boxcol= false, col=colors,           lty=1, las=2, cex.lab=1, cex.axis=1, outline = false, boxwex=0.65, xaxt='n', yaxt='n') axis(1, at=c(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12), labels=c("1", "2", "3", "4", "5", "6", "7", "8", "9", "10", "11", "12"), cex.axis=1, las=1)

how reduce gap between graphs?

you can play mai argument in ?par. have adjust left side label in.

i used par(mfrow=c(1,3), mai = c(1, 0.1, 0.1, 0.1)) create lower plot.

enter image description here

enter image description here

or try using ggplot2.

library(ggplot2) library(reshape) dm <- melt(d, id.vars = "var8") dm$var8 <- as.factor(dm$var8)  ggplot(dm, aes(x = var8, y = value, fill = var8)) +    theme_bw() +   scale_fill_manual(values = colors, guide = false) +   geom_boxplot()+ facet_wrap(~ variable)

enter image description here


Comments

Post a Comment

Popular posts from this blog

ios - iPhone/iPad different view orientations in different views , and apple approval process -

i force app's home screen portrait , other views landscape. apple rejects app if this? if not , how force first screen launch in portrait mode? , force other screens launch in landscape. this not duplicate question search every possible answer in website. i force app's home screen portrait , other views landscape. apple rejects app if this? no apple not reject app this. have lot of apps doesn't support orientation. forcing on 1 screen won't cause app reject. if not , how force first screen launch in portrait mode? , force other screens launch in landscape. can on write : -(nsuinteger)supportedinterfaceorientations; function.
Read more

java Extracting Zip file -

i'm looking way extract zip file. far have tried java.util.zip , org.apache.commons.compress, both gave corrupted output. basically, input zip file contain 1 single .doc file. java.util.zip: output corrupted. org.apache.commons.compress: output blank file, 2 mb size. so far commercial software winrar work perfectly. there java library make use of this? this method using java.util library: public void extractzipnative(file filezip) { zipinputstream zis; stringbuilder sb; try { zis = new zipinputstream(new fileinputstream(filezip)); zipentry ze = zis.getnextentry(); byte[] buffer = new byte[(int) ze.getsize()]; fileoutputstream fos = new fileoutputstream(this.tempfolderpath+ze.getname()); int len; while ((len=zis.read(buffer))>0) { fos.write(buffer); } fos.flush(); fos.close(); } catch (filenotfoundexception e) { // todo auto-generated catch block ...
Read more

C# WinForm - loading screen -

i ask how make loading screen (just picture or something) appears while program being loaded, , disappears when program has finished loading. in fancier versions, have seen process bar (%) displayed. how can have that, , how calculate % show on it? i know there form_load() event, not see form_loaded() event, or % property / attribute anywhere. all need create 1 form splash screen , show before main start showing landing page , close splash once landing page loaded. class splashform { //delegate cross thread call close private delegate void closedelegate(); //the type of form displayed splash screen. private static splashform splashform; static public void showsplashscreen() { // make sure launched once. if (splashform != null) return; thread thread = new thread(new threadstart(splashform.showform)); thread.isbackground = true; thread.setapartmentstate(apartmentstate.sta); thread....
Read more